📄 reg.asp
字号:
<% language="VBSCRIPT" %>
<!----------------------------------------------
Powered by CFN_RedHyphone（安庆分站汪懿[QQ：9000558]制作）
娱乐搜索程式
http://howweb.2ya.com/
此版本只能在个人网站使用并要求保留中国第四网版权！
商业用途必须与本人联系！
-------------------------------------------------->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css"><!--
body {font-family:"宋体"; font-size: 12px; line-height:17px;}
td {font-family:"宋体"; font-size: 12px;}
-->
</style>
<link rel="stylesheet" type="text/css" href="new.css">
<meta name="Microsoft Border" content="none">
</head>
<body>
<div align="center">
<center>
<table cellspacing="0" cellpadding="0" border="1" width="45%" height="25%" bordercolor="#FFFFFF">
<tr><td bgcolor="#F7F3F7" bordercolor="#808080" >
<p align="center"><%
dim conn
dim connstr
dim err
nbuyorsell = request("buyorsell")
ngoods = request("goods")
nkind = request("kind")
nprice = request("price")
namount = request("amount")
nbuydate = request("buydate")
ndegree = request("degree")
nname = request("name")
nemail = request("email")
nprovince = request("province")
ncity = request("city")
ntelephone = request("telephone")
nbbcall = request("bbcall")
nicq = request("icq")
noicq = request("oicq")
ntrademode = request("trademode")
ncontent = request("content")
if ngoods="" or nname="" or nkind="" or nbuyorsell="" then
response.write "<p align='center'> 没有输入必须项目。</p>"
response.write "<meta http-equiv='refresh' content='1; url=add9488.asp'>"
else
connstr = "DBQ="+server.mappath("_database/cfn4.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set DataConn = Server.CreateObject("ADODB.Connection")
dataconn.open connstr
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandText = " select * from data where (goods IS NULL) "
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = dataconn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor.AddNew
InsertCursor("buyorsell") = nbuyorsell
InsertCursor("date") = date()
InsertCursor("time") = time()
InsertCursor("goods") = ngoods
InsertCursor("kind") = nkind
InsertCursor("price") = nprice
InsertCursor("amount") = namount
InsertCursor("degree") = ndegree
InsertCursor("buydate") = nbuydate
InsertCursor("name") = nname
InsertCursor("email") = nemail
InsertCursor("province") = nprovince
InsertCursor("city") = ncity
InsertCursor("telephone") = ntelephone
InsertCursor("bbcall") = nbbcall
InsertCursor("icq") = nicq
InsertCursor("oicq") = noicq
InsertCursor("trademode") = ntrademode
InsertCursor("content") = ncontent
InsertCursor("num") = 0
InsertCursor("deal") = 0
InsertCursor.Update
InsertCursor.close
dataconn.close
set InsertCursor=nothing
set dataconn=nothing
response.write "<p align='center'>注册E游黄山酒店商家成功，谢谢您对我们的支持！</p>"
response.write "<meta http-equiv='refresh' content='1; url=type.asp?kind="+cstr(nkind)+"'>"
end if
%></td></tr></table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -