📄 noteadd.asp

📁 一个很好用的bbs范例

💻 ASP

字号:

<!--#include file="config.inc"-->
<%set conn=server.createobject("adodb.connection")
conn.open connstring
set objnoters=server.createobject("adodb.recordset")
set objnoters2=server.createobject("adodb.recordset")
ssql="select max(noteid) as maxid from notebook"
ssql2="select * form notebook"
userid=trim(request.form("userid"))
email=trim(request.form("email"))
content=trim(request.form ("content"))
subject=trim(left(request.form("subject"),17))
application.lock
objnoters.open ssql,conn,1,3
if objnoters.eof or isnull(objnoters("maxid")) then
noteid="n00001"
else
temp=left(objnoters("maxid"),6)
temp=right(temp,5)
temp=cint(temp)
temp=cstr(temp+1)
for length=1 to 5-len(temp)
temp="0"&temp
next
noteid="n"&temp
end if
notetime=now()
insertstr="insert into notebook values('"&noteid&"');"
objnoters2.open insertstr,conn,1,3
application.unlock
objnoters.close
set conn=nothing
%>
<html>
<head><title>留言成功</title></head><body>
<font style="font:10pt" color=#9900cc>留言成功,请<a href="vbscript:window.close()">点击关闭!</a></font>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -