|
#2
madpbpl2008-08-13 02:35
|
<%
'CompanyName = Request("CompanyName")
CName = Request("CName")
City = Request("City")
abc=request("xxx")
If CName = "" Or City = "" Then
Response.Write "<html><body><center><font size=5>请将资料填写完整。</font></center></body></html>"
'Response.Redirect "error.htm"
Response.End
End If
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("fanyong.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open abc, dbconnection, adOpenDynamic, 3
rs.AddNew
rs("用户名") = CName
rs("支付宝") = City
rs("日期")=date()
rs.Update
Response.Write "<html><body><center><font size=5>祝贺，您的数据已经添加进数据库了！<p>"
Response.Write "</font></center></body></html>"
%>
这是我代码 是用abc获取上个页面的值也就是表名 然后把写数据写入abc对应的表内 如果判断数据是否存在呢 就是判断用户名 是否 存在
