家庭/个人应用

开发平台：
ASP/ASPX

savead1.asp：源码内容
							<%@ CODEPAGE = "936" %>
<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<!--#include file="../checkpost.asp"-->
<!--#include file="inc/function.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<%
    dim upad
    dim upad2
    dim centerad
    dim downad
    dim softad
    
	dim leftxf
	dim rightxf
	dim fullxf
	dim imgxf
	dim xfimg
	dim xfurl
	dim xftxt
	dim sql
	dim rs
	dim founderr
	founerr=false
	if founderr=false then
	   if request("upad")="" then
	   upad=null
	   else
	   upad=request("upad")
	   end if
	    
	   if request("upad2")="" then
	   upad2=null
	   else
	   upad2=request("upad2")
	   end if
	   if request("centerad")="" then
	   centerad=null
	   else
	   centerad=request("centerad")
	   end if
	   if request("downad")="" then
	   downad=null
	   else
	   downad=request("downad")
	   end if
	   if request("softad")="" then
	   softad=null
	   else
	   softad=request("softad")
	   end if
'============悬浮广告判断(创新下载.xdani)==========	   
		leftxf=request("leftxf")
		rightxf=request("rightxf")
		fullxf=request("fulltxf")
	   	if request.form("leftxf")="on" then
		   leftxf=1
		else
		   leftxf=0
		end if
		
	   	if request.form("rightxf")="on" then
		   rightxf=1
		else
		   rightxf=0
		end if
		
	   	if request.form("fullxf")="on" then
		   fullxf=1
		else
		   fullxf=0
		end if
	    imgxf=request("imgxf")
	    xfimg=request("xfimg")
	    xfurl=request("xfurl")
	    xftxt=request("xftxt")
'===================结束=========================
	set rs=server.createobject("adodb.recordset")
	sql="select * from indexad"
	rs.open sql,conn,3,3
	rs("upad")=upad
	rs("upad2")=upad2
	rs("centerad")=centerad
	rs("downad")=downad
	rs("softad")=softad
	rs("leftxf")=leftxf
	rs("rightxf")=rightxf
	rs("fullxf")=fullxf
	rs("imgxf")=imgxf
	rs("xfimg")=xfimg
	rs("xfurl")=xfurl
	rs("xftxt")=xftxt
	rs.update
	set rs=nothing
	conn.close
	set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线支付接口设置</title>
<link href="inc/Admin_STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<body>
<p align="center">&nbsp;</p>
<form name="pay" method="post" action="online_pay_save.asp">
  <div align="center"><br>
    <table cellpadding="2" cellspacing="1" border="0" width="90%" class="border" align=center>
      <tr align="center" bgcolor="#429AEF"> 
        <td height=25 colspan=2 ><p align="center"><b><font color="#345b9c">
          <%if request("action")="add" then%>
          <%else%>
          <%end if%>
        </font></b>                  <strong><font color="#FFFFFF">广告修改成功</font></strong> 
      <tr> 
        <td height=117 colspan="2"  class="tdbg"><div align="center"><a href="ads.asp">数据已保存请返回</a></div>          </td>
      </tr>
    </table>
    <br>
    <font color="#00FFFF"> <br>
　    </font></div>
  </form>
  <%
else
 response.write "由于以下的原因不能保存数据："
 response.write errmsg
end if
%>
<%if makejs=1 then%>
<%end if%>
<%if classid=10 then%>
<%end if%>
</body>
</html>

						