📄 gb_info_back.asp

📁 多多网店系统v3.01 完全免费可用版-功能简介: 支持多模板皮肤色切换[8套] 支持按商品特性[推荐商品/特价商品/新品分类]浏览支持按商品类别浏览支持单件商品用支付宝交易按钮直接支付订

💻 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(""参数错误!"");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("您已成功回复/更新了一条留言信息！","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>留言信息-回复</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">留言信息-回复</td>
	</tr>
	<tr>
		<td>留言人IP：</td>
		<td><%=guest_info_IP%></td>
	</tr>
	<tr>
		<td>留言时间：</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>留言内容：</td>
		<td><textarea rows="8" name="guest_info_detail" cols="60"><%=guest_info_detail%></textarea></td>
	</tr>
	<tr>
		<td>回复内容：</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">&nbsp; 
		   <input type="reset" value="重置" name="B2">
		</td>
	</tr>
</form>
</tbody>
</table>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -