?? gbookhf.asp
字號:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,id
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>參數錯誤！"
response.end
end if
dim gbook2
gbook2=trim(request("memo"))
set rs=server.createobject("adodb.recordset")
sql = "select gbook2,hfsj,hf from gbook where id="&cstr(id)
rs.open sql,conn,1,3
if request("chk")="1" then
savehf
end if
%>
<meta http-equiv="Content-Language" content="zh-cn">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<title>回復留言</title>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="180" height="35">
<form action="?id=<%=id%>&chk=1" method="POST">
<tr>
<td width="181" height="10">
<p align="center">回復內容</td>
</tr>
<tr>
<td width="181" height="20">
<p align="center">
<textarea rows="7" name="memo" cols="22"><%if request("chk")="2" then%><%=rs("gbook2")%><%end if%></textarea></td>
</tr>
<tr>
<td width="180" height="6">
<p align="center">
<input type="submit" value="提交" name="B1" style="color: #FFFFFF; border: 1px solid #000000; background-color: #666666"></td>
</tr>
</form>
</table>
</center>
</div>
<%
sub savehf()
rs("gbook2")=gbook2
rs("hfsj")=now()
rs("hf")=1
rs.update
rs.close
set rs=nothing
response.write "<li>回復成功！"
cl
response.end
end sub
closedb
%>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 2000)">
<%end sub%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -