数据库连接(无错)
作者:盛世互联客服中心 文章来源:互联网 更新时间:2013-7-23
ASP连接SQLServer2000数据库例程
--------------------------------------------------------------------------------

<
Dimmode
mode=request.form("text4")
ifmode=1then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
ifnotisnumeric(age)thenresponse.write"agemustbenumber!<ahref=javascript:history.go(-1)>tryagain</a>":response.end
age=clng(age)
endif
********************************************************************
与SQLServer2000有关的连接
可以参照它建立您的数据库连接
********************************************************************
敬请注重:
请根据情况配置StrServer,StrUid,StrSapwd,StrDbName四个参数
DimStrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)"数据库服务器名
StrUid="testuser"您的登录帐号
StrSaPwd="12345"您的登录密码
StrDbName="db_test_com"您的数据库名称

DimConn数据库连接
DimStrDSN数据库连接字符串
DimRs命令字符串
StrDSN="driver={SQLserver};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
建立和数据库master的连接
setConn=Server.CreateObject("ADODB.Connection")
setRs=Server.CreateObject("ADODB.RecordSet")
Conn.OpenStrDSN
********************************************************************
********************************************************************


Dimstrsql
********************************************************************
读数据库的相关操作
subreaddb()
strsql="select*fromtest"
rs.openstrsql,conn,1,1
ifrs.EOFthenresponse.write"norecordatall":exitsub
response.write"<tableborder=1>"
response.write"<tr>"
fori=0tors.Fields.Count-1
response.write"<td><fontcolor=blue>"&rs.Fields(i).Name&"</font></td>"
next
response.write"</tr>"
whilenotrs.EOF
response.write"<tr>"
fori=0tors.Fields.Count-1
response.write"<td>"&rs.Fields(i).Value&"</td>"
next
response.write"</tr>"
rs.MoveNext
wend
response.write"</table>"
rs.Close
endsub
********************************************************************


********************************************************************
写数据库的相关操作
subinsertdata()
strsql="INSERTINTOtest(name,age,addr)VALUES("&name&","&age&","&addr&")"
rs.Openstrsql,conn,1,3
endsub
********************************************************************

ifmode=1then
callinsertdata()
response.write"insertok!"
elseifmode=2then
callreaddb()
endif
释放数据库连接对象
setrs=nothing
setconn=nothing
>
<HTML>
<HEAD>
<TITLE></TITLE>
<scriptlanguage=javascript>
functionclickit(flag){
varform1=document.form2
form1.text4.value=flag;

if(flag==1){
if(form1.text1.value==""){
alert("namecantempty!");
returnfalse;
}
if(form1.text2.value==""){
alert("agecantempty!");
returnfalse;
}
if(form1.text3.value==""){
alert("addrcantempty!");
returnfalse;
}

}
form1.submit();
returntrue;
}
</script>
</HEAD>
<BODY>
<formmethod=postname=form2>
name:<INPUTtype="text"id=text1name=text1size=12>
age:<INPUTtype="text"id=text2name=text2size=12>
city:<INPUTtype="text"id=text3name=text3size=12><br>
<INPUTtype="hidden"id=text4name=text4>
<INPUTtype="button"value="write"id=button1name=button1onclick="clickit(1)">
<INPUTtype="button"value="read"id=button2name=button2onclick="clickit(2)">
</form>
</BODY>
</HTML>
收藏 】 【打印】 【关闭
  最新文章
  点击排行
盛世互联(中国)网络技术有限公司 深圳市及时网络技术有限公司 联合版权 中国市场授予<<中国服务品牌企业>>
客服热线:0755-8376 8888(120线) 免费热线:800-830-9577 800-830-9377 ICP经营许可证: 粤B2-20064003号
北京客服:010-51663652 珠海客服:0756-6171956 深圳客服:0755-83765888
广州客服:020-61139366 彩文传真:0755-83765599
商务地址:中国.深圳经济特区.罗湖区人民南路深圳发展中心大厦10层