?? gb_info_back.asp
字號:
<!--#include file="admin_check.asp"-->
<%dim dbpath
dbpath="../"
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../include/MyRequest.asp"-->
<%
id=my_request("guest_info_id",1)
if id="" or isnull(id) or IsNumeric(id)=False then
response.write("<script>alert(""參數(shù)錯(cuò)誤!"");location.href=""GB_Info_List.asp"";</script>")
response.end
end if
sql="select * from guest_info where guest_info_id="&id
set rs=conn.execute (sql)
guest_info_name=rs("guest_info_name")
guest_info_email=rs("guest_info_email")
guest_info_qq=rs("guest_info_qq")
guest_info_detail=rs("guest_info_detail")
guest_info_time=rs("guest_info_time")
guest_info_ip=rs("guest_info_ip")
guest_info_BackDetail=rs("guest_info_BackDetail")
rs.close
set rs=nothing
action=my_request("action",0)
if action="save" then
call save()
end if
sub save()
id =my_request("guest_info_id",1)
guest_info_email =my_request("guest_info_email",0)
guest_info_qq =my_request("guest_info_qq",0)
guest_info_detail =my_request("guest_info_detail",0)
guest_info_BackDetail=my_request("guest_info_BackDetail",0)
if id="" or guest_info_detail="" then
call error()
else
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from guest_info where guest_info_id="&id
rs.open sql,conn,1,3
rs("guest_info_email") =guest_info_email
rs("guest_info_qq") =guest_info_qq
rs("guest_info_detail") =guest_info_detail
rs("guest_info_BackDetail")=guest_info_BackDetail
rs("guest_info_BackTime") =now()
rs.update
rs.close
set rs=nothing
call ok("您已成功回復(fù)/更新了一條留言信息!","GB_Info_List.asp")
end if
end sub
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言信息-回復(fù)</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<table cellspacing="1" cellpadding="4" width="100%" class="tableborder">
<tbody class="altbg2">
<form name="form1" action="gb_info_back.asp" method="post">
<input type="hidden" name="action" value="save">
<input type="hidden" name="guest_info_id" value="<%=id%>">
<tr>
<td colspan="2" class="header">留言信息-回復(fù)</td>
</tr>
<tr>
<td>留言人IP:</td>
<td><%=guest_info_IP%></td>
</tr>
<tr>
<td>留言時(shí)間:</td>
<td><%=guest_info_time%></td>
</tr>
<tr>
<td>留言人姓名:</td>
<td><%=guest_info_name%></td>
</tr>
<tr>
<td>電子郵件:</td>
<td>
<input type="text" name="guest_info_email" size="30" value="<%=guest_info_email%>"></td>
</tr>
<tr>
<td>Q Q 號碼:</td>
<td>
<input type="text" name="guest_info_qq" size="30" value="<%=guest_info_qq%>"></td>
</tr>
<tr>
<td>留言內(nèi)容:</td>
<td><textarea rows="8" name="guest_info_detail" cols="60"><%=guest_info_detail%></textarea></td>
</tr>
<tr>
<td>回復(fù)內(nèi)容:</td>
<td><textarea rows="8" name="guest_info_BackDetail" cols="60"><%=guest_info_BackDetail%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value=" 提 交 " name="Submit1">
<input type="reset" value="重置" name="B2">
</td>
</tr>
</form>
</tbody>
</table>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -