ADsEdit.asp
上传用户:dbstep
上传日期:2022-08-06
资源大小:2803k
文件大小:7k
源码类别:

WEB源码(ASP,PHP,...)

开发平台:

ASP/ASPX

  1. <HTML>
  2. <HEAD>
  3. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  4. <TITLE>编辑广告</TITLE>
  5. <link rel="stylesheet" href="Images/CssAdmin.css">
  6. <script language="javascript" src="../skweb/JS/Admin.js"></script>
  7. </HEAD>
  8. <!--#include file="../skweb/ConnSiteData.asp" -->
  9. <!--#include file="../skweb/Const.asp" -->
  10. <!--#include file="../skweb/Md5.asp"-->
  11. <!--#include file="CheckAdmin.asp"-->
  12. <%
  13. if Instr(session("AdminPurview"),"|91,")=0 then 
  14.   response.write ("<font color='red')>你不具有该管理模块的操作权限,请返回!</font>")
  15.   response.end
  16. end if
  17. '========判断是否具有管理权限
  18. %>
  19. <BODY>
  20. <% 
  21. dim Result
  22. Result=request.QueryString("Result")
  23. dim ID,ADsName,ViewFlag,Content,FiewFlag
  24. dim ADsWidth,ADsHeight,Adurl,BigPic
  25. ID=request.QueryString("ID")
  26. call ADsEdit() 
  27. %>
  28. <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  29.   <tr>
  30.     <td height="29" nowrap background="Images/menutitle.gif">&nbsp;<strong>广告:添加,修改广告相关的内容</strong></td>
  31.   </tr>
  32.   <tr>
  33.     <td height="24" align="center" nowrap  bgcolor="#EBF2F9"><a href="ADsEdit.asp?Result=Add" onClick='changeAdminFlag("添加广告")'>添加广告 </a><font color="#0000FF">&nbsp;</font>|<font color="#0000FF">&nbsp;</font><a href="ADsList.asp" onClick='changeAdminFlag("广告列表")'> 查看广告</a></td>
  34.   </tr>
  35. </table>
  36. <br>
  37. <table width="100%" border="0" cellpadding="3"  >
  38.   <form name="editForm" method="post" action="ADsEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
  39.   <tr>
  40.     <td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" id=editProduct idth="100%">
  41.       <tr>
  42.         <td width="120" height="20" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  43.         <td bgcolor="#FFFFFF">&nbsp;</td>
  44.       </tr>
  45.       <tr>
  46.         <td height="20" align="right" bgcolor="#FFFFFF">广告标题:</td>
  47.         <td bgcolor="#FFFFFF"><input name="ADsName" type="text" class="textfield" id="ADsName" style="WIDTH: 240;" value="<%=ADsName%>" maxlength="100">&nbsp;发布:<input name="ViewFlag" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1" <%if ViewFlag then response.write ("checked")%>>
  48. &nbsp;*&nbsp;不少于3个字符</td>
  49.       </tr>
  50.       <tr>
  51.         <td height="20" align="right" bgcolor="#FFFFFF">广告类别:</td>
  52.         <td bgcolor="#FFFFFF"><input name="fiewFlag" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1" <%if fiewFlag then response.write ("checked")%>>
  53. &nbsp;*&nbsp;勾选为FLASH/不勾选为图片格式</td>
  54.       </tr>
  55.       <tr>
  56.         <td height="20" align="right" bgcolor="#FFFFFF">尺寸:</td>
  57.         <td bgcolor="#FFFFFF"><input name="ADsWidth" type="text" class="textfield" id="ADsWidth" style="WIDTH: 60;" value="<%=ADsWidth%>" maxlength="4" onKeyDown="if(event.keyCode==13)event.returnValue=false" onChange="if(/D/.test(this.value)){alert('宽度和高度只能输入整数!');this.value='150';}">&nbsp;宽×高&nbsp;<input name="ADsHeight" type="text" class="textfield" id="ADsHeight" style="WIDTH: 60;" value="<%=ADsHeight%>" maxlength="4" onKeyDown="if(event.keyCode==13)event.returnValue=false" onChange="if(/D/.test(this.value)){alert('宽度和高度只能输入整数!');this.value='100';}">&nbsp;*&nbsp;至少150×100像素</td>
  58.       </tr>
  59.       <tr>
  60.         <td height="20" align="right" bgcolor="#FFFFFF">广告图片:</td>
  61.         <td bgcolor="#FFFFFF"><input name="BigPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=BigPic%>" maxlength="100">&nbsp;<a href="javaScript:OpenScript('UpFileForm.asp?Result=BigPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  62.       </tr>
  63.       <tr>
  64.         <td height="20" align="right" bgcolor="#FFFFFF">广告链接:</td>
  65.         <td bgcolor="#FFFFFF"><input name="Adurl" type="text" class="textfield" id="Adurl" style="WIDTH: 240;" value="<%=Adurl%>" maxlength="100">
  66.         &nbsp;请输入绝对路径如:http://www.skcms.net/index.asp</td>
  67.       </tr>
  68.       <tr>
  69.         <td height="20" align="right" valign="top" bgcolor="#FFFFFF">信息内容:<br>
  70.         <td bgcolor="#FFFFFF"><textarea name="Content" rows="12" class="textfield" id="Content" style="WIDTH: 86%;" ><%=Content%></textarea></td>
  71.       </tr>
  72.       <tr>
  73.         <td height="30" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  74.         <td valign="bottom" bgcolor="#FFFFFF"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
  75.       </tr>
  76.     </table></td>
  77.   </tr>
  78.   </form>
  79. </table>
  80. </BODY>
  81. </HTML>
  82. <%
  83. sub ADsEdit()
  84.   dim Action,rsCheckAdd,rs,sql
  85.   Action=request.QueryString("Action")
  86.   if Action="SaveEdit" then '保存编辑管理员信息
  87.     set rs = server.createobject("adodb.recordset")
  88.     if len(trim(request.Form("ADsName")))<3 then
  89.       response.write ("<script language=javascript> alert('广告标题为必填项目!');history.back(-1);</script>")
  90.       response.end
  91.     end if
  92. if trim(request.Form("ADsWidth"))="" or trim(request.Form("ADsHeight"))="" then
  93.       response.write ("<script language=javascript> alert('广告规格必须为150×100像素以上!');history.back(-1);</script>")
  94.       response.end
  95. end if
  96. if trim(request.Form("ADsWidth"))<10 or trim(request.Form("ADsHeight"))<10 then
  97.       response.write ("<script language=javascript> alert('广告规格必须为150×100像素以上!');history.back(-1);</script>")
  98.       response.end
  99. end if
  100.     if Result="Add" then '创建网站管理员
  101.   sql="select * from sk_ADs"
  102.       rs.open sql,conn,1,3
  103.       rs.addnew   
  104.       rs("BigPic")=trim(Request.Form("BigPic"))
  105.       rs("Adurl")=trim(Request.Form("Adurl"))
  106.       rs("ADsName")=trim(Request.Form("ADsName"))
  107.   rs("Content")=Request.Form("Content")
  108.   if Request.Form("FiewFlag")=1 then
  109.         rs("FiewFlag")=Request.Form("FiewFlag")
  110.   else
  111.         rs("FiewFlag")=0
  112.   end if
  113.   if Request.Form("ViewFlag")=1 then
  114.         rs("ViewFlag")=Request.Form("ViewFlag")
  115.   else
  116.         rs("ViewFlag")=0
  117.   end if
  118.   rs("Content")=Request.Form("Content")
  119.   rs("ADsWidth")=trim(Request.Form("ADsWidth"))
  120.   rs("ADsHeight")=trim(Request.Form("ADsHeight"))
  121.   rs("AddTime")=now()
  122. end if  
  123. if Result="Modify" then '修改网站管理员
  124.       sql="select * from sk_ADs where ID="&ID
  125.       rs.open sql,conn,1,3
  126.       rs("BigPic")=trim(Request.Form("BigPic"))
  127.   rs("Adurl")=trim(Request.Form("Adurl"))
  128.       rs("ADsName")=trim(Request.Form("ADsName"))
  129.   if Request.Form("FiewFlag")=1 then
  130.         rs("FiewFlag")=Request.Form("FiewFlag")
  131.   else
  132.         rs("FiewFlag")=0
  133.   end if
  134.   if Request.Form("ViewFlag")=1 then
  135.         rs("ViewFlag")=Request.Form("ViewFlag")
  136.   else
  137.         rs("ViewFlag")=0
  138.   end if
  139.   rs("Content")=Request.Form("Content")
  140.   rs("ADsWidth")=trim(Request.Form("ADsWidth"))
  141.   rs("ADsHeight")=trim(Request.Form("ADsHeight"))
  142. end if
  143. rs.update
  144. rs.close
  145.     set rs=nothing 
  146.      Response.Redirect("Tips/ads.asp")
  147.   else '提取管理员信息
  148. if Result="Modify" then
  149.       set rs = server.createobject("adodb.recordset")
  150.       sql="select * from sk_ADs where ID="& ID
  151.       rs.open sql,conn,1,1
  152.       BigPic=rs("BigPic")
  153.   Adurl=rs("Adurl")
  154.   ADsName=rs("ADsName")
  155.   FiewFlag=rs("FiewFlag")
  156.   ViewFlag=rs("ViewFlag")
  157.   ADsWidth=rs("ADsWidth")
  158.   ADsHeight=rs("ADsHeight")
  159.       Content=rs("Content")
  160.   rs.close
  161.       set rs=nothing 
  162. end if
  163.   end if
  164. end sub
  165. %>