📄 guest.asp
字号:
<html><head>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache"></head>
<%
subject = request("sub")
name = request("name")
text = request("text")
action = request("action")
if (action <> "add") then
set fin = Server.CreateObject("Scripting.FileSystemObject")
filepath = Server.MapPath("guest.txt")
set f = fin.OpenTextFile(filepath)
buf = f.readAll
response.write(buf)
f.close
end if
if (action = "add") then
set fin = Server.CreateObject("Scripting.FileSystemObject")
filepath = Server.MapPath("guest.txt")
set f = fin.OpenTextFile(filepath)
line = f.readline
total = int(mid(line,8))
buf = f.readAll
f.close
set fout = Server.CreateObject("Scripting.FileSystemObject")
Application.lock
filepath = Server.MapPath("guest.txt")
set f = fout.CreateTextFile(filepath,TRUE)
total = total + 1
f.writeline "&total="&total
f.writeline "&sub"&total&"="&subject
f.writeline "&name"&total&"="&name
f.writeline "&text"&total&"="&text
f.write buf
f.close
Application.unlock
response.write("&added=1")
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -