<% 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 '******************************************************************** ' 与AccessDB相关的连接信息 ' 可以参照它建立您的数据库连接 '******************************************************************** Dim conn,rs,dbpath Set conn=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.RecordSet") dbpath=Server.MapPath("rwdata/db_test_com.mdb") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath '******************************************************************** '******************************************************************** dim strsql
if mode=1 then '******************************************************************** if (flag==1){ }
|
|||||
>> 相关文章 |
|||||