📄 response.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>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("DBCon_ConnectionString")
%>
<html>
<head>
<title>response</title>
</head>
<%
id=request("id")
'response.write id
'response.end
sql="update forum set child=child+1 where id="& clng(request("id"))
conn.execute sql
dim xl
xl=request("xl")
comment=replace(request("comment"),vbcrlf,"<br>")
dim xl_l
dim i
xl_l=cstr(request("child"))
for i=1 to 3-len(xl_l)
xl_l="0"+xl_l
next
xl_l=trim(xl)+trim(xl_l)
insertnum=0
sqltext="insert into forum(username,title,comment,brow,xl,regtime)"
sqltext=sqltext+"values('"&check(request("username"))&"','"&check(request("title"))&"','"& check(comment)&"','"&request("brow")&"','"+xl_l+"',getdate())"
response.write(sqltext)
conn.execute sqltext,insertnum
if insertnum=1 then
response.redirect"default.asp"
myconn.close
else
response.write"insert fail"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -