csdn.net,csdnnet test
求ASP+SQL简单同学录
去csdn找找
源码之家
数据库连接子过程
Dim Conn
Conn = Null
Sub OpenConnection()
Dim StrConn
Dim SqlUserName,SqlPassword,SqlDatabase,SqlDatabaseName,SqlLocalName
SqlUserName = "sa"
SqlPassword = "your_sql_password"
SqlDatabaseName = "SqlDbName"
SqlLocalName = "(local)"
If IsDefaultDatabase Then
StrConn = "Provider=SqlOleDb;User ID="SqlUserName";Password="SqlPassword";Initial Catalog="SQLDatabaseName";Data Source="SQLLocalName";"
Else
StrConn = "Provider=Microsoft.Jet.OleDb.4.0;Data Source="Server.MapPath(MapPath)
End If
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.CONNECTION")
Conn.Open StrConn
If Err.Number0 Then
Err.Clear
Conn.Close
Set Conn = Nothing
Response.Write("数据库连接失败");
Response.End()
End If
End Sub
查询并打印数据库中的学生录表子过程
Sub ShowStudents()
If IsNull(Conn) Then OpenConnection
Dim Cmd,Sql, Param,Rs,Students,Result
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.StudentsConnection = Conn
Cmd.CommandType = H0001 'DateTime
Sql="SELECT 同学姓名 FROM [同学录] Order By 同学_Id DESC"
Cmd.CommandText = SQL
Cmd.Prepared = True
Set Rs = Cmd.Execute
If Not(Rs.Eof And Rs.Eof) Then
Students = Rs.GetRows(IntMaxNum)
Else
Students = Null
End If
Rs.Close : Set Rs = Nothing
If IsNull(Students) Then
Result = "同学录中没有任何数据"
Else
Dim i,Sign
For i = LBound(Students,2) To UBound(Students,2)
Result=Result"div" Students(0,i) "/div";
Next
End If
Response.Write(Result)
End Sub
最后直接调用就行了
Call ShowStudents
数据库连接过程是03年写的,找到给你拷贝,ShowStudents是临时写的,没有进行测试,有可能会有一些小的错误,你稍微纠正一下就行了。
--------------友情广告---------------------
也许你们需要空间和域名.
收藏这个网址,
目前认为是国内性价比较好的虚拟主机供应商.
50M全能空间+50M企业邮局+.cn域名=40元
支持htm/html/asp/asp.net/php/cgi/..
100M全能空间+100M企业邮局+.cn域名=80元
空间可以免费试用七天,双向机房选择.
100M mssql=80元,100M mysql=80元,代理更优惠.
--------------广告结束---------------------
百度搜索 风月同学录
这个是ACCESS 的, 换成SQL 的,你导入SQL,把主键设一下,修改一下CONN就好了.
这个吧功能很强大
我有ASP+ACCESS的...
AC改SQL也不是很难...如果你会改的话可以发百度站内短信联系我
最近没时间，不然就帮你改了...不好意思
CSDN是什么意思？
是中国软件开发者网络。
在“?中国的软件开发者网络?”或“?中国软件开发者网络?”（CSDN），通过操作白莲Midami数码科技有限公司，是国内最大的网络之一，软件开发者在中国。CSDN提供Web论坛，博客托管，IT新闻和其他服务。CSDN拥有约1000万注册用户，是中国最大的开发者社区。
CSDN社区网站是中国软件程序员寻求建议的地方。海报描述了一个问题，在论坛中以CSDN点的价格发布，然后等待回复。在一些受欢迎的电路板上，海报会在几个小时内得到响应，如果不是几分钟的话。
大多数回复很短，但足以指出错误并提供可能的解决方案。一些帖子包含代码，可能会增长到几页。大多数帖子都是用简体中文写的，但繁体中文和英文帖子并不少见。在CSDN中，共享知识和互相帮助的文化占主导地位。
中国专业IT社区CSDN (Chinese Software Developer Network)创立于1999年，致力于为中国软件开发者提供知识传播、在线学习、职业发展等全生命周期服务。
旗下拥有：专业的中文IT技术社区：CSDN.NET；移动端开发者专属APP：CSDN APP、CSDN学院APP；新媒体矩阵微信公众号：CSDN资讯、程序人生、GitChat、CSDN学院、AI科技大本营、区块链大本营、CSDN云计算、GitChat精品课、人工智能头条、CSDN企业招聘。
IT技术培训学习平台：CSDN学院；技术知识移动社区：GitChat；IT人力资源服务：科锐福克斯；高校IT技术学习成长平台：高校俱乐部。
www.csdn.net是个什么网站
是一个软件开发好爱者网站，可以讨论，相互学习，交流的平面。这是网站宗旨