📄 ly.asp
字号:
<% language="VBSCRIPT" %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<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
ngid = request("gid")
nly = request("ly")
nlyr = request("lyr")
nwpmc = request("wpmc")
nhz = request("hz")
if nly="" or nlyr="" then
response.write "<p align='center'> 没有输入必须项目。</p>"
response.write "<meta http-equiv='refresh' content='1; url=add.asp'>"
else
connstr = "DBQ="+server.mappath("data.mdb")+";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 ly where (ly IS NULL) "
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = dataconn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor.AddNew
InsertCursor("gid") = ngid
InsertCursor("ly") = nly
InsertCursor("lyr") = nlyr
InsertCursor("lyrq") = date()
InsertCursor("wpmc") = nwpmc
InsertCursor("hz") = nhz
InsertCursor.Update
InsertCursor.close
dataconn.close
set InsertCursor=nothing
set dataconn=nothing
response.write "<p align='center'>留言成功,谢谢！</p>"
response.write "<meta http-equiv='refresh' content='1; url=item.asp?id="+ngid+"'>"
end if
%></td></tr></table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -