📄 savereply.asp

📁 中介之家房产中介系统 V4.0企业共享版

💻 ASP

字号:

<%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="config.asp" -->
<%
Set rs10= Server.CreateObject("ADODB.Recordset")
sql0="select * from admin where id=1"
rs10.open sql0,conn,1,3
admin=rs10("admin")
password=rs10("password")
user=trim(request("username"))
	passwd=cstr(Request("password"))

 if passwd=password and user=admin then
 rs10.close
reply=request("txtreply")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from enet where gbookid="&request("gbookid")
rs.open sql,conn,1,3

		rs("reply")=reply
		rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
%>
<meta http-equiv=refresh content="1; url=index.asp">
<title>回复成功</title><BODY bgcolor="#ffffff"  text="#000000" link="#000080" alink="#800000" vlink="#2f2f4f" marginheight=0 marginwidth=0 topmargin=10 leftmargin=20 rightmargin=0>
<p>&nbsp;</p><p align="center"><font size="2">Please Wait......</font></p>
<p align="center"><font size="2">回复成功！二秒钟后系统自动返回留言簿页面</font></p>
<%
 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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -