📄 admin_paytype.asp
字号:
<!--#include file="../Comm/subconn.asp"-->
<%
username=request("username")
id=request("id")
action=request("action")
dim cls
if session("admin")="" then
Response.Redirect("admin.asp")
else
if session("flag")<>"0" then
cls = Instr(session("flag"), "paytype")
if cls <= 0 then
%>
<script language="javascript">
if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
location.href="admin.asp";
else
location.href="quit.asp";
</script>
<%
end if
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>管理界面</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
.b{color:#cccc99;font-size:10pt;border:dotted 1px}
--></style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
//-->
</SCRIPT>
</head>
<body bgcolor="#336699" background="../images/bggreen.gif" text=#ffffff topmargin="0">
<!--#include file="top.asp"-->
<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="772" height="150" bgcolor="#336699" align="center">
<tr><td width=125 valign="top">
<!--#include file="admin_left.asp"-->
</td><td valign="top" width=647>
<table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
<tr>
<td width="100%">当前位置:<a href="admin.asp">网站管理中心</a>--支付方式设置</td>
</tr>
<tr>
<td width="100%" align=right><!--a href="admin_paytype.asp?action=add"><font color=yellow><b>增加类别</b></font></a--> </td></tr>
<tr>
<td width="100%">
<%if action="" then
Set rs = conn.Execute("select * from Paydefault")
m=1
do while not rs.eof
%>
<table width="95%" border="1" style="border-collapse: collapse;border:dotted 1px" bordercolor="#333333" cellspacing="2" cellpadding="2" align="center">
<form action=admin_paytype.asp method=post name=paytype<%=m%>>
<tr><td width=100 align=right>支付类别 <font color=yellow><b><%=m%></b></font></td><td> <input type=text value="<%=rs("paytype")%>" name=paytype></td></tr>
<tr><td align=right>提示信息说明</td><td><TEXTAREA NAME="paymentmessage" ROWS="4" COLS="55"><%=rs("paymentmessage")%></TEXTAREA></td></tr>
<tr><td align=right>类别</td><td>
<% if rs("paymark")="1" then %>
<INPUT TYPE="radio" NAME="paymark" checked value=1>是网上支付 <INPUT TYPE="radio" NAME="paymark" value=0>非网上支付<tr><td align=right>网上支付URL</td><td><input type=text value="<%=rs("payurl")%>" name=payurl size=60></td></tr>
<%else
%>
<INPUT TYPE="radio" NAME="paymark" value=1>是网上支付 <INPUT TYPE="radio" NAME="paymark" checked value=0>非网上支付<tbody style="display:none"><tr>
<tr><td align=right>网上支付URL</td><td><input type=text value="<%=rs("payurl")%>" name=payurl size=60></td></tr></tbody>
<%end if%>
<tr><td colspan=2 align=right><INPUT name=action TYPE="submit" value=修改> <INPUT name=action TYPE="submit" value=删除></td></tr>
<INPUT TYPE="hidden" name=id value=<%=rs("ID")%>></form></table><br>
<%
rs.movenext
m=m+1
loop
rs.close
conn.close
set rs=nothing
set conn=nothing
end if%>
<%
'显示权限详细信息
if action="add" then
response.write "<script language='javascript'>"
response.write "alert('添加成功！');"
response.write "</script>"
Response.Redirect "admin_paytype.asp"
end if%>
<%
'修改 后返回参数提交数据库
if action="修改" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Paydefault where ID="&request("id")
rs.open sql,conn,1,3
rs("paytype")=request.form("paytype")
rs("paymentmessage")=request.form("paymentmessage")
rs("paymark")=request.form("paymark")
rs("payurl")=request.form("payurl")
rs.update
url="admin_paytype.asp"
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('支付类型更新成功！');"
response.write "location.href='"&url&"';"
response.write "</script>"
' Response.Redirect"admin_paytype.asp?action=detail&username="&Request("username")
end if%>
<%
'删除 后返回参数提交数据库
if action="删除" then
username=request("username")
id=request("id")
Dim StrSQL
StrSQL="delete from Paydefault where id="&id
conn.Execute StrSQL
conn.close
Response.Redirect"admin_paytype.asp"
end if%>
</td></tr></table>
</td></tr>
<tr>
<td height="10" align=center colspan="2">程序美工设计：九江市大地广告策划中心<%=sitever%></td>
</tr>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -