📄 paymode.asp

📁 亿众购物系统一套设计完善、高效的web商城解决方案
💻 ASP
字号:
<!--#include file="../Session.asp"-->
<!--#include file="../inc/Ubbhtml.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>亿众购系统--管理支付方式</title>
<link href="../../css/site.css" rel="stylesheet" type="text/css">
<script language="javascript">
	<!--//
	function check() {

		if ( document.form.PayMode.value == '' ) {
			window.alert('请输入付款方式!!');
			document.form.PayMode.focus();
			return false;
		}
		if ( document.form.Text.value == '' ) {
			window.alert('请输入付款说明!!');
			document.form.Text.focus();
			return false;
		}
		if ( document.form.Text.value.length>500 ) {
			window.alert('付款说明限500字内!!');
			document.form.Text.focus();
			return false;
		}
			return true;
			}
	//-->
</script>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
    <tr> 
    <td height="50" colspan="3" valign="middle" align="center" class="tdstyle"><font color="#000000" size="3"><strong>付款方式列表</strong></font></td>
    </tr>
	<%
	sql="select * from PayMode where Sort=0 order by id"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then
		Response.Write("<tr><td height=30 colspan=3 valign=middle align=center class=text>暂无付款方式，请及时添加！</tr></td>")
	else
	%> 
    <tr> 
    <td width="25%" height="25" align="center" class="tdstyle"><strong>付款方式名称</strong></td>
    <td align="center" class="tdstyle"><strong>详细信息</strong></td>
    <td width="10%" align="center" class="tdstyle"><strong>删 除</strong></td>
    </tr>
	<%for i=1 to rs.recordcount%>
    <tr> 
    <td align="center" valign="middle" class="tdstyle"><%=rs("PayMode")%></td>
    <td valign="middle" class="tdstyle">
	<%dim Text1
	Text1 = rs("Text")
	Text1=ubbcode(Text1)
	Text1 = Replace(Text1, "&lt;br&gt;", "<br>")
	Text1 = Replace(Text1, chr(10), "<br>")
	Text1 = Replace(Text1, vbCrLf, "<br>")
	Response.Write Text1%>
	</td>
	 <td align="center" class="tdstyle"><input name="submit" type="button" class="button2" value="删 除" onClick="window.location='?Act=del&id=<%=rs("id")%>'"></td>
    </tr>
	<%rs.movenext
	next
	rs.close
	end if%>
</table>
<form action="?Act=set" method="post" name="form" id="form" >
	<%Dim Text2
	set rs = conn.execute("select * from PayMode where Sort=1")
	if not rs.eof then
		PayMode=rs("PayMode")
		PayMode=rs("PayMode")
		PayId=rs("PayId")
		PayKey=rs("PayKey")
		PayUrl1=rs("PayUrl1")
		PayUrl2=rs("PayUrl2")
		Text2=rs("Text")
		Text2=ubbcode(Text2)
	end if
	rs.close
	%>
  <table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
    <tr> 
      <td height="50" colspan="2" valign="middle" align="center" class="tdstyle"><font color="#000000" size="3"><strong>网银支付设置</strong></font></td>
    </tr>
    <tr> 
      <td width="25%" height="25" align="right" class="tdstyle">网银名称：</td>
      <td valign="middle" class="tdstyle"> <input name="PayMode" type="text" class="input1" id="PayMode" value="<%=PayMode%>" size="15" maxlength="50" readonly="true">
       </td>
    </tr>
    <tr> 
      <td height="25" align="right" valign="middle" class="tdstyle">支付ID号：</td>
      <td valign="middle" class="tdstyle"> <input name="PayId" type="text" class="input1" id="PayId"  value="<%=PayId%>"  size="15" maxlength="50">
        请填写您在网银在线的商户号</td>
    </tr>
    <tr> 
      <td height="25" align="right" valign="middle" class="tdstyle">支付密钥：</td>
      <td valign="middle" class="tdstyle"> <input name="PayKey" type="text" class="input1" id="PayKey"  value="<%=PayKey%>"  size="15" maxlength="50">
        部分网银需要支付密匙</td>
    </tr>
	<tr> 
      <td height="25" align="right" valign="middle" class="tdstyle">连接地址：</td>
      <td valign="middle" class="tdstyle"> <input name="PayUrl1" type="text" class="input1" id="PayUrl1"  value="<%=PayUrl1%>"  size="52" maxlength="100">
        ＊(此项一般不需要修改,只有在网银接口改动时才改动)</td>
    </tr>
	<tr> 
      <td height="25" align="right" valign="middle" class="tdstyle">返回地址：</td>
      <td valign="middle" class="tdstyle"> <input name="PayUrl2" type="text" class="input1" id="PayUrl2"  value="<%=PayUrl2%>"  size="52" maxlength="100">
        ＊(以文件夹ac作为网站的根目录)</td>
    </tr>
	<tr> 
      <td height="25" align="right" valign="middle" class="tdstyle">相关介绍：</td>
      <td valign="middle" class="tdstyle"> <textarea name="Text" cols="50" rows="3" class="input1" id="Text"><%=Text2%></textarea>
        ＊</td>
    </tr>
    <tr> 
      <td height="30" colspan="2" align="center" class="tdstyle"> 
        <input type="submit" name="Submit" value="修 改" class="button" ONCLICK="javascript:return check()">
      </td>
    </tr>
  </table>
