📄 reg.asp
字号:
<% language="VBSCRIPT" %>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<object id=closes type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"><param name="Command" value="Close"></object>
<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="" then
response.write "<script language='javascript'>"
response.write "alert('对不起，您是否真的输入了完整的表单！');"
response.write "history.go(-1);"
response.write "</script>"
response.end
else
connstr = "DBQ="+server.mappath("_database/redtoolsdata.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'>您已经预订成功，谢谢！您可以关闭此窗口了</p>"
end if
%><br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="78%" id="AutoNumber1">
<tr>
<td width="100%" align="center">
<a href="http://www.euhs.net">
<img border="0" src="e1.gif"></a></td>
</tr>
<tr>
<td width="100%" align="center"> </td>
</tr>
<tr>
<td width="100%" align="right"> <a href="#" onclick="closes.Click();"><font color="#FF0000">关闭此窗口</font></a></td>
</tr>
<tr>
<td width="100%" align="center"> </td>
</tr>
<tr>
<td width="100%" align="center">本系统由<font color="#FF0000">
</font><a href="http://www.Jxtour.Net">
<span style="text-decoration: none; "><font color="#FF0000">红旋联盟</font></span></a><font color="#FF0000">
</font>制作，授权<font color="#3F6B02"> </font><font color="#FF0000">EUHS.net </font>使用,不得非法复制!</td>
</tr>
</table>
</center>
</div>
</td></tr></table>
</center>
</div>
<p align="center">
</p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -