开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
DownEdit.asp
资源名称：52ccc55a371572d86a7d2c6992a2591b.rar　[点击查看]
上传用户：dbstep
上传日期：2022-08-06
资源大小：2803k
文件大小：15k
源码类别：

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

开发平台：

ASP/ASPX

DownEdit.asp：源码内容
  1. <HTML xmlns="http://www.w3.org/1999/xhtml">
  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/Const.asp" -->
  9. <!--#include file="../skweb/ConnSiteData.asp" -->
  10. <!-- #include file="../fckeditor/fckeditor.asp" -->
  11. <!--#include file="CheckAdmin.asp"-->
  12. <%
  13. if Instr(session("AdminPurview"),"|53,")=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,DownName,ViewFlag,SortName,SortID,SortPath
  24. dim SmallPic,BigPic,softClass,approof,star,language,accmode
  25. dim FileSize,FileUrl,CommendFlag,GroupID,GroupIdName,Exclusive,Content
  26. ID=request.QueryString("ID")
  27. call DownEdit() 
  28. %>
  30. <table width="100%" border="0" cellpadding="3" >
  31.   <form name="editForm" method="post" action="DownEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
  32.   <tr>
  33.     <td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" id=editDown idth="100%">
  35.    <tr>
  36.         <td height="29" colspan="2" background="Images/menutitle.gif" bgcolor="#FFFFFF"><table width="470" border="0" cellspacing="0" cellpadding="0">
  37.           <tr>
  38.             <td width="121"><strong><font color="#000000" size="2">下载管理</font></strong></td>
  39.             <td width="87"><a href="DownEdit.asp?Result=Add"><img src="Images/x1.gif" width="52" height="17" border="0"></a></td>
  40.             <td width="87"><a href="DownList.asp"><img src="Images/xlm.gif" width="52" height="17" border="0"></a></td>
  41.             <td width="87"><a href="DownSort.asp"><img src="Images/xx.gif" width="52" height="17" border="0"></a></td>
  42.             <td width="88">&nbsp;</td>
  43.           </tr>
  44.         </table></td>
  45.       </tr>
  46.       <tr>
  47.         <td height="20" align="right" bgcolor="#FFFFFF">下载名称：</td>
  48.         <td bgcolor="#FFFFFF"><input name="DownName" type="text" class="textfield" id="DownName" style="WIDTH: 240;" value="<%=DownName%>" maxlength="100">&nbsp;*&nbsp;不少于3个字符
  49.     <input name="ViewFlag" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1" <%if ViewFlag then response.write ("checked")%>>
  50.     &nbsp;发布 
  51.     <input name="CommendFlag" type="checkbox" style="HEIGHT: 13px;WIDTH: 13px;" value="1" <%if CommendFlag then response.write ("checked")%>>
  52. &nbsp;推荐</td>
  53.       </tr>
  54.       <tr>
  55.         <td height="24" align="right" bgcolor="#FFFFFF">所属类别：</td>
  56.         <td bgcolor="#FFFFFF"><input name="SortID" type="text" class="textfield" id="SortID" style="WIDTH: 40;background-color:#EBF2F9;" value="<%=SortID%>" readonly>&nbsp;<input name="SortPath" type="text" class="textfield" id="SortPath" style="WIDTH: 80;background-color:#EBF2F9;" value="<%=SortPath%>" readonly>&nbsp;<input name="SortName" type="text" class="textfield" id="SortName" value="<%=SortName%>" style="WIDTH: 140;background-color:#EBF2F9;" readonly>&nbsp;<a href="javaScript:OpenScript('SelectSort.asp?Result=Download',500,500,'')"><img src="Images/Select.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  57.       </tr>
  58.       <tr>
  59.         <td height="20" align="right" bgcolor="#FFFFFF">查看权限：</td>
  60.         <td bgcolor="#FFFFFF"><select name="GroupID" class="textfield">
  61.             <% call SelectGroup() %>
  62.           </select>
  63.             <input name="Exclusive" type="radio" value="&gt;="  <%if Exclusive="" or Exclusive=">=" then response.write ("checked")%>>
  64.           隶属
  65.           <input type="radio"  <%if Exclusive="=" then response.write ("checked")%> name="Exclusive" value="=">
  66.           专属 [隶属：权限值≥可查看，专属：权限值＝可查看]</td>
  67.       </tr>
  68.    <tr> 
  69.     <td height="25" align="right" valign="middle" bgcolor="#FFFFFF">授权方式：</td>
  70.     <td valign="middle" bgcolor="#FFFFFF"> 
  71.     <select name="accmode">
  72.   <%if accmode="免费软件" then%>
  73.    <option value="免费软件" selected> 免费软件</option>
  74. <%else%>
  75.    <option value="免费软件">免费软件</option>
  76. <%end if%>
  77. <%if accmode="共享软件" then%>
  78. <option value="共享软件" selected> 共享软件</option>
  79. <%else%>
  80. <option value="共享软件">共享软件</option>
  81. <%end if%>
  82. <%if accmode="破解软件" then%>
  83. <option value="破解软件" selected> 破解软件</option>
  84. <%else%>
  85. <option value="破解软件"> 破解软件</option>
  86. <%end if%>
  87. <%if accmode="商业软件" then%>
  88. <option value="商业软件" selected> 商业软件</option>
  89. <%else%>
  90. <option value="商业软件"> 商业软件</option>
  91. <%end if%>
  92.   </select>&nbsp;&nbsp;&nbsp;语言界面：
  93.   <select name="language">
  94.   <%if language="简体中文" then%>
  95.    <option value="简体中文" selected>简体中文</option>
  96.   <%else%>
  97.    <option value="简体中文">简体中文</option>
  98.   <%end if%>
  99.   <%if language="繁体中文" then%>
  100. <option value="繁体中文" selected>繁体中文</option>
  101.   <%else%>
  102. <option value="繁体中文">繁体中文</option>
  103.   <%end if%>
  104.   <%if language="英语" then%>
  105. <option value="英语" selected>英语</option>
  106.   <%else%>
  107. <option value="英语">英语</option>
  108.   <%end if%>
  109.   <%if language="多国语言" then%>
  110.    <option value="多国语言" selected>多国语言</option>
  111.   <%else%>
  112.    <option value="多国语言">多国语言</option>
  113.   <%end if%>
  114.   <%if language="其它语言" then%>
  115.    <option value="其它语言" selected>其它语言</option>
  116.   <%else%>
  117.    <option value="其它语言">其它语言</option>
  118.   <%end if%>
  119.   </select>   </td>
  120.   </tr>
  121.   <tr> 
  122.     <td height="25" align="right" valign="middle" bgcolor="#FFFFFF">软件评级：</td>
  123.     <td valign="middle" bgcolor="#FFFFFF"> 
  124. <select name="star">
  125.   <%if Cint(star)=1 then%>
  126.    <option value="1" selected>★☆☆☆☆</option>
  127.   <%else%>
  128.    <option value="1">★☆☆☆☆</option>
  129.   <%end if%>
  130.   <%if Cint(star)=2 then%>
  131. <option value="2" selected>★★☆☆☆</option>
  132.   <%else%>
  133. <option value="2">★★☆☆☆</option>
  134.   <%end if%>
  135.   <%if Cint(star)=3 then%>
  136. <option value="3" selected>★★★☆☆</option>
  137.   <%else%>
  138. <option value="3">★★★☆☆</option>
  139.   <%end if%>
  140.   <%if Cint(star)=4 then%>
  141. <option value="4" selected>★★★★☆</option>
  142.   <%else%>
  143. <option value="4">★★★★☆</option>
  144.   <%end if%>
  145.   <%if Cint(star)=5 then%>
  146. <option value="5" selected>★★★★★</option>
  147.   <%else%>
  148. <option value="5">★★★★★</option>
  149.   <%end if%>
  150.   </select>   </td>
  151.   </tr>
  152.   <tr> 
  153.     <td height="25" align="right" valign="middle" bgcolor="#FFFFFF">运行环境：</td>
  154.     <td valign="middle" bgcolor="#FFFFFF"> <input type="text" name="approof" class="textfield" id="approof" size="30" value="<%=approof%>"> <a href="javascript:" onClick="approof.value+='Win9x'">Win9x</a>|<a href="javascript:" onClick="approof.value+='/WinNT'">WinNT</a>|<a href="javascript:" onClick="approof.value+='/WinNT'">Win2K</a>|<a href="javascript:" onClick="approof.value+='/WinXP'">WinXP</a>|<a href="javascript:" onClick="approof.value+='/Win2003'">Win2003</a>|<a href="javascript:" onClick="approof.value+='/其它'">其它</a></td>
  155.   </tr>
  156.   <tr> 
  157.     <td height="25" align="right" valign="middle" bgcolor="#FFFFFF">演示地址：</td>
  158.     <td valign="middle" bgcolor="#FFFFFF"> <input type="text" name="softClass" class="textfield" size="30" value="<%=softClass%>"><a href="javascript:" onClick="softClass.value+='暂无演示'">暂无演示</a></td>
  159.   </tr>
  160.       <tr>
  161.         <td height="20" align="right" bgcolor="#FFFFFF">下载地址一：</td>
  162.         <td bgcolor="#FFFFFF"><input name="FileUrl" type="text" class="textfield" style="WIDTH: 240;" value="<%=FileUrl%>" maxlength="100">&nbsp;<a href="javaScript:OpenScript('UpFileForm.asp?Result=FileUrl',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  163.       </tr>
  164.       <tr>
  165.         <td height="20" align="right" bgcolor="#FFFFFF">文件大小：</td>
  166.         <td bgcolor="#FFFFFF"><input name="FileSize" type="text" class="textfield" id="FileSize" style="WIDTH: 240;" value="<%=FileSize%>" maxlength="100"></td>
  167.       </tr>
  168.       <tr>
  169.         <td height="20" align="right" bgcolor="#FFFFFF">下载地址二：</td>
  170.         <td bgcolor="#FFFFFF"><input name="SmallPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=SmallPic%>" maxlength="100">&nbsp;<a href="javaScript:OpenScript('UpFileForm.asp?Result=SmallPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  171.       </tr>
  172.       <tr>
  173.         <td height="20" align="right" bgcolor="#FFFFFF">文件主图：</td>
  174.         <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>
  175.       </tr>
  176.       <tr>
  177.         <td height="20" align="right" valign="top" bgcolor="#FFFFFF">信息内容：<br>
  178.         <td bgcolor="#FFFFFF"><%
  179. Dim oFCKeditor
  180. Set oFCKeditor = New FCKeditor
  181. oFCKeditor.BasePath = "../fckeditor/" 
  182. oFCKeditor.ToolbarSet = "Default" 
  183. oFCKeditor.Width = "100%" 
  184. oFCKeditor.Height = "400" 
  185. oFCKeditor.Value = content
  186. oFCKeditor.Create "Content" 
  187. %></td>
  188.       </tr>
  189.       <tr>
  190.         <td height="30" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  191.         <td valign="bottom" bgcolor="#FFFFFF"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
  192.       </tr>
  193.     </table></td>
  194.   </tr>
  195.   </form>
  196. </table>
  197. </BODY>
  198. </HTML>
  199. <%
  200. sub DownEdit()
  201.   dim Action,rsRepeat,rs,sql
  202.   Action=request.QueryString("Action")
  203.   if Action="SaveEdit" then '保存编辑下载信息
  204.     set rs = server.createobject("adodb.recordset")
  205.     if len(trim(request.Form("DownName")))<3 then
  206.       response.write ("<script language=javascript> alert('下载名称为必填项目！');history.back(-1);</script>")
  207.       response.end
  208.     end if
  209.     if len(trim(request.Form("approof")))<1 then
  210.       response.write ("<script language=javascript> alert('运行环境为必填项目！');history.back(-1);</script>")
  211.       response.end
  212.     end if
  213.     if len(trim(request.Form("softClass")))<1 then
  214.       response.write ("<script language=javascript> alert('演示地址为必填项目！');history.back(-1);</script>")
  215.       response.end
  216.     end if
  218.     if Result="Add" then '创建下载信息
  219.   sql="select * from sk_Download"
  220.       rs.open sql,conn,1,3
  221.       rs.addnew
  222.       rs("DownName")=trim(Request.Form("DownName"))
  223.   if Request.Form("ViewFlag")=1 then
  224.         rs("ViewFlag")=Request.Form("ViewFlag")
  225.   else
  226.         rs("ViewFlag")=0
  227.   end if
  228.   if Request.Form("SortID")="" and Request.Form("SortPath")="" then
  229.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  230.         response.end
  231.   else
  232.     rs("SortID")=Request.Form("SortID")
  233. rs("SortPath")=Request.Form("SortPath")
  234.   end if
  235.   if Request.Form("CommendFlag")=1 then
  236.         rs("CommendFlag")=Request.Form("CommendFlag")
  237.   else
  238.         rs("CommendFlag")=0
  239.   end if
  240.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  241.   rs("GroupID")=GroupIdName(0)
  242.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  243.   rs("accmode")=trim(Request.Form("accmode"))
  244.   rs("language")=trim(Request.Form("language"))
  245.   rs("star")=trim(Request.Form("star"))
  246.   rs("approof")=trim(Request.Form("approof"))   
  247.   rs("softClass")=trim(Request.Form("softClass"))
  248.   rs("FileSize")=trim(Request.Form("FileSize"))
  249.   rs("FileUrl")=trim(Request.Form("FileUrl"))
  250.   rs("SmallPic")=trim(Request.Form("SmallPic"))
  251.   rs("BigPic")=trim(Request.Form("BigPic"))   
  252.   rs("Content")=Request.Form("Content")
  253.   rs("AddTime")=now()
  254. end if  
  255. if Result="Modify" then '修改下载信息
  256.       sql="select * from sk_Download where ID="&ID
  257.       rs.open sql,conn,1,3
  258.       rs("DownName")=trim(Request.Form("DownName"))
  259.   if Request.Form("ViewFlag")=1 then
  260.         rs("ViewFlag")=Request.Form("ViewFlag")
  261.   else
  262.         rs("ViewFlag")=0
  263.   end if
  264.   if Request.Form("SortID")<>"" and Request.Form("SortPath")<>"" then
  265.     rs("SortID")=Request.Form("SortID")
  266. rs("SortPath")=Request.Form("SortPath")
  267.   else
  268.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  269.         response.end
  270.   end if
  271.   if Request.Form("CommendFlag")=1 then
  272.         rs("CommendFlag")=Request.Form("CommendFlag")
  273.   else
  274.         rs("CommendFlag")=0
  275.   end if
  276.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  277.   rs("GroupID")=GroupIdName(0)
  278.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  279.   rs("accmode")=trim(Request.Form("accmode"))
  280.   rs("language")=trim(Request.Form("language"))
  281.   rs("star")=trim(Request.Form("star"))
  282.   rs("approof")=trim(Request.Form("approof"))   
  283.   rs("softClass")=trim(Request.Form("softClass"))
  284.   rs("FileSize")=trim(Request.Form("FileSize"))
  285.   rs("FileUrl")=trim(Request.Form("FileUrl"))
  286.   rs("SmallPic")=trim(Request.Form("SmallPic"))
  287.   rs("BigPic")=trim(Request.Form("BigPic"))   
  288.   rs("Content")=Request.Form("Content")
  289. end if
  290. rs.update
  291. rs.close
  292.     set rs=nothing 
  293.       Response.Redirect("Tips/down.asp")
  294.   else '提取产品信息
  295. if Result="Modify" then
  296.       set rs = server.createobject("adodb.recordset")
  297.       sql="select * from sk_Download where ID="& ID
  298.       rs.open sql,conn,1,1
  299.       if rs.bof and rs.eof then
  300.         response.write ("数据库读取记录出错！")
  301.         response.end
  302.       end if
  303.   DownName=rs("DownName")
  304.   ViewFlag=rs("ViewFlag")
  305.   SortName=SortText(rs("SortID"))
  306.   SortID=rs("SortID")
  307.   SortPath=rs("SortPath")
  308.   CommendFlag=rs("CommendFlag")
  309.   GroupID=rs("GroupID")
  310.   Exclusive=rs("Exclusive")
  311.   accmode=rs("accmode")
  312.   language=rs("language")
  313.   star=rs("star")
  314.   approof=rs("approof")  
  315.   softClass=rs("softClass")
  316.   FileSize=rs("FileSize")
  317.   FileUrl=rs("FileUrl")
  318.   SmallPic=rs("SmallPic")
  319.   BigPic=rs("BigPic")
  320.       Content=rs("Content")
  321.   rs.close
  322.       set rs=nothing 
  323.     end if
  324.   end if
  325. end sub
  326. %>
  327. <% 
  328. sub SelectGroup()
  329.   dim rs,sql
  330.   set rs = server.createobject("adodb.recordset")
  331.   sql="select GroupID,GroupName from sk_MemGroup"
  332.   rs.open sql,conn,1,1
  333.   if rs.bof and rs.eof then
  334.     response.write("未设组别")
  335.   end if
  336.   while not rs.eof
  337.     response.write("<option value='"&rs("GroupID")&"┎╂┚"&rs("GroupName")&"'")
  338.     if GroupID=rs("GroupID") then response.write ("selected")
  339.     response.write(">"&rs("GroupName")&"</option>")
  340.     rs.movenext
  341.   wend
  342.   rs.close
  343.   set rs=nothing
  344. end sub
  345. %>
  346. <%
  347. '生成所属类别--------------------------
  348. Function SortText(ID)
  349.   Dim rs,sql
  350.   Set rs=server.CreateObject("adodb.recordset")
  351.   sql="Select * From sk_DownSort where ID="&ID
  352.   rs.open sql,conn,1,1
  353.   SortText=rs("SortName")
  354.   rs.close
  355.   set rs=nothing
  356. End Function
  357. %>