asp留言板 asp留言板的设计与实现

今天小爱来给大家分享一些关于asp留言板的设计与实现方面的知识吧，希望大家会喜欢哦

asp留言板 asp留言板的设计与实现

asp留言板 asp留言板的设计与实现

1、教学目的与要求：掌握ADO对象模型，学会配置DSN，使用ADO对象打开和关闭数据库连接。

2、Dim mode(1) 先建立conn.asp连接文件。

3、mode=request.form("text4")if mode=1 thenname=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.endage=clng(age)"" 与SQL 2000有关的连接" 可以参照它建立您的数据库连接""敬请注意："请根据情况配置Str,StrUid,StrSapwd,StrDbName四个参数Dim Str,StrUid,StrSaPwd,StrDbNameStr="(local)" "数据库名StrUid="testuser" "您的登录帐号StrSaPwd="12345" "您的登录密码StrDbName="db_test_com" "您的数据库名称Dim Conn "数据库连接Dim Rs "命令字符串StrDSN="driver={SQL server};server="&Str&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName"建立和数据库的连接set Conn = .CreateObject("ADODB.Connection")set Rs=.CreateObject("ADODB.RecordSet")Conn.Open StrDSN""Dim strsql"" 读数据库的相关作sub readdb()strsql="select from test"rs.open strsql,conn,1,1if rs.EOF then response.write "no record at all":exit subresponse.write ""response.write ""for i=0 to rs.Fields.Count-1response.write ""&rs.Fields(i).Name&""nextresponse.write ""while not rs.EOFresponse.write ""for i=0 to rs.Fields.Count-1response.write ""&rs.Fields(i).Value&""nextresponse.write ""rs.MoveNextwendresponse.write ""rs.Closeend sub""" 写数据库的相关作sub insertdata()strsql="INSERT INTO test(name,age,addr) VALUES(""&name&"","&age&",""&addr&"")"rs.Open strsql,conn,1,3end sub"if mode=1 thencall insertdata()response.write "insert ok!"elseif mode=2 thencall readdb()"释放数据库连接对象set rs=nothingset conn=nothingfunction clickit(flag){var form1=document.form2if (flag==1){if (form1.text1.value==""){alert("name cant empty!");return false;}if (form1.text2.value==""){alert("age cant empty!");return false;}if (form1.text3.value==""){aler教材： 《Active Pages》编程实务 高等教育出版社t("addr cant empty!");return false;}}form1.submit();return true;}name:age:city:asp连接数据库：TxtIP=192.168.1.1'ipTxtUID=sa'数据库用户TxtPWD=1'数据库密码TxtDB=db'数据库名connstr = "driver={SQL };server="&TxtIP&";UID="&TxtUID&";PWD="&TxtPWD&";database="&TxtDB&";"Set conn = .CreateObject("ADODB.Connection")conn.open connstr'打开数据库连接字符串。

4、不出错就是连接成功。

本文到这结束，希望上面文章对大家有所帮助。