📄 newtitle.asp
字号:
<%@ language="vbscript" %>
<!--#include file="ADOVBS.INC"-->
<% response.buffer=true %>
<script language="vbscript" runat="server">
FUNCTION Check (s)
Dim pos
pos = InStr(s, "'")
While pos > 0
s = Mid(s, 1, pos) & "'" & Mid (s, pos + 1)
pos = InStr(pos + 2, s, "'")
WEND
Check=s
END FUNCTION
</script>
<%
if request("username")="" or request("comment")="" then
response.write"用户名和内容必须填写"
response.end
end if
DbPath = SERVER.MapPath("server.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
comment=replace(request("comment"),vbcrlf,"<br>")
set rs=server.createobject("ADODB.RecordSet")
sql="select min(xl) as xxl from forum conn"
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
rs.movefirst
dim xl_l
dim i
if isnull(rs("xxl")) or isempty(rs("xxl")) then
xl_l="99999"
else
xl_l=cstr(rs("xxl")-1)
end if
for i=1 to 5-len(xl_l)
xl_l="0"+xl_l
next
comment=replace(request("comment"),vbcrlf,"<br>")
comment=server.HTMLEncode(comment)
'set myfileobject=server.createobject("scripting.filesystemobject")
'set myfile=myfileobject.createtextfile("mjj.txt")
'myfile.writeline(comment)
'myfile.close
'response.write comment
'response.end
insertnum=0
sqltext="insert into forum(username,title,comment,brow,xl,regtime) values('"&check(server.htmlencode(request("username")))&"','"&check(server.htmlencode(request("title")))&"','"&check(comment)&"','"&request("brow")&"','"&xl_l&"',now)"
conn.execute sqltext,insertnum
if insertnum=1 then
response.redirect"default.asp"
rs.close
conn.close
else
response.write"insert failer"
rs.close
conn.close
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -