欢迎您: 游客   等级: 游客 | 注册 | 登陆 |
发 贴
请选择需要发布主题的板块
用户名 密码
欢迎新会员: monclerjacket  
查看
2776
回复
0
koflurker
级别新手上路
精华
积分1
财富0 jstruggle币
发帖数0
注册2009-8-21
状态 我暂时不在线
发表于2008-7-4 09:01 楼主
ASP连接SQL Server2000数据库例程
ASP连接SQL Server2000数据库例程 Dim mode mode=request.form("text4") if mode=1 then name=request.form("text1") age=request.form("text2") addr=request.form("text3") if not isnumeric(age) then response.write "age must be number!try again":response.end age=clng(age) end if '******************************************************************** ' 与SQL Server2000有关的连接 ' 可以参照它建立您的数据库连接 '******************************************************************** '敬请注意: '请根据情况配置StrServer,StrUid,StrSapwd,StrDbName四个参数 Dim StrServer,StrUid,StrSaPwd,StrDbName StrServer="(local)" '数据库服务器名 StrUid="testuser" '您的登录帐号 StrSaPwd="12345" '您的登录密码 StrDbName="db_test_com" '您的数据库名称 Dim Conn '数据库连接 Dim StrDSN '数据库连接字符串 Dim Rs '命令字符串 StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName '建立和数据库master的连接 set Conn = Server.CreateObject("ADODB.Connection") set Rs=Server.CreateObject("ADODB.RecordSet") Conn.Open StrDSN '******************************************************************** '******************************************************************** Dim strsql '******************************************************************** ' 读数据库的相关操作 sub readdb() strsql="select * from test" rs.open strsql,conn,1,1 if rs.EOF then response.write "no record at all":exit sub response.write "" response.write "" for i=0 to rs.Fields.Count-1 response.write "" next response.write "" while not rs.EOF response.write "" for i=0 to rs.Fields.Count-1 response.write "" next response.write "" rs.MoveNext wend response.write "
"&rs.Fields(i).Name&"
"&rs.Fields(i).Value&"
" rs.Close end sub '******************************************************************** '******************************************************************** ' 写数据库的相关操作 sub insertdata() strsql="INSERT INTO test(name,age,addr) VALUES('"&name&"',"&age&",'"&addr&"')" rs.Open strsql,conn,1,3 end sub '******************************************************************** if mode=1 then call insertdata() response.write "insert ok!" elseif mode=2 then call readdb() end if '释放数据库连接对象 set rs=nothing set conn=nothing %>
name: age: city:
……………………………………………………………………………………
分享  
JStruggle BBS

Powered by Jstruggle! 1.8 © 2006-2009

Processed in 0s JStruggle BBS Surprise!

粤ICP备05106211号 - 皖ICP备06010590号

copyright©JStruggle工作室版权所有 - 联系我们