📄 reply.asp

📁 在线点播音乐的功能只提供参考

💻 ASP

字号:

<%@ CODEPAGE = "936" %>

<%

if Session.Contents("thegbmaster")="yes" then

keyword=Request("keyword")
page=Request("page")
pagesize=Request("pagesize")

	if Request("reply")<> "" then

		set conn=server.createobject("adodb.connection")
		DBPath = Server.MapPath("../db/e-style.mdb")
		conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
		Set rs = Server.CreateObject("ADODB.Recordset")
		sql="select * from guestbook where id=" & request("id")
		rs.Open sql,conn,3,2

		if not rs.EOF then
		rs("reply")=Request("reply")
		rs.Update
		msg="回复成功。"
		else
		msg="没有这条留言。"
		end if
		rs.Close
		set rs=nothing
		conn.Close
		set conn=nothing
		Response.Redirect "index.asp?pagesize=" & pagesize & "&keyword=" & keyword & "&page=" & page & "&msg=" & msg
	else%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>E-style工作室留言本</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body>
<form action=reply.asp method=post>
<input type="hidden" name="keyword" value="<%=keyword%>">
<input type="hidden" name="page" value="<%=page%>">
<input type="hidden" name="pagesize" value="<%=pagesize%>">
<input type="hidden" name="id" value="<%=Request("id")%>">
<TEXTAREA class="input" rows=5 cols=40 name="reply"></TEXTAREA>
<INPUT type="submit" class="backc" value="确定" id=submit1 name=submit1>
</form>
</body>

</html>
<%
	end if
	
else
msg="您不是管理员，不能修改留言。"
Response.Redirect "index.asp?pagesize=" & pagesize & "&keyword=" & keyword & "&page=" & page & "&msg=" & msg
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -