savereply.asp
来自「俄罗斯方块另类.zip - 又一个俄罗斯方块的代码(转)用vc写的著名游戏俄罗斯」· ASP 代码 · 共 29 行
ASP
29 行
<%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="config.asp" -->
<%
user=trim(request("username"))
passwd=cstr(Request("password"))
if passwd=username and user=password then
reply=request("txtreply")
replytime=now()
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from iZzgbook where gbookid="&request("gbookid")
rs.open sql,conn,1,3
rs("reply")=reply
rs("rltime")=replytime
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
response.redirect "index.asp"
else
response.write "<link rel='stylesheet' type='text/css' href='../style/style.css'>"
response.write "<body bgcolor='#ffffff'>"
response.write "<P align=center><font color=#ff0000>Sorry,请输入正确的管理员名字和密码</font>"
response.end
end if
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?