</form>
<form action="?Act=add" method="post" name="form" id="form" >
  <table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
    <tr> 
      <td height="50" colspan="2" valign="middle" align="center" class="tdstyle"><font color="#000000" size="3"><strong>添加付款方式</strong></font></td>
    </tr>
    <tr> 
      <td width="25%" height="25" align="right" class="tdstyle">付款方式：</td>
      <td valign="middle" class="tdstyle"> <input name="PayMode" type="text" class="input1" id="PayMode" size="15" maxlength="10"> 如：建行银行、邮政汇款</td>
    </tr>
    <tr> 
      <td height="200" align="right" valign="middle" class="tdstyle">付款说明：</td>
      <td valign="middle" class="tdstyle"> <textarea name="Text" cols="58" rows="8" class="input1" id="Text"></textarea><br><br> ＊请填写银行帐号/户名或汇款地址及注意事宜<br></td>
    </tr>
    <tr> 
      <td height="30" colspan="2" align="center" class="tdstyle"> 
        <input type="submit" name="Submit" value="添 加" class="button" ONCLICK="javascript:return check()"> 　
       <input type="button" name="Submit2" value="返 回" class="button" onClick="history.go(-1)"> 
      </td>
    </tr>
  </table>
</form>
<br><br><br>
<%
if request("Act")="del" then
	conn.execute("Delete From PayMode where Id="&request("id")&"")
	Response.Write("<script>alert(""删除成功"");location.href=""PayMode.asp"";</script>")
end if
if request("Act")="set" then
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "PayMode where Sort=1", conn, 1, 2
	if rs.eof then
		rs.AddNew
		rs("PayMode") = Request("PayMode")
		rs("PayId") = Request("PayId")
		rs("PayKey") = Request("PayKey")
		rs("PayUrl1") = Request("PayUrl1")
		rs("PayUrl2") = Request("PayUrl2")
		rs("Text") = Request("Text")
		rs("Sort") =1
		rs.Update
		rs.close
		conn.close
		set rs=nothing
		set conn=nothing
		Response.Write("<script>alert(""修改成功"");location.href=""PayMode.asp"";</script>")
	else
		rs("PayMode") = Request("PayMode")
		rs("PayId") = Request("PayId")
		rs("PayKey") = Request("PayKey")
		rs("PayUrl1") = Request("PayUrl1")
		rs("PayUrl2") = Request("PayUrl2")
		rs("Text") = Request("Text")
		rs.Update
		rs.close
		conn.close
		set rs=nothing
		set conn=nothing
		Response.Write("<script>alert(""修改成功"");location.href=""PayMode.asp"";</script>")
	end if
end if
if request("Act")="add" then
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "PayMode", conn, 1, 2
	rs.AddNew
	rs("PayMode") = Request("PayMode")
	rs("Text") = Request("Text")
	rs.Update
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	Response.Write("<script>alert(""添加成功"");location.href=""PayMode.asp"";</script>")
end if
%>
💿 文件大小 4030 K
👤 上传用户 jxsflq
📂 所属分类百货/超市行业
🏷️ 相关标签

#web #商城 #方案
⌨️ 快捷键说明

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