 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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!<a href=javascript:history.go(-1)>try again</a>":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 "<table border=1>" response.write "<tr>" for i=0 to rs.Fields.Count-1 response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>" next response.write "</tr>" while not rs.EOF response.write "<tr>" for i=0 to rs.Fields.Count-1 response.write "<td>"&rs.Fields(i).Value&"</td>" next response.write "</tr>" rs.MoveNext wend response.write "</table>" 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 %> <HTML> <HEAD> <TITLE></TITLE> <script language=javascript> function clickit(flag){ var form1=document.form2 form1.text4.value=flag; if (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==""){ alert("addr cant empty!"); return false; } } form1.submit(); return true; } </script> </HEAD> <BODY> <form method=post name=form2> name:<INPUT type="text" id=text1 name=text1 size=12> age:<INPUT type="text" id=text2 name=text2 size=12> city:<INPUT type="text" id=text3 name=text3 size=12><br> <INPUT type="hidden" id=text4 name=text4> <INPUT type="button" value="write" id=button1 name=button1 onclick="clickit(1)"> <INPUT type="button" value="read" id=button2 name=button2 onclick="clickit(2)"> </form> </BODY> </HTML> 返回类别: 教程 上一教程: ASP设计常见问题及解答精要-3 下一教程: ASP开发WEB站点 您可以阅读与"ASP连接SQL SERVER2000数据库例程"相关的教程: · 如何在ASP中连接MYSQL 数据库 · ASP建立MYSQL数据库的连接 · ASP列出SQL数据库中所有数据视图 · 用ASP程序显示SQL数据库所有表的名称(带删除功能) · ASP中五种连接数据库的方式 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
