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

www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_pay.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
%>
<%
pay_id=request("pay_id")
if request("action")="add" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from venshop_pay",conn,1,3
rs.AddNew
rs("pay_name")=request("pay_name")
rs("pay_content")=request("pay_content")
rs.Update
rs.Close
set rs=nothing
call addok(addt,"ad_pay.asp","ad_pay.asp")
end if

if request("action")="edit" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_pay where pay_id="&pay_id&"",conn,1,3
rs("pay_name")=request("pay_name")
rs("pay_content")=request("pay_content")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_pay.asp","ad_pay.asp")
end if

if request("action")="del" then
conn.execute "delete from venshop_pay where pay_id="&pay_id
call deleok(delet,"ad_pay.asp")
end if
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<tr><td align="center" class="sa">付款方式</td><td align="center" class="sa">说明介绍</td><td align="center" class="sa">操作</td></tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_pay",conn,1,1
i=0
do while not rs.eof
i=i+1%><form method="post" action="ad_pay.asp?action=edit&pay_id=<%=rs("pay_id")%>">
  <tr><td align="center" class="s<%=i mod 2%>" valign="top"><input name="pay_name" type="text" size="13" value="<%=rs("pay_name")%>"></td>
	  <td align="center" class="s<%=i mod 2%>" valign="top"><textarea rows="3" name="pay_content" cols="29"><%=rs("pay_content")%></textarea></td>
	  <td align="center" class="s<%=i mod 2%>" valign="top"><input type="submit" name="Submit" value="修改"><br><br><a href=ad_pay.asp?action=del&pay_id=<%=rs("pay_id")%> onClick="return confirm('您确定进行删除操作吗？')">删除</a></td>
</tr></form>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table><br>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form method="post"  action="ad_pay.asp?action=add">
  <tr> 
    <td align="center" class="sa">添加付款方式</td>
    <td align="center" class="sa">说明介绍</td>
    <td align="center" class="sa"></td>
  </tr>
  <tr> 
    <td align="center" bgcolor="#FFFFFF" valign="top"><input name="pay_name" type="text" size="11"></td>
    <td align="center" bgcolor="#FFFFFF" valign="top"><textarea rows="2" name="pay_content" cols="21"></textarea></td>
    <td align="center" bgcolor="#FFFFFF" valign="top"><input type="submit" name="Submit2" value="添 加"></td>
  </tr>
</form></table>
<br><div class="help">
备注：<br>此付款方式对应前台客户下订单时选择的付款方式，客户可以选择适当的付款方式。</div><!--#include file="ad_bottom.asp"-->