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 + -
显示快捷键?