savereply.asp

来自「中介之家房产中介系统 V4.0企业共享版」· ASP 代码 · 共 38 行

ASP
38 行
字号 
<%@ 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
%>

savereply.asp - 源码说明

本页面展示了「中介之家房产中介系统 V4.0企业共享版」中的 savereply.asp 源码文件，采用 ASP 编程语言编写，共 38 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与4.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?