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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
DownEdit.asp
资源名称：1.rar　[点击查看]
上传用户：yrf020
上传日期：2007-07-24
资源大小：1287k
文件大小：7k
源码类别：

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

开发平台：

HTML/CSS

DownEdit.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  3. <% Option Explicit %>
  4. <HTML xmlns="http://www.w3.org/1999/xhtml">
  5. <HEAD>
  6. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  7. <META NAME="copyright" CONTENT="Copyright 2006-2008 - Hokilly.com-STUDIO" />
  8. <META NAME="Author" CONTENT="红金羚软件,www.hokilly.com" />
  9. <META NAME="Keywords" CONTENT="" />
  10. <META NAME="Description" CONTENT="" />
  11. <TITLE>编辑下载</TITLE>
  12. <link rel="stylesheet" href="Images/CssAdmin.css">
  13. <script language="javascript" src="../Script/Admin.js"></script>
  14. <style type="text/css">
  15. <!--
  16. .STYLE1 { font-size: medium;
  17. font-weight: bold;
  18. color: #ff0000;
  19. }
  20. -->
  21. </style>
  22. </HEAD>
  23. <!--#include file="../Include/Const.asp" -->
  24. <!--#include file="../Include/ConnSiteData.asp" -->
  25. <!--#include file="CheckAdmin.asp"-->
  26. <%
  27. Dim SERVER_NAME
  28. SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
  29. if  (SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"")or(SERVER_NAME=  ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"") then
  30. if Instr(session("AdminPurview"),"|53,")=0 then 
  31.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  32.   response.end
  33. end if
  34. '========判断是否具有管理权限
  35. %>
  36. <BODY>
  37. <p>&nbsp;</p>
  38. <p class="STYLE1">免费版不提供此功能！请联系Tel:13915064582
  39.   或者QQ:15916190 购买商业正式版！</p>
  40. <p>详情请见：<a href="http://www.hokilly.com" target="_blank">http://www.hokilly.com</a></p>
  41. <p>常州红金羚软件技术有限公司 </p>
  42. <p>&nbsp;</p>
  43. </body>
  44. </html> 
  45. <%
  46. else
  47. response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&">"
  48. response.end%>
  49. <%end if%>
  50. <%
  51. sub DownEdit()
  52.   dim Action,rsRepeat,rs,sql
  53.   Action=request.QueryString("Action")
  54.   if Action="SaveEdit" then '保存编辑下载信息
  55.     set rs = server.createobject("adodb.recordset")
  56.     if len(trim(request.Form("DownNameCh")))<1 then
  57.       response.write ("<script language=javascript> alert('名称为必填项目！');history.back(-1);</script>")
  58.       response.end
  59.     end if
  60.     if Result="Add" then '创建下载信息
  61.   sql="select * from CompanyCMS_Download"
  62.       rs.open sql,conn,1,3
  63.       rs.addnew
  64.       rs("DownNameCh")=trim(Request.Form("DownNameCh"))
  65.   if Request.Form("ViewFlagCh")=1 then
  66.         rs("ViewFlagCh")=Request.Form("ViewFlagCh")
  67.   else
  68.         rs("ViewFlagCh")=0
  69.   end if
  70.    if Request.Form("SortID")="" and Request.Form("SortPath")="" then
  71.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  72.         response.end
  73.   else
  74.     rs("SortID")=Request.Form("SortID")
  75. rs("SortPath")=Request.Form("SortPath")
  76.   end if
  77.   if Request.Form("CommendFlag")=1 then
  78.         rs("CommendFlag")=Request.Form("CommendFlag")
  79.   else
  80.         rs("CommendFlag")=0
  81.   end if
  82.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  83.   rs("GroupID")=GroupIdName(0)
  84.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  85.   rs("FileSize")=trim(Request.Form("FileSize"))
  86.   rs("FileUrl")=trim(Request.Form("FileUrl"))
  87.   rs("ContentCh")=Request.Form("ContentCh")
  88.   rs("UploadFiles")=trim(Request.Form("UploadFiles"))
  89.   rs("AddTime")=now()
  90.   rs("UpdateTime")=now()
  91. end if  
  92. if Result="Modify" then '修改下载信息
  93.       sql="select * from CompanyCMS_Download where ID="&ID
  94.       rs.open sql,conn,1,3
  95.       rs("DownNameCh")=trim(Request.Form("DownNameCh"))
  96.   if Request.Form("ViewFlagCh")=1 then
  97.         rs("ViewFlagCh")=Request.Form("ViewFlagCh")
  98.   else
  99.         rs("ViewFlagCh")=0
  100.   end if
  101.   if Request.Form("SortID")<>"" and Request.Form("SortPath")<>"" then
  102.     rs("SortID")=Request.Form("SortID")
  103. rs("SortPath")=Request.Form("SortPath")
  104.   else
  105.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  106.         response.end
  107.   end if
  108.   if Request.Form("CommendFlag")=1 then
  109.         rs("CommendFlag")=Request.Form("CommendFlag")
  110.   else
  111.         rs("CommendFlag")=0
  112.   end if
  113.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  114.   rs("GroupID")=GroupIdName(0)
  115.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  116.   rs("FileSize")=trim(Request.Form("FileSize"))
  117.   rs("FileUrl")=trim(Request.Form("FileUrl"))
  118.   rs("ContentCh")=Request.Form("ContentCh")
  119.   rs("UploadFiles")=trim(Request.Form("UploadFiles"))
  120.   rs("UpdateTime")=now()
  121. end if
  122. rs.update
  123. rs.close
  124.     set rs=nothing 
  125.     response.write "<script language=javascript> alert('成功编辑下载信息！');changeAdminFlag('下载列表');location.replace('DownList.asp');</script>"
  126.   else '提取产品信息
  127. if Result="Modify" then
  128.       set rs = server.createobject("adodb.recordset")
  129.       sql="select * from CompanyCMS_Download where ID="& ID
  130.       rs.open sql,conn,1,1
  131.       if rs.bof and rs.eof then
  132.         response.write ("数据库读取记录出错！")
  133.         response.end
  134.       end if
  135.   DownNameCh=rs("DownNameCh")
  136.   ViewFlagCh=rs("ViewFlagCh")
  137.   SortNameCh=SortText(rs("SortID"))
  138.   SortID=rs("SortID")
  139.   SortPath=rs("SortPath")
  140.   CommendFlag=rs("CommendFlag")
  141.   GroupID=rs("GroupID")
  142.   Exclusive=rs("Exclusive")
  143.   FileSize=rs("FileSize")
  144.   FileUrl=rs("FileUrl")
  145.       ContentCh=rs("ContentCh")
  146.   UploadFiles=rs("UploadFiles")
  147.   rs.close
  148.       set rs=nothing 
  149.     end if
  150.   end if
  151. end sub
  152. %>
  153. <% 
  154. sub SelectGroup()
  155.   dim rs,sql
  156.   set rs = server.createobject("adodb.recordset")
  157.   sql="select GroupID,GroupNameCh from CompanyCMS_MemGroup"
  158.   rs.open sql,conn,1,1
  159.   if rs.bof and rs.eof then
  160.     response.write("未设组别")
  161.   end if
  162.   while not rs.eof
  163.     response.write("<option value='"&rs("GroupID")&"┎╂┚"&rs("GroupNameCh")&"'")
  164.     if GroupID=rs("GroupID") then response.write ("selected")
  165.     response.write(">"&rs("GroupNameCh")&"</option>")
  166.     rs.movenext
  167.   wend
  168.   rs.close
  169.   set rs=nothing
  170. end sub
  171. %>
  172. <%
  173. '生成所属类别--------------------------
  174. Function SortText(ID)
  175.   Dim rs,sql
  176.   Set rs=server.CreateObject("adodb.recordset")
  177.   sql="Select * From CompanyCMS_DownSort where ID="&ID
  178.   rs.open sql,conn,1,1
  179.   SortText=rs("SortNameCh")
  180.   rs.close
  181.   set rs=nothing
  182. End Function
  183. %>