ad_gbpost.asp 凡人网络购物系统 2008源码程序 - ASP源码程序

www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_gbpost.asp
    <!--#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>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<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
call editok(editt,"ad_gb.asp","ad_gb.asp")
end if
if action="del" then
id=request("id")
Dim StrSQL
StrSQL="delete from venshop_gb where id="&id&""
conn.Execute StrSQL
call deleok(delet,"ad_gb.asp")
end if%><!--#include file="ad_bottom.asp"-->