📄 paymodify.asp

📁 if you want it,call me.
💻 ASP
字号:
<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改付款方式</title>
<link  href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:13964489818
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
function html(constring)
        constring=replace(constring,CHR(13),"")
		constring=replace(constring,CHR(10),"<br>")
		constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
		html=constring
end function
if Trim(request.QueryString("action"))="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from payment where id="&request("id"),conn,2,3
rs("bank")=trim(request.form("bank"))
rs("account")=html(trim(request.form("account")))
rs.update
rs.close

filename="../fkfs.htm"
	set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename&""))
	    sql="select top 1 * from mb order by id desc"
		rs.open sql,conn,1,1
		mb1=rs("mb2")
		rs.close
		sql="select top 1 * from ad order by id desc"
		rs.open sql,conn,1,1
		if not rs.eof then
		pic1=rs("pic")
		url1=rs("url")
		end if
		rs.close
		banner="<a href="&url1&" target=blank><img src="&pic1&" width=486 height=60 border=0>"
		mb1=replace(mb1,"[banner]",banner)
		
	
	fk1="<table width=90% height=92 border=0 align=center cellpadding=0 cellspacing=1 class=tabbgcolorli>"
    sql="select * from payment order by id desc"
	rs.open sql,conn,1,1
	if rs.eof then
	fk2="暂时没有付款方式"
	else
	do while not rs.eof
	fk2=fk2&"<tr bgcolor=#FFFFFF><td width='100%'>银行:"&rs("bank")&"</td></tr><tr bgcolor=#FFFFFF><td width='100%'>"&rs("account")&"</td></tr>"
   rs.movenext
	loop
	end if
	 rs.close
	fk3="</table>"
	fk=fk1&fk2&fk3
	mb1=replace(mb1,"[biaozhi]",fk)
	
	title="付款方式"
	mb1=replace(mb1,"[title]",title)
	
	title1="<a href=fkfs.htm>付款方式</a>"
	mb1=replace(mb1,"[title1]",title1)
	
	title2="如果您有其他付款方式，请联系我们，谢谢！"
	mb1=replace(mb1,"[title2]",title2)
	
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
set rs=nothing
response.Redirect("pay.asp")
end if
%>
<div align="center">
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="mainmiddle">
        <tr> 
          <td width="29" height="32"> <div align="left"> 
              <p class="maindaohang">&nbsp;</p>
            </div></td>
          <td width="709"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <b><font color="#000000"><b> <span class="bigNavi">修改送货方式</span>　　　　　　　　　　　　　　</b></font></b></td>
          <td width="8" class="mainrights"></td>
        </tr>
      </table>
	  <%
	  function chtml(constring)
        constring=replace(constring,"",CHR(13))
		constring=replace(constring,"<br>",CHR(10))
		constring=replace(constring,"</p><p>",CHR(10)&CHR(10))
		chtml=constring
end function
songid=request("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from payment where id="&songid
rs.open sql,conn,1,1
%>
	  <form method="POST" name="formadd" action="paymodify.asp?action=save">      
    <table width="95%" height="64" border="0" align="center" cellpadding="3" cellspacing="1" class="tabbgcolor">
      <tr class="tabbgcolorli"> 
        <td width="17%" height="20"> <div align="center">汇款银行</div></td>
        <td width="83%" height="20">　 
          <input type="text" name="bank" size="20" class="border" value="<%=rs("bank")%>"> 
		  <input name="id" type="hidden" id="id" value="<%=request("id")%>"><div align="center"></div></td>
      </tr>
      <tr class="tabbgcolorli"> 
        <td width="17%" height="20"> <div align="center">汇款账号</div></td>
        <td width="83%" height="20">　   
         <textarea name="account" cols="66" rows="6" class="border"><%=chtml(rs("account"))%></textarea>
          全方位支持html语言   
          <div align="center"></div></td>
      </tr>
      <tr class="tabbgcolorli"> 
        <td height="20" colspan="2"> <div align="center"></div>
          　 
          <div align="left"> 　　　　　　　　　　　　　　　 
            <input type="submit" value="提交" name="tijiao" class="border">
            　　　　 
            <input type="reset" value="重写" name="chongxie" class="border">
          </div></td>
      </tr>
    </table>
	  </form>
	  <%
rs.close
set rs=nothing
%>
    </div>	
</body>
</html>
⌨️ 快捷键说明

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