ad_gbpost.asp

凡人网络购物系统 v8.0 中文版

<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="95%">
<%action=request("action")%>
<%id=request("id")%>
<%if action="" then%>参数调用出错！<%else%><%end if%>
<%if action="re" then%>
<tr><td width="100%"><a href="ad_gb.asp">留言簿管理</a> - 回复留言:</td></tr>
<form method="POST" action="ad_gbpost.asp?action=repost&id=<%=id%>">
<tr><td width="100%">
<textarea rows="9" name="re" cols="36">Thanks!</textarea><br>
<br>
<input type="submit" value="提交" name="B1"></td></tr></form>
<%end if%></table>
<%if action="repost" then
id=request("id")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from venshop_gb where id="&id&""
rs.open sql,conn,1,3
rs("re")=Request("re")
rs.update
rs.close
set rs=nothing
Response.Redirect"ad_gb.asp"
Response.end
end if
if action="del" then
id=request("id")
Dim StrSQL
StrSQL="delete from venshop_gb where id="&id&""
conn.Execute StrSQL
Response.Redirect("ad_gb.asp")
Response.end
end if%><table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:[phone]&nbsp; QQ:57152557/5404818 Email/Msn:</font><a href="mailto:[e-mail]"><font color="#FF0000">[e-mail]</font></a></td>
</tr></table>