数据库编程

开发平台：
ASP/ASPX

PayParam.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<%
dim Conn,User_Conn,rs,str_c_isp,str_c_user,str_c_pass,str_c_url,str_domain,rs_param,str_c_gurl,strShowErr
MF_Default_Conn
MF_User_Conn
MF_Session_TF
	if not MF_Check_Pop_TF("ME_Pay") then Err_Show 
	if not MF_Check_Pop_TF("ME042") then Err_Show 
	
set rs_param=Conn.execute("select top 1 MF_Domain from FS_MF_Config")
str_domain=rs_param(0)
rs_param.close:set rs_param=nothing
set rs= Server.CreateObject(G_FS_RS)
rs.open "select top 1 c_isp,c_user,c_pass,c_url,c_gurl From  FS_ME_Pay",User_Conn,1,3
if rs.eof then
	str_c_isp = 0
	str_c_user = ""
	str_c_pass = ""
	str_c_url = "http://"&str_domain&"/"&G_USER_DIR&"/Return_pay.asp"
	str_c_gurl = ""
else
	str_c_isp = rs("c_isp")
	str_c_user = rs("c_user")
	str_c_pass = rs("c_pass")
	str_c_url = rs("c_url")
	str_c_gurl = rs("c_gurl")
end if
rs.close:set rs=nothing
if Request.Form("Action")="save" then
	set rs= Server.CreateObject(G_FS_RS)
	rs.open "select top 1 id,c_isp,c_user,c_pass,c_url,c_gurl From  FS_ME_Pay",User_Conn,1,3
	if rs.eof then
		rs.addnew
	end if
	rs("c_isp")=0
	rs("c_user")=trim(Request.Form("c_user"))
	rs("c_pass")=trim(Request.Form("c_pass"))
	rs("c_url")=trim(Request.Form("c_url"))
	rs("c_gurl")=trim(Request.Form("c_gurl"))
	rs.update
	rs.close:set rs=nothing
	strShowErr = "<li>保存成功</li>"
	Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=User/PayParam.asp")
	Response.end
end if
%>
</HEAD>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes>
  
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  <form name="form1" method="post" action="">
    <tr> 
      <td colspan="3" class="xingmu">在线支付设置</td>
    </tr>
    <tr> 
      <td colspan="3" class="hback"><a href="PayParam.asp">在线支付参数设置</a>┆<a href="Order_Pay.asp">支付定单管理</a></td>
    </tr>
    <tr> 
      <td width="19%" class="hback"><div align="right">在线支付ISP</div></td>
      <td width="14%" class="hback"><select name="c_isp" id="c_isp">
          <option value="0" <%if str_c_isp=0 then response.Write("selected")%>>云网支付@网</option>
          <option value="">易宝支付(需定制)</option>
          <option value="">网银在线支付(需定制)</option>
          <option value="">支付宝(需定制)</option>
        </select> </td>
      <td width="67%" class="hback"> <div align="right"></div>
        <a href="https://www.cncard.net/merchant.asp?pmid=1000447" target="_blank"><script language="javascript" src="https://www.cncard.net/merchantlogo.asp?pmid=1008687"></script></a> 
      </td>
    </tr>
    <tr> 
      <td class="hback"><div align="right">商户号</div></td>
      <td colspan="2" class="hback"><input name="c_user" type="text" id="c_user" value="<%=str_c_user%>"></td>
    </tr>
    <tr> 
      <td class="hback"><div align="right">商户支付密钥</div></td>
      <td colspan="2" class="hback"><input name="c_pass" type="password" id="c_pass" value="<%=str_c_pass%>"></td>
    </tr>
    <tr>
      <td class="hback"><div align="right">提交定单信息到地址</div></td>
      <td colspan="2" class="hback"><input name="c_gurl" type="text" id="c_gurl" value="<%=str_c_gurl%>" size="50"></td>
    </tr>
    <tr> 
      <td class="hback"><div align="right">交易成功返回地址</div></td>
      <td colspan="2" class="hback"><input name="c_url" type="text" id="c_url" value="<%=str_c_url%>" size="50">
        请尽量不要修改，否则将无法验证定单信息。</td>
    </tr>
    <tr> 
      <td class="hback">&nbsp;</td>
      <td colspan="2" class="hback"><input type="submit" name="Submit" value="保存参数"> 
        <input name="Action" type="hidden" id="Action" value="save"></td>
    </tr>
    <tr> 
      <td colspan="3" class="hback"><span class="tx">注意：推荐使用安全高效低佣金的<a href="https://www.cncard.net/merchant.asp?pmid=1008687 " title="支付@网,,点击开始注册！风讯的推荐，敬请放心使用">云网支付@网</a>。如果您选择云网在线支付即可使用现成的支付程序进行支付，无须进行定制。</span></td>
    </tr>
  </form>
</table>
</body>
</html>
<%
Conn.close:set conn=nothing
User_Conn.close:set User_Conn=nothing
%>

						