📄 save-re.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit
%><!--#include file="bkconn.asp"-->
<%if session("user")="" then
response.redirect "../err.asp"
end if%>
<%
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
sub getInput()
sInput=trim(request.form("txtanswer"))
spassword=trim(request.form("password"))
sdel=trim(request.form("del"))
end sub
%>
<%
dim sql
dim rs
dim sInput
dim spassword
dim sdel
getInput()
if spassword<>"zysj520" then
error()
else
if sdel="1" then
deldata()
win()
else
saveData()
win()
end if
end if
sub deldata()
on error resume next
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="delete from book where id="&request.QueryString("id")
rs.open sql,conn,1,1
set rs=nothing
conn.close
set conn=nothing
end sub
sub saveData()
on error resume next
dim cmdTemp
dim InsertCursor
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT * FROM book where id="&request.QueryString("id")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor("answer") =htmlencode2(sInput)
InsertCursor.Update
InsertCursor.close
conn.close
set InsertCursor=nothing
set conn=nothing
rs.close
set rs=nothing
end sub
%><%sub win()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<title>回复了</title>
</head>
<body bgcolor="6699cc">
<br>
<br><center>
<font size="4" color="#FFFFFF">搞定啦</font><font color="#FFFFFF"><br>
</font><br>
<br><a href="index.asp">返 回</a> <a href="javascript:self.close()">关闭窗口</a>
</center></body>
</html>
<%end sub%>
<%sub error()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<title>输 入 有 错 </title>
</head>
<body>
<br><br><center><font size=4 >你不是站长，不能回复喽！</font><br>
<br><br><a href="display.asp">返 回</a> <a href="javascript:self.close()">关闭窗口</a>
</center></body>
</html>
<%end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -