📄 backinsert.asp
字号:
<!--#include file="config.inc"-->
<%
noteid=request.form("noteid")
subject=trim(request.form("subject"))
email=trim(request.form("email"))
userid=trim(request.form("userid"))
content=trim(left(request.form("content"),17))
notetime=now()
readnum=0
status=-1
set conn=server.createobject("adodb.connection")
conn.open connstring
set objnoters=server.createobject("adodb.recordset")
set objnoters2=server.createobject("adodb.recordset")
ssql1="select * from notebook"
application.lock
noteid=left(noteid,6)
ssql2="select * from notebook where noteid like '"¬eid&"%'"
objnoters2.open ssql2,conn,1,3
if objnoters2.eof then
response.write "您正在回复的留言已经被删除，请<a href=""vbscript:window.close()"">返回</a>"
response.end
end if
objnoters2.movelast
if len(objnoters2("noteid"))=6 then
noteid=objnoters2("noteid")&"-001"
else
temp=cint(right(objnoters2("noteid"),3))
temp=cstr(temp+1)
for length=1 to 3-len(temp)
temp="0"&temp
next
noteid=left(objnoters2("noteid"),7)&temp
end if
objnoters2.close
set objnoters2=nothing
objnoter2.open ssq11,conn,1,3
objnoters.addnew
objnoters("noteid")=noteid
objnoters("subject")=subject
objnoters("userid")=userid
objnoters("email")=email
objnoters("notetime")=notetime
objnoters("content")=content
objnoters("readnum")=readnum
objnoters("status")=status
objnoters.update
application.unlock
conn.close
set conn=nothing
set objnotersw=nothing
%>
<font style="font:10pt">回复成功，请<a href="vbscript:window.close()">点击关闭</a>!</font>
%>
<html>
<body>
</body>
<html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -