?? 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 topmargin="0" bgcolor="#336699" text=#ffffff>
<!--#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><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"> </td>
</tr>
</table>
</body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -