📄 admin_shop_pay.asp

📁 后台登陆admin.asp
💻 ASP
字号:
<!--#include file="mdb.asp"-->
<%Admin="shop"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<%

'****************************************************
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin.asp';</script>")
  response.end
end if%>
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<TITLE>管理中心—货款支付方式管理</TITLE>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%action=request("action")
if action="" then%>
<% 
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from shop_pay"
rs.open sql,conn,1,3
%>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form" method="post" action="admin_shop_pay.asp?action=ps">
<tr><td class=Hxcmsss align="center" colspan="4">货款支付方式设置（没有请留空）</td></tr>
<tr class=Hxcmsds>
<td width="80">支付方式一：</td><td width="130"><input type="text" name="payment1" size="15" value="<%=rs("payment1")%>" class=input></td>
<td width="80">相关介绍：</td><td width="*"><textarea cols=40 name='pay1' class=input><%=rs("pay1")%></textarea>
</td>
</tr>
<tr class=Hxcmsds>
<td width="80">支付方式二：</td><td width="130"><input type="text" name="payment2" size="15" value="<%=rs("payment2")%>" class=input></td>
<td width="80">相关介绍：</td><td width="*"><textarea cols=40 name='pay2' class=input><%=rs("pay2")%></textarea></td>
</tr>
<tr class=Hxcmsds>
<td width="80">支付方式三：</td><td width="130"><input type="text" name="payment3" size="15" value="<%=rs("payment3")%>" class=input></td>
<td width="80">相关介绍：</td><td width="*"><textarea cols=40 name='pay3' class=input><%=rs("pay3")%></textarea></td>
</tr>
<tr class=Hxcmsds>
<td width="80">支付方式四：</td><td width="130"><input type="text" name="payment4" size="15" value="<%=rs("payment4")%>" class=input></td>
<td width="80">相关介绍：</td><td width="*"><textarea cols=40 name='pay4' class=input><%=rs("pay4")%></textarea></td>
</tr>
<tr class=Hxcmsds>
<td width="80">支付方式五：</td><td width="130"><input type="text" name="payment5" size="15" value="<%=rs("payment5")%>" class=input></td>
<td width="80">相关介绍：</td><td width="*"><textarea cols=40 name='pay5' class=input><%=rs("pay5")%></textarea></td>
</tr>
<tr class=Hxcmsqs><td align="center" colspan="4"><input type="submit" name="Submit" value="提 交 设 置" class="button">
</td></tr>
</form>
</table>
<%rs.close
else
end if%>
<%if action="ps" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from shop_pay"
rs.open sql,conn,1,3
rs("payment1")=Trim(Request.Form("payment1"))
rs("pay1")=Trim(Request.Form("pay1"))
rs("payment2")=Trim(Request.Form("payment2"))
rs("pay2")=Trim(Request.Form("pay2"))
rs("payment3")=Trim(Request.Form("payment3"))
rs("pay3")=Trim(Request.Form("pay3"))
rs("payment4")=Trim(Request.Form("payment4"))
rs("pay4")=Trim(Request.Form("pay4"))
rs("payment5")=Trim(Request.Form("payment5"))
rs("pay5")=Trim(Request.Form("pay5"))
rs.update
rs.close
response.Redirect "admin_shop_pay.asp?提示=修改数据操作成功"
%>
<%else
set rs=nothing
end if

'****************************************************
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -