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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
DownloadList.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：63k
源码类别：

数据库编程

开发平台：

ASP/ASPX

DownloadList.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_InterFace/HS_Function.asp" -->
  5. <!--#include file="../../FS_Inc/Function.asp" -->
  6. <!--#include file="../../FS_Inc/Func_Page.asp" -->
  7. <%'Copyright (c) 2006 Foosun Inc. Code by awen ueuo.cn
  8. Response.Buffer = True
  9. Response.Expires = -1
  10. Response.ExpiresAbsolute = Now() - 1
  11. Response.Expires = 0
  12. Response.CacheControl = "no-cache"
  13. Dim Conn,User_Conn,DS_Rs,DS_Sql ,DS_Rs1,DS_Sql1 ,sRootDir,str_CurrPath,fileDirRule,fileNameRule,sys_FileExtName
  14. Dim AutoDelete,Months
  15. MF_Default_Conn 
  16. MF_User_Conn        
  17. MF_Session_TF
  18. if not MF_Check_Pop_TF("Down_List") then Err_Show
  19. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  20. if Session("Admin_Is_Super") = 1 then
  21. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR 
  22. Else
  23. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  24. End if
  26. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  27. int_RPP=15 '设置每页显示数目
  28. int_showNumberLink_=10 '数字导航显示数目
  29. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  30. str_nonLinkColor_="#999999" '非热链接颜色
  31. toF_="<font face=webdings>9</font>"    '首页 
  32. toP10_=" <font face=webdings>7</font>" '上十 
  33. toP1_=" <font face=webdings>3</font>" '上一
  34. toN1_=" <font face=webdings>4</font>" '下一
  35. toN10_=" <font face=webdings>8</font>" '下十
  36. toL_="<font face=webdings>:</font>" '尾页
  37. set DS_Rs = Conn.execute("select top 1 FileDirRule,fileNameRule from FS_NS_SysParam")
  38. if not DS_Rs.eof then 
  39. fileDirRule = DS_Rs("FileDirRule")
  40. fileNameRule = DS_Rs("fileNameRule")
  41. if fileDirRule = "" or fileDirRule = "" then response.Redirect("../error.asp?ErrCodes=<li>目录和文件名规则未设置.请先进行系统参数设置.</li>") : response.End()
  42. else
  43. response.Redirect("../error.asp?ErrCodes=<li>目录和文件名规则未设置.请先进行系统参数设置.</li>") : response.End()
  44. end if
  45. DS_Rs.close
  46. '得到新闻保存路径
  47. Function SavePath(f_num)
  48. SavePath = ""
  49. Select Case f_num
  50. Case 0
  51. SavePath = "/" & year(now)&"-"&month(now)&"-"&day(now)
  52. Case 1
  53. SavePath = "/" & year(now)&"/"&month(now)&"/"&day(now)
  54. Case 2
  55. SavePath = "/" & year(now)&"/"&month(now)&"-"&day(now)
  56. Case 3
  57. SavePath = "/" & year(now)&"-"&month(now)&"/"&day(now)
  58. Case 4
  59. SavePath = "/"
  60. Case 5
  61. SavePath = "/" & year(now)&"/"&month(now)
  62. Case 6
  63. SavePath = "/" & year(now)&"/"&month(now)&day(now)
  64. Case 7
  65. SavePath = "/" & year(now)&month(now)&day(now)
  66. End Select
  67. End Function
  68. '获得用户文件名
  69. Function strFileNameRule(str,f_idTF,f_id)
  70. strFileNameRule = ""
  71. Dim f_strFileNamearr,f_str0,f_str1,f_str2,f_str3,f_str4,Getstr,f_str5,f_str6
  72. f_strFileNamearr = split(str,"$")
  73. f_str0 = f_strFileNamearr(0)
  74. f_str1 = f_strFileNamearr(1)
  75. f_str2 = f_strFileNamearr(2)
  76. f_str3 = f_strFileNamearr(3)
  77. f_str4 = f_strFileNamearr(4)
  78. f_str5 = f_strFileNamearr(5)
  79. f_str6 = f_strFileNamearr(6)
  80. strFileNameRule = strFileNameRule & f_strFileNamearr(0)
  81. If Instr(1,f_strFileNamearr(1),"Y",1)<>0 then
  82. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  83. strFileNameRule = strFileNameRule & right(year(now),2)&f_strFileNamearr(4)
  84. Else
  85. strFileNameRule = strFileNameRule & right(year(now),2)
  86. End if
  87. End if
  88. If Instr(1,f_strFileNamearr(1),"M",1)<>0 then
  89. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  90. strFileNameRule = strFileNameRule & month(now)&f_strFileNamearr(4)
  91. Else
  92. strFileNameRule = strFileNameRule& month(now)
  93. End if
  94. End if
  95. If Instr(1,f_strFileNamearr(1),"D",1)<>0 then
  96. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  97. strFileNameRule = strFileNameRule & day(now)&f_strFileNamearr(4)
  98. Else
  99. strFileNameRule = strFileNameRule& day(now)
  100. End if
  101. End if
  102. If Instr(1,f_strFileNamearr(1),"H",1)<>0 then
  103. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  104. strFileNameRule = strFileNameRule & hour(now)&f_strFileNamearr(4)
  105. Else
  106. strFileNameRule = strFileNameRule& hour(now)
  107. End if
  108. End if
  109. If Instr(1,f_strFileNamearr(1),"I",1)<>0 then
  110. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  111. strFileNameRule = strFileNameRule & minute(now)&f_strFileNamearr(4)
  112. Else
  113. strFileNameRule = strFileNameRule& minute(now)
  114. End if
  115. End if
  116. If Instr(1,f_strFileNamearr(1),"S",1)<>0 then
  117. if Len(Trim(Cstr(f_strFileNamearr(4))))<>0 then
  118. strFileNameRule = strFileNameRule & second(now)&f_strFileNamearr(4)
  119. Else
  120. strFileNameRule = strFileNameRule& second(now)
  121. End if
  122. End if
  123. Randomize
  124. Dim f_Randchar,f_Randchararr,f_RandLen,f_iR,f_Randomizecode
  125. f_Randchar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
  126. f_Randchararr=split(f_Randchar,",") 
  127. If f_strFileNamearr(2)="2" then
  128. if f_strFileNamearr(3)="1" then
  129. f_RandLen=2 
  130. for f_iR=1 to f_RandLen
  131. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  132. next 
  133. strFileNameRule = strFileNameRule &  f_Randomizecode
  134. Else
  135. strFileNameRule = strFileNameRule &  CStr(Int((99 * Rnd) + 1))
  136. End if
  137. Elseif f_strFileNamearr(2)="3" then
  138. if f_strFileNamearr(3)="1" then
  139. f_RandLen=3 
  140. for f_iR=1 to f_RandLen
  141. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  142. next 
  143. strFileNameRule = strFileNameRule &  f_Randomizecode
  144. Else
  145. strFileNameRule = strFileNameRule &  CStr(Int((999* Rnd) + 1))
  146. End if
  147. Elseif f_strFileNamearr(2)="4" then
  148. if f_strFileNamearr(3)="1" then
  149. f_RandLen=4 
  150. for f_iR=1 to f_RandLen
  151. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  152. next 
  153. strFileNameRule = strFileNameRule &  f_Randomizecode
  154. Else
  155. strFileNameRule = strFileNameRule &  CStr(Int((9999* Rnd) + 1))
  156. End if
  157. Elseif f_strFileNamearr(2)="5" then
  158. if f_strFileNamearr(3)="1" then
  159. f_RandLen=5 
  160. for f_iR=1 to f_RandLen
  161. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  162. next 
  163. strFileNameRule = strFileNameRule &  f_Randomizecode
  164. Else
  165. strFileNameRule = strFileNameRule &  CStr(Int((99999* Rnd) + 1))
  166. End if
  167.    End if
  168.  if f_strFileNamearr(5) = "1" then
  169.  strFileNameRule = strFileNameRule&f_strFileNamearr(4)&"自动编号ID"
  170.  End if
  171.  if f_strFileNamearr(6) = "1" then
  172.  strFileNameRule = strFileNameRule&f_strFileNamearr(4)&"唯一DownID"
  173.  End if
  174.  strFileNameRule = strFileNameRule
  175. End Function
  177. ''得到相关表的值。
  178. Function Get_OtherTable_Value(This_Fun_Sql)
  179. Dim This_Fun_Rs
  180. if instr(This_Fun_Sql," FS_ME_")>0 then 
  181. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  182. else
  183. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  184. end if
  185. if instr(lcase(This_Fun_Sql)," in ")>0 then 
  186. do while not This_Fun_Rs.eof
  187. Get_OtherTable_Value = Get_OtherTable_Value & This_Fun_Rs(0) &"&nbsp;"
  188. This_Fun_Rs.movenext
  189. loop
  190. else
  191. if not This_Fun_Rs.eof then 
  192. Get_OtherTable_Value = This_Fun_Rs(0)
  193. else
  194. Get_OtherTable_Value = ""
  195. end if
  196. end if
  197. set This_Fun_Rs=nothing 
  198. End Function
  200. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  201. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  202. Dim Get_Html,This_Fun_Rs,Text
  203. On Error Resume Next
  204. if instr(This_Fun_Sql," FS_ME_")>0 then 
  205. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  206. else
  207. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  208. end if
  209. If Err<>0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>"&Err.Number&"描述："&Err.Description&"抱歉,传入的Sql语句"&This_Fun_Sql&"有问题.或表和字段不存在.</li>")
  210. if isnull(EquValue) then EquValue = ""
  211. do while not This_Fun_Rs.eof 
  212. select case Get_Type
  213.   case 1
  214. ''<option>
  215. if instr(This_Fun_Sql,",") >0 then 
  216. Text = This_Fun_Rs(1)
  217. else
  218. Text = This_Fun_Rs(0)
  219. end if
  220. if cstr(EquValue) = cstr(This_Fun_Rs(0)) then 
  221. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  222. else
  223. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  224. end if
  225.   case else
  226. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function
  227. end select
  228. This_Fun_Rs.movenext
  229. loop
  230. This_Fun_Rs.close
  231. Get_FildValue_List = Get_Html
  232. End Function
  234. Function Get_While_Info(Add_Sql,orderby)
  235. Dim Get_Html,This_Fun_Sql,ii,db_ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  236. Str_Tmp = "ID,DownLoadID,ClassID,Description,Accredit,AddTime,Appraise,AuditTF,BrowPop,ClickNum,EditTime,EMail,FileExtName,FileName," _
  237. &"FileSize,Language,Name,NewsTemplet,PassWord,Pic,Property,Provider,ProviderUrl,RecTF,ReviewTF,ShowReviewTF,SystemType,Types,Version,OverDue,ConsumeNum"
  238. This_Fun_Sql = "select "&Str_Tmp&" from FS_DS_List"
  239. if request.QueryString("Act")="SearchGo" then 
  240. Arr_Tmp = split(Str_Tmp,",")
  241. for each Str_Tmp in Arr_Tmp
  242. Req_Str = NoSqlHack(Trim(request(Str_Tmp)))
  243. if Req_Str<>"" then 
  244. select case Str_Tmp
  245. case "ID","Accredit","AddTime","Appraise","AuditTF","ClickNum","EditTime","Property","RecTF","ReviewTF","ShowReviewTF","Types","OverDue","ConsumeNum"
  246. ''数字,日期
  247. regxp = "|<|>|=|<=|>=|<>|"
  248. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  249. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  250. elseif instr(Req_Str,"*")>0 then 
  251. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  252. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  253. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  254. else
  255. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  256. end if
  257. case else
  258. ''字符
  259. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  260. end select 
  261. end if
  262. next
  263. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  264. end if
  265. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  266. if orderby<>"" then 
  267. This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  268. else
  269. This_Fun_Sql = This_Fun_Sql &"  Order By AddTime Desc"
  270. end if
  271. Str_Tmp = "" : ii = 0
  272. 'response.Write(This_Fun_Sql)
  273. On Error Resume Next
  274. Set DS_Rs = CreateObject(G_FS_RS)
  275. DS_Rs.Open This_Fun_Sql,Conn,1,3
  276. if Err<>0 then 
  277. Err.Clear
  278. response.Redirect("../error.asp?ErrCodes=<li>查询出错：错误号："&Error.number&"错误描述："&Error.Description&"</li><li>请检查字段类型是否匹配.</li>")
  279. response.End()
  280. end if
  281. IF DS_Rs.eof THEN
  282.   response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>") 
  283. else
  284. DS_Rs.PageSize=int_RPP
  285. cPageNo=NoSqlHack(Request.QueryString("Page"))
  286. If cPageNo="" Then cPageNo = 1
  287. If not isnumeric(cPageNo) Then cPageNo = 1
  288. cPageNo = Clng(cPageNo)
  289. If cPageNo<=0 Then cPageNo=1
  290. If cPageNo>DS_Rs.PageCount Then cPageNo=DS_Rs.PageCount 
  291. DS_Rs.AbsolutePage=cPageNo
  293.   FOR int_Start=1 TO int_RPP 
  294. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  295. Get_Html = Get_Html & "<td align=""center"" style=""cursor:hand"" onclick=""javascript:if(TD_U_"&DS_Rs("ID")&".style.display=='') TD_U_"&DS_Rs("ID")&".style.display='none'; else {TD_U_"&DS_Rs("ID")&".style.display='';ReImgSize('TD_Img_"&DS_Rs("ID")&"');}"" title='点击查看详细情况'>"&DS_Rs("ID")&"</td>" & vbcrlf
  296. Get_Html = Get_Html & "<td align=""center""><a href=""DownloadList.asp?Act=Edit&ID="&DS_Rs("ID")&""" title=""点击修改或查看详细"">"&DS_Rs("Name")&"</a></td>" & vbcrlf
  297. Get_Html = Get_Html & "<td align=""center"">"&Get_OtherTable_Value("select ClassName+' ['+ClassEName+']' as filda from FS_DS_Class where ClassID='"&DS_Rs("ClassID")&"'")&"</td>" & vbcrlf
  298. Get_Html = Get_Html & "<td align=""center"">"&DS_Rs("AddTime")&"</td>" & vbcrlf
  299. Get_Html = Get_Html & "<td align=""center"">"&DS_Rs("EditTime")&"</td>" & vbcrlf
  300. if DS_Rs("OverDue")=0 then 
  301. Str_Tmp = "永不过期"
  302. elseif datediff("d",DS_Rs("AddTime"),date())>DS_Rs("OverDue") then 
  303. Str_Tmp = DS_Rs("OverDue")&"天/已过期"&datediff("d",DS_Rs("AddTime"),date())&"天"
  304. else 
  305. Str_Tmp = DS_Rs("OverDue")&"天/"&datediff("d",DS_Rs("AddTime"),date())&"天后将过期"
  306. end if
  307. Get_Html = Get_Html & "<td align=""center"">"&Str_Tmp&"</td>" & vbcrlf 
  308. if DS_Rs("AuditTF") = 1 then 
  309. Get_Html = Get_Html & "<td align=""center""><input type=button name=Audited value=""已通过"" onclick=""location='DownloadList.asp?Act=OtherSet&Sql="&server.URLEncode(Encrypt("Update FS_DS_List set AuditTF=0 where ID="&DS_Rs("ID")))&"';""></td>" & vbcrlf
  310. else
  311. Get_Html = Get_Html & "<td align=""center""><input type=button name=Audited value=""待审中"" style=""color:blue"" onclick=""location='DownloadList.asp?Act=OtherSet&Sql="&server.URLEncode(Encrypt("Update FS_DS_List set AuditTF=1 where ID="&DS_Rs("ID")))&"';""></td>" & vbcrlf
  312. end if
  313. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""DownLoadID"" id=""DownLoadID"" value="""&DS_Rs("DownLoadID")&""" /></td>" & vbcrlf
  314. Get_Html = Get_Html & "</tr>" & vbcrlf
  315. ''++++++++++++++++++++++++++++++++++++++点开时显示详细信息。
  316. Get_Html = Get_Html & "<tr class=""hback"" id=""TD_U_"& DS_Rs("ID") &""" style=""display:'none'""><td colspan=20>" & vbcrlf
  317. db_ii = DS_Rs("Appraise")
  318. if db_ii = "" or isnull(db_ii) then  db_ii = 0
  319. if db_ii>6 then db_ii=6
  320. Str_Tmp = ""
  321. for ii = 1 to db_ii
  322. Str_Tmp = Str_Tmp & "<img border=0 src=""../Images/icon_star_2.gif"" title="""&DS_Rs("Appraise")&"星"">"
  323. next 
  324. for ii = 1 to 6 - db_ii
  325. Str_Tmp = Str_Tmp & "<img border=0 src=""../Images/icon_star_1.gif"" title="""&DS_Rs("Appraise")&"星"">"
  326. next 
  327. Get_Html = Get_Html & "<table width=""100%"" height=""30"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""table"">" & vbcrlf 
  328. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>下载授权:"&Replacestr(DS_Rs("Accredit"),"1:免费,2:共享,3:试用,4:演示,5:注册,6:破解,7:零售,8:其它") & "</td><td>星级评价:"&Str_Tmp&"</td>"
  329. Str_Tmp = DS_Rs("BrowPop")
  330. if isnull(Str_Tmp) or Str_Tmp="" then 
  331. Str_Tmp = "无限制"
  332. else
  333. Str_Tmp = Get_OtherTable_Value("select GroupName from FS_ME_Group where GroupID in ("&DS_Rs("BrowPop")&")")
  334. end if
  335. Get_Html = Get_Html &"<td>下载权限(用户组):"&Str_Tmp&"</td>" & vbcrlf & "<td>联系人EMAIL:"&DS_Rs("EMail")& "</td></tr>" & vbcrlf
  336. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>开发商:"&DS_Rs("Provider")& "</td><td>提供者(演示):<a href="""&DS_Rs("ProviderUrl")&""" target=_blank>"&DS_Rs("ProviderUrl")&"</a></td><td>文件名:"&DS_Rs("FileName")&"</td><td>文件扩展名:"&Replacestr(DS_Rs("FileExtName"),"else:"&DS_Rs("FileExtName"))&"</td></tr>" & vbcrlf
  337. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>文件大小:"&DS_Rs("FileSize")&"</td><td>语言:"&DS_Rs("Language")& "</td><td>模板文件名:"&DS_Rs("NewsTemplet")&"</td><td>解压密码:"&DS_Rs("PassWord")&"</td></tr>" & vbcrlf
  338. Str_Tmp = DS_Rs("Pic")
  339. if Str_Tmp<>"" then 
  340. Str_Tmp = "<img id=""TD_Img_"&DS_Rs("ID")&""" src="""&DS_Rs("Pic")&""" border=0>"
  341. else
  342. Str_Tmp = "无图片"
  343. end if  
  344. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>显示图片[<span style=""cursor:hand"" onClick=""if(!$('TD_Img_"&DS_Rs("ID")&"')) alert('没有图片'); else { if(TD_Img_"&DS_Rs("ID")&".width<=100) {TD_Img_"&DS_Rs("ID")&".width*=5;this.innerHTML='小图'} else {TD_Img_"&DS_Rs("ID")&".width/=5;this.innerHTML='大图'} }"" class=tx>大图</span>] :<br />"&Str_Tmp&"</td><td>下载性质:"&DS_Rs("Property")&"</td><td>推荐:"&Replacestr(DS_Rs("RecTF"),"1:<span class=tx>是</span>,0:否")& "</td><td>评论:"&Replacestr(DS_Rs("ReviewTF"),"1:<span class=tx>允许</span>,0:不允许")& "</td></tr>"&vbNewLine
  345. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>评论是否需审核:"&Replacestr(DS_Rs("ShowReviewTF"),"1:<span class=tx>是</span>,0:否")& "</td><td>系统平台:"&DS_Rs("SystemType")&"</td><td>下载类型:"&Replacestr(DS_Rs("Types"),"1:图片,2:文件,3:程序,4:Flash,5:音乐,6:影视,7:其它,else:"&DS_Rs("Types")&"")&"</td><td>版本:"&DS_Rs("Version")& "</td></tr>" & vbcrlf
  346. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>过期天数:"&Replacestr(DS_Rs("OverDue"),"0:永不过期,"&DS_Rs("OverDue")&":"&DS_Rs("OverDue")&"天")&"</td><td>消费点数:"&DS_Rs("ConsumeNum")& "</td><td colspan=3>下载ID:<span class=tx>"&DS_Rs("DownLoadID")& "</span></td></tr>" & vbcrlf
  347. set DS_Rs1=Conn.execute("Select AddressName,Url from FS_DS_Address where DownLoadID='"&DS_Rs("DownLoadID")&"'  order by Number")
  348. if DS_Rs1.eof then 
  349. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td colspan=4 class=tx>没有下载地址数据!!</td>" & vbcrlf & "</tr>"& vbcrlf
  350. else
  351. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td class=xingmu colspan=2>下载名称</td><td  class=xingmu colspan=2>下载地址</td></tr>" & vbcrlf
  352. do while not DS_Rs1.eof
  353. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td  colspan=2>"&DS_Rs1("AddressName")&"</td><td colspan=2><a href="""&DS_Rs1("Url")&""" title=""点击测试下载"" target=_blank>"&DS_Rs1("Url")&"</a></td></tr>" & vbcrlf
  354. DS_Rs1.movenext
  355. loop
  356. end if
  357. DS_Rs1.close
  358. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td  colspan=10>简介:<br />"&DS_Rs("Description")& "</td></tr>" & vbcrlf
  359. Get_Html = Get_Html & "</table>" & vbcrlf
  360. Get_Html = Get_Html &"</td></tr>" & vbcrlf
  361. ''+++++++++++++++++++++++++++++++++++++++
  362. DS_Rs.MoveNext
  363.   if DS_Rs.eof or DS_Rs.bof then exit for
  364.       NEXT
  365. END IF
  366. Get_Html = Get_Html & "<tr class=""hback""><td colspan=20 align=""center"" class=""ischeck"">"& vbcrlf &"<table width=""100%"" border=0><tr><td height=30>" & vbcrlf
  367. Get_Html = Get_Html & fPageCount(DS_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  368. Get_Html = Get_Html & "</td><td align=right><input type=""button"" value="" 批量待审 "" onclick=""javascript:if (confirm('确定要取消所选项目的审核吗?')) {document.viewform.action='?Act=NoAuditedAll';document.viewform.submit();}""></td>"
  369. Get_Html = Get_Html & "<td align=right><input type=""button"" value="" 批量审核 "" onclick=""javascript:if (confirm('确定要通过所选项目的审核吗?')) {document.viewform.action='?Act=AuditedAll';document.viewform.submit();}""></td>"
  370. Get_Html = Get_Html & "<td align=right><input type=""button"" value="" 批量删除 "" onclick=""javascript:if (confirm('确定要删除所选项目吗?')) {document.viewform.action='?Act=Del';document.viewform.submit();}""></td>"
  371. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  372. Get_Html = Get_Html &"</td></tr>"
  373. DS_Rs.close
  374. Get_While_Info = Get_Html
  375. End Function
  377. Sub OtherSet(Sql)
  378. Conn.execute(Decrypt(Sql))
  379. response.Redirect("DownloadList.asp")
  380. end Sub
  382. Sub AuditedAll()
  383. if not MF_Check_Pop_TF("DS005") then Err_Show
  384. Dim Str_Tmp
  385. Str_Tmp = request.form("ID")
  386. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行审核。</li>")
  387. Str_Tmp = replace(Str_Tmp," ","")
  388. Conn.execute("update FS_DS_List set AuditTF=1 where ID in ("&Str_Tmp&")")
  389. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Down/DownloadList.asp?Act=View" )&"&ErrCodes=<li>恭喜，审核成功。</li>")
  390. End Sub
  392. Sub NoAuditedAll()
  393. if not MF_Check_Pop_TF("DS005") then Err_Show
  394. Dim Str_Tmp
  395. Str_Tmp = request.form("ID")
  396. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行取消审核。</li>")
  397. Str_Tmp = replace(Str_Tmp," ","")
  398. Conn.execute("update FS_DS_List set AuditTF=0 where ID in ("&Str_Tmp&")")
  399. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Down/DownloadList.asp?Act=View" )&"&ErrCodes=<li>恭喜，取消审核成功。</li>")
  400. End Sub
  402. Sub Del()
  403. if not MF_Check_Pop_TF("DS003") then Err_Show
  404. Dim Str_Tmp
  405. if request.QueryString("sType") = "All_Over" then 
  406. Conn.execute("Delete from FS_DS_Address where DownLoadID in (select DownLoadID from FS_DS_List where OverDue>0 and datediff('d',AddTime,'"&date()&"') > OverDue)")
  407. Conn.execute("Delete from FS_DS_List where OverDue>0 and datediff('d',AddTime,'"&date()&"') > OverDue")
  408. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Down/DownloadList.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  409. end if
  410. if request.QueryString("DownLoadID")<>"" then 
  411. Conn.execute("Delete from FS_DS_Address where DownLoadID = '"&request.QueryString("DownLoadID")&"'")
  412. Conn.execute("Delete from FS_DS_List where DownLoadID = '"&request.QueryString("DownLoadID")&"'")
  413. else
  414. Str_Tmp = request.form("DownLoadID")
  415. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>")
  416. Str_Tmp = replace(Str_Tmp," ","")
  417. Str_Tmp = replace(Str_Tmp,",","','")
  418. Conn.execute("Delete from FS_DS_Address where DownLoadID in ('"&Str_Tmp&"')")
  419. Conn.execute("Delete from FS_DS_List where DownLoadID in ('"&Str_Tmp&"')")
  420. end if
  421. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Down/DownloadList.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  422. End Sub
  423. ''================================================================
  425. Sub Save()
  426. Dim Str_Tmp,Arr_Tmp,ID,Req_Other_Set,Errstr,Url,DownLoadID,AddressName,Number,form_ii,SuccessID,FileName
  427. form_ii = 0 : SuccessID = 0
  428. ID = NoSqlHack(request.Form("ID"))
  429. if not isnumeric(ID) or ID = "" then ID = 0 
  430. DownLoadID = NoSqlHack(request.Form("DownLoadID"))
  431. FileName  = NoSqlHack(request.Form("FileName"))
  432. if DownLoadID = "" then DownLoadID = GetRamCode(8)
  433. On Error Resume Next
  434. for form_ii = 1 to request.Form("Url").Count
  435. AddressName = NoSqlHack(request.Form("AddressName")(form_ii))
  436. Url = NoSqlHack(request.Form("Url")(form_ii))
  437. Number = NoSqlHack(request.Form("Number")(form_ii))
  438. if Number = "" or not isnumeric(Number) then Number = form_ii
  439. if Url<>"" and AddressName<>"" then
  440. if form_ii = 1 then Conn.execute("delete from FS_DS_Address where  DownLoadID='"&DownLoadID&"'")
  441. Conn.execute("insert into FS_DS_Address (DownLoadID,AddressName,Url,[Number]) values ('"&DownLoadID&"','"&AddressName&"','"&Url&"',"&Number&")")
  442. end if
  443. If Err.Number <> 0 then 
  444. Err.clear
  445. else
  446. SuccessID = SuccessID + 1
  447. end if
  448. next
  449. if SuccessID=0 then  response.Redirect("../error.asp?ErrCodes=<li>没有下载地址被添加,不能继续。</li>") : response.End()
  450. ''==============================
  451. if ID=0 then
  452. Req_Other_Set = "&Accredit="&server.URLEncode(NoSqlHack(request.Form("Accredit")))&"&Appraise="&server.URLEncode(NoSqlHack(request.Form("Appraise")))&"&AuditTF="&server.URLEncode(NoSqlHack(request.Form("AuditTF"))) _
  453. &"&BrowPop="&server.URLEncode(NoSqlHack(request.Form("BrowPop")))&"&FileExtName="&server.URLEncode(NoSqlHack(request.Form("FileExtName")))&"&FileSize="&server.URLEncode(NoSqlHack(request.Form("FileSize"))) _
  454. &"&NewsTemplet="&server.URLEncode(NoSqlHack(request.Form("NewsTemplet")))&"&Language="&server.URLEncode(NoSqlHack(request.Form("Language"))) _
  455. &"&Pic="&server.URLEncode(NoSqlHack(request.Form("Pic")))&"&PassWord="&server.URLEncode(NoSqlHack(request.Form("PassWord")))&"&Provider="&server.URLEncode(NoSqlHack(request.Form("Provider")))&"&ProviderUrl=" _
  456. &server.URLEncode(NoSqlHack(request.Form("ProviderUrl")))&"&RecTF="&server.URLEncode(NoSqlHack(request.Form("RecTF")))&"&ReviewTF="&server.URLEncode(NoSqlHack(request.Form("ReviewTF")))&"&ShowReviewTF=" _
  457. &server.URLEncode(NoSqlHack(request.Form("ShowReviewTF")))&"&SystemType="&server.URLEncode(NoSqlHack(request.Form("SystemType")))&"&Types="&server.URLEncode(NoSqlHack(request.Form("Types")))&"&Version=" _
  458. &server.URLEncode(NoSqlHack(request.Form("Version")))&"&OverDue="&server.URLEncode(NoSqlHack(request.Form("OverDue")))&"&ConsumeNum="&server.URLEncode(NoSqlHack(request.Form("ConsumeNum")))&"&Hits="&server.URLEncode(NoSqlHack(request.Form("Hits")))
  459. end if
  460. Str_Tmp = "ClassID,Description,Accredit,AddTime,Appraise,AuditTF,BrowPop,ClickNum,EditTime,EMail," _
  461. &"FileSize,Language,Name,NewsTemplet,PassWord,Pic,Property,Provider,ProviderUrl,RecTF,ReviewTF," _
  462. &"ShowReviewTF,SystemType,Types,Version,OverDue,ConsumeNum,Hits,FileName" 
  463. Arr_Tmp = split(Str_Tmp,",")
  464. DS_Sql = "select DownLoadID,SavePath,FileName,FileExtName,"&Str_Tmp&" from FS_DS_List where ID="&ID
  465. Set DS_Rs = CreateObject(G_FS_RS)
  466. DS_Rs.Open DS_Sql,Conn,3,3
  467. if ID > 0 then 
  468. if not MF_Check_Pop_TF("DS002") then Err_Show
  469. ''修改
  470. DS_Rs("DownLoadID") = DownLoadID
  471. DS_Rs("SavePath") = SavePath(fileDirRule)
  472. DS_Rs("FileExtName") = NoSqlHack(request.Form("FileExtName"))
  473. if instr(FileName,"自动编号ID")>0 then 
  474. FileName = replace(FileName,"自动编号ID",ID)
  475. end if
  476. if instr(FileName,"唯一DownID")>0 then 
  477. FileName = replace(FileName,"唯一DownID",DownLoadID)
  478. end if
  479. DS_Rs("FileName") = FileName
  480. for each Str_Tmp in Arr_Tmp
  481. DS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  482. next
  483. DS_Rs.update
  484. DS_Rs.close
  485. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Down/DownloadList.asp?Act=Edit&ID="&ID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  486. else
  487. if not MF_Check_Pop_TF("DS001") then Err_Show
  488. ''新增
  489. if Get_OtherTable_Value("select ID from FS_DS_List where DownLoadID='"&NoSqlHack(request.Form("DownLoadID"))&"'")<>"" then 
  490. Errstr = "<li>下载ID重复!!</li>"
  491. end if
  492. if Get_OtherTable_Value("select ID from FS_DS_List where ClassID='"&NoSqlHack(request.Form("ClassID"))&"' and Name='"&NoSqlHack(request.Form("Name"))&"'")<>"" then 
  493. Errstr = Errstr & "<li>下载名称重复!!</li>"
  494. end if
  495. if Errstr<>"" then response.Redirect("../error.asp?ErrCodes="&Errstr) : response.End()
  496. ''--------------------------
  497. DS_Rs.addnew
  498. DS_Rs("DownLoadID") = DownLoadID
  499. DS_Rs("SavePath") = SavePath(fileDirRule)
  500. DS_Rs("FileExtName") = NoSqlHack(request.Form("FileExtName"))
  501. for each Str_Tmp in Arr_Tmp
  502. 'response.Write(Str_Tmp&":"&NoSqlHack(request.Form(Str_Tmp))&"<br>")
  503. if request.Form(Str_Tmp)<>"" then DS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  504. next
  505. 'response.Write(Req_Other_Set)
  506. 'response.End()
  507. DS_Rs.update
  508. DS_Rs.close
  509. if instr(FileName,"自动编号ID")>0 then 
  510. FileName = replace(FileName,"自动编号ID",Conn.execute("select ID from FS_DS_List where DownLoadID='"&DownLoadID&"'")(0))
  511. Conn.execute("update FS_DS_List set FileName='"&FileName&"' where DownLoadID='"&DownLoadID&"'")
  512. end if
  514. if instr(FileName,"唯一DownID")>0 then 
  515. FileName = replace(FileName,"唯一DownID",DownLoadID)
  516. Conn.execute("update FS_DS_List set FileName='"&FileName&"' where DownLoadID='"&DownLoadID&"'")
  517. end if
  519. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Down/DownloadList.asp?Act=Add"&Req_Other_Set ) &"&ErrCodes=<li>恭喜，新增成功。</li>")
  520. end if
  521. End Sub
  522. ''=========================================================
  523. %>
  524. <html xmlns="http://www.w3.org/1999/xhtml">
  525. <HEAD>
  526. <TITLE>FoosunCMS</TITLE>
  527. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  528. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  529. <script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
  530. <script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
  531. <script language="JavaScript" src="../../FS_Inc/coolWindowsCalendar.js"></script>
  532. <script language="JavaScript" src="../../FS_Inc/Prototype.js"></script>
  533. <script language="JavaScript">
  534. <!--
  535. //点击标题排序
  536. /////////////////////////////////////////////////////////
  537. var Old_Sql = document.URL;
  538. function OrderByName(FildName)
  539. {
  540. var New_Sql='';
  541. var oldFildName="";
  542. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  543. {
  544. if (Old_Sql.indexOf("=")>-1)
  545. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  546. else
  547. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  548. }
  549. else
  550. {
  551. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  552. for(var ii=0;ii<tmp_arr_.length;ii++)
  553. {
  554. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  555. {
  556. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  557. break;
  558. }
  559. }
  560. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
  561. }
  562. //alert(New_Sql);
  563. location = New_Sql;
  564. }
  565. /////////////////////////////////////////////////////////
  566. -->
  567. </script>
  568. <head>
  569. <body>
  570. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  571.      <tr  class="hback"> 
  572.             <td colspan="10" align="left" class="xingmu" ><a href="#" onMouseOver="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by 张文 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>下载列表管理</strong></a></td>
  573. </tr>
  574.   <tr  class="hback"> 
  575.     <td colspan="10" height="25"> <a href="DownloadList.asp">管理首页</a> <%if MF_Check_Pop_TF("DS001") then %>| <a href="DownloadList.asp?Act=Add">新增</a><%end if%> 
  576.       | <a href="DownloadList.asp?Act=Search">查询</a> | 发布(<a href="DownloadList.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("DateDiff('d',AddTime,'"&date()&"')<7"))%>">一周内</a> 
  577.       | <a href="DownloadList.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("DateDiff('d',AddTime,'"&date()&"')<1*30"))%>">一月内</a> 
  578.       | <a href="DownloadList.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("DateDiff('d',AddTime,'"&date()&"')<3*30"))%>">三月内</a>) 
  579.   | 过期(<a href="DownloadList.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("OverDue>0 and datediff('d',AddTime,'"&date()&"') > OverDue"))%>">所有过期下载</a> 
  580.       <%if not MF_Check_Pop_TF("DS003") then%>| <a href="DownloadList.asp?Act=Del&sType=All_Over" onClick="return confirm('这将删除所有相关信息，确定继续？');">删除所有过期</a><%end if%>) 
  581.     </td>
  582.   </tr>
  583. </table>
  584. <%
  585. '******************************************************************
  586. select case request.QueryString("Act")
  587. case "Add","Edit","Search"
  588. Add_Edit_Search
  589. case "SearchGo","","View"
  590. View
  591. case "Save"
  592. Save
  593. case "Del"
  594. Del
  595. case "NoAuditedAll"
  596. NoAuditedAll
  597. case "AuditedAll"
  598. AuditedAll
  599. case "OtherSet"
  600. Call OtherSet(request.QueryString("Sql"))
  601. case else
  602. response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>错误的参数传递。</li>") : response.End()
  603. end select
  604. '******************************************************************
  605. Sub View()%>
  606. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  607. <form name="viewform" id="viewform" method="post" action="?Act=Del">
  608.    <tr  class="hback"> 
  609.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('ID')" class="sd"><b>〖ID〗</b></a> 
  610.         <span id="Show_Oder_ID"></span></td>
  611.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('Name')" class="sd"><b>下载名称</b></a> 
  612.         <span id="Show_Oder_Name"></span></td>
  613.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('ClassID')" class="sd"><b>所属栏目</b></a> 
  614.         <span id="Show_Oder_ClassID"></span></td>
  615.       <td align="center" class="xingmu"><a href="javascript:OrderByName('AddTime')" class="sd"><b>添加时间</b></a> 
  616.         <span id="Show_Oder_AddTime"></span></td>
  617.       <td align="center" class="xingmu"><a href="javascript:OrderByName('EditTime')" class="sd"><b>修改时间</b></a> 
  618.         <span id="Show_Oder_EditTime"></span></td>
  619.       <td align="center" class="xingmu"><a href="javascript:OrderByName('OverDue')" class="sd"><b>过期天数</b></a> 
  620.         <span id="Show_Oder_OverDue"></span></td>
  621.       <td align="center" class="xingmu"><a href="javascript:OrderByName('AuditTF')" class="sd"><b>审核</b></a> 
  622.         <span id="Show_Oder_AuditTF"></span></td>
  623.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  624.     </tr>
  625.     <%
  626. response.Write( Get_While_Info( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  627. %>
  628.    </form>  
  629. </table>
  630. <%End Sub
  631. Sub Add_Edit_Search()
  632. Dim Bol_IsEdit,ID,TmpStr
  633. Dim Accredit,Appraise,AuditTF,BrowPop,FileExtName,FileSize,NewsTemplet,Pic,PassWord,Provider,ProviderUrl,RecTF,ReviewTF,FileName
  634. Dim ShowReviewTF,SystemType,Types,Version,OverDue,ConsumeNum  ,Language,Hits
  635. Bol_IsEdit = false
  636. TmpStr = ""
  637. if request.QueryString("Act")="Edit" then
  638. ID = request.QueryString("ID")
  639. if ID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的ID没有提供。</li>") : response.End()
  640. DS_Sql = "select ID,DownLoadID,ClassID,Description,Accredit,AddTime,Appraise,AuditTF,BrowPop,ClickNum,EditTime,EMail,FileExtName,FileName," _
  641. &"FileSize,Language,Name,NewsTemplet,PassWord,Pic,Property,Provider,ProviderUrl,RecTF,ReviewTF,ShowReviewTF,SystemType,Types,Version,OverDue,ConsumeNum,Hits" _
  642. &" from FS_DS_List where ID = "&ID
  643. Set DS_Rs = CreateObject(G_FS_RS)
  644. DS_Rs.Open DS_Sql,Conn,1,1
  645. if not DS_Rs.eof then 
  647. Bol_IsEdit = True
  649. Accredit = DS_Rs("Accredit")
  650. Appraise = DS_Rs("Appraise")
  651. AuditTF = DS_Rs("AuditTF")
  652. BrowPop = DS_Rs("BrowPop")
  653. FileSize = Ucase( DS_Rs("FileSize") )
  654. FileName = DS_Rs("FileName")
  655. NewsTemplet = DS_Rs("NewsTemplet")
  656. PassWord = DS_Rs("PassWord")
  657. Pic = DS_Rs("Pic")
  658. Provider = DS_Rs("Provider")
  659. ProviderUrl = DS_Rs("ProviderUrl")
  660. RecTF = DS_Rs("RecTF")
  661. ReviewTF = DS_Rs("ReviewTF")
  662. ShowReviewTF = DS_Rs("ShowReviewTF")
  663. SystemType = DS_Rs("SystemType")
  664. Types = DS_Rs("Types")
  665. Version = DS_Rs("Version")
  666. OverDue = DS_Rs("OverDue")
  667. ConsumeNum = DS_Rs("ConsumeNum")
  668. if ConsumeNum=0 then ConsumeNum = ""
  669. Language = DS_Rs("Language")
  670. NewsTemplet = DS_Rs("NewsTemplet") ''路径
  671. FileExtName = DS_Rs("FileExtName")''扩展名
  672. if isnull(FileExtName) or FileExtName="" then FileExtName = "html"
  673. Hits = DS_Rs("Hits")
  674. if isnull(Hits) or Hits="" then Hits = 0
  675. end if
  676. elseif request.QueryString("Act") = "Add" then
  677. Accredit = NoSqlHack(request.QueryString("Accredit"))
  678. if Accredit="" then Accredit = 1
  679. Appraise = NoSqlHack(request.QueryString("Appraise"))
  680. if Appraise="" then Appraise = 6
  681. AuditTF = NoSqlHack(request.QueryString("AuditTF"))
  682. if AuditTF="" then AuditTF = 1
  683. BrowPop = NoSqlHack(request.QueryString("BrowPop"))
  684. FileExtName = NoSqlHack(request.QueryString("FileExtName"))
  685. if FileExtName="" then 
  686. if sys_FileExtName="" then FileExtName = "html"
  687. end if
  688. FileSize = NoSqlHack(request.QueryString("FileSize"))
  689. if FileSize="" then FileSize = "1024K"
  690. FileName = strFileNameRule(fileNameRule,0,0)
  691. NewsTemplet = Replace("/"& G_TEMPLETS_DIR &"/Down/Down.htm","//","/") 
  692. PassWord = NoSqlHack(request.QueryString("PassWord"))
  693. Pic = NoSqlHack(request.QueryString("Pic"))
  694. Provider = NoSqlHack(request.QueryString("Provider"))
  695. ProviderUrl = NoSqlHack(request.QueryString("ProviderUrl"))
  696. RecTF = NoSqlHack(request.QueryString("RecTF"))
  697. if RecTF="" then RecTF = 1
  698. ReviewTF = NoSqlHack(request.QueryString("ReviewTF"))
  699. if ReviewTF="" then ReviewTF = 1
  700. ShowReviewTF = NoSqlHack(request.QueryString("ShowReviewTF"))
  701. if ShowReviewTF="" then ShowReviewTF = 0
  702. SystemType = NoSqlHack(request.QueryString("SystemType"))
  703. if SystemType="" then SystemType = "WIN9X/WIN2000/WINXP/2003"
  704. Types = NoSqlHack(request.QueryString("Types"))
  705. if Types="" then Types = 3
  706. Version = NoSqlHack(request.QueryString("Version"))
  707. OverDue = NoSqlHack(request.QueryString("OverDue"))
  708. if OverDue="" then OverDue = 0
  709. ConsumeNum = NoSqlHack(request.QueryString("ConsumeNum"))
  710. If IsNumeric(ConsumeNum) Then
  711. ConsumeNum=CInt(ConsumeNum)
  712. Else
  713. ConsumeNum=0
  714. End If
  716. if ConsumeNum=0 then ConsumeNum = ""
  717. Language  = NoSqlHack(request.QueryString("Language"))
  718. if Language = "" then Language = "简体中文"
  719. Hits = request.QueryString("Hits")
  720. if Hits = "" then 
  721. randomize
  722. Hits = CStr(Int((9999* Rnd) + 1))
  723. end if
  724. end if
  725. %>
  726. <table id=secTable width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="table">
  727.   <tr align=center height=30 class="hback">
  728. <td id="secTableTd0" class="xingmu" onClick="secBoard(0)" style="cursor:hand">
  729. 基本信息
  730. </td>
  731. <td id="secTableTd1" onClick="secBoard(1)" style="cursor:hand">
  732. 下载地址
  733. </td>
  734. </tr>
  735. <tr><td colspan="4">
  736. <!--主表开始-->
  737.   <form name="form1" id="form1" method="post"<%
  738.   select case request.QueryString("Act")
  739.    case "Search"
  740.   response.Write(" action=""?Act=SearchGo""") 
  741. case "Edit","Add",""
  742.   response.Write(" onsubmit=""return chkinput();"" action=""?Act=Save""") 
  743.   end select%>>
  744.         <table id=mainTable width="99%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  745.           <tbody style="display:block;">
  746.     <tr  class="hback"> 
  747.       <td colspan="3" class="xingmu"><%if Bol_IsEdit then 
  748.   response.Write("修改下载列表信息<input type=""hidden"" name=""ID"" id=""ID"" value="""&DS_Rs("ID")&""">") 
  749.   elseif request.QueryString("Act") = "Add" then 
  750.   response.Write("新增下载列表信息<span class=""tx"" style=""cursor:help"" onclick=""if (help1.style.display='none') help1.style.display=''; else help1.style.display='none';"">帮助?</span>") 
  751.   else
  752.   response.Write("查询下载列表信息<span class=""tx"" style=""cursor:help"" onclick=""help2.style.display=''?help2.style.display='none':help2.style.display='';"">帮助?</span>") 
  753.   end if%>   
  754.   </td>
  755. </tr>
  756.     <tr class="hback" id="help1" style="display:none"> 
  757.       <td width="15%" align="right">添加帮助</td>
  758.       <td width="85%">
  759.     当您新添加数据时,系统会提供给你默认的数据.当你添加一条数据以后,并且继续添加时,系统会自动引用上一条数据部分信息.这在批量添加时很有用。并且你可以选择下拉框中已经添加过的数据.
  760.       </td>
  761.     </tr>
  762.     <tr class="hback" id="help2" style="display:none"> 
  763.       <td align="right">查询帮助</td>
  764.       <td>
  765.     查询:数字和日期型的字段,支持<=<>=><>等等运算符号如:查过期天数>2 ; 其它类型支持 A B ,A* *B ,*A* *B* ,AB等模式.
  766.       </td>
  767.     </tr>
  768. <%if request.QueryString("Act")="Search" then %>
  769.     <tr class="hback"> 
  770.       <td align="right">自编号ID</td>
  771.       <td>
  772.    <input type="text" name="ID" id="ID" size="40" maxlength="11">
  773.       </td>
  774.     </tr>
  775. <%end if%>
  776.     <tr  class="hback"> 
  777.       <td align="right">下载ID</td>
  778.       <td>
  779.    <%if request.QueryString("Act")<>"Search" then%><input type="hidden" name="Property" value="0"><%end if%>
  780. <input type="text" size="40" maxlength="15" name="DownLoadID" id="DownLoadID" value="<%if Bol_IsEdit then response.Write(DS_Rs("DownLoadID")) else if request.QueryString("Act")<>"Search" then  response.Write(GetRamCode(8)) end if end if%>" 
  781.     onFocus="Do.these('DownLoadID',function(){return isEmpty('DownLoadID','DownLoadID_Alt')})" onKeyUp="Do.these('DownLoadID',function(){return isEmpty('DownLoadID','DownLoadID_Alt')});"
  782.     <%if request.QueryString("Act")="Add" then%> onBlur="if(this.value!='') new Ajax.Updater('DownLoadID_Chk','DownloadList_Ajax.asp?no-cache='+Math.random() , {method: 'get', parameters: 'Act=Check&stype=DownLoadID&value='+this.value });"<%end if%>>
  783.     <span id="DownLoadID_Alt"></span>&nbsp;<span id="DownLoadID_Chk"></span>&nbsp;
  784.         <%if request.QueryString("Act")<>"Search" then %><span class="tx">不填则自动生成</span><%end if%>
  785.   </td>
  786.     </tr>
  787.     <tr>
  788.       <td class="hback" align="right">选择栏目</td>
  789.       <td class="hback"> <input name="ClassName" type="text" id="ClassName" style="width:50%" value="<%if Bol_IsEdit then response.Write(Get_OtherTable_Value("select ClassName from FS_DS_Class where ClassID='"&DS_Rs("ClassID")&"'")) end if%>" readonly 
  790.   onFocus="Do.these('ClassName',function(){return isEmpty('ClassName','ClassName_Alt')});if(this.value!='') new Ajax.Updater('Class_ExtName','DownloadList_Ajax.asp?no-cache='+Math.random() , {method: 'get', parameters: 'Act=GetExtName&ClassID='+ClassID.value });" 
  791.   onKeyUp="Do.these('ClassName',function(){return isEmpty('ClassName','ClassName_Alt')})" onBlur="if(Class_ExtName.innerHTML!='') FileExtName.value=$('Class_ExtName').innerHTML;"> 
  792.         <input name="ClassID" type="hidden" id="ClassID" value="<%if Bol_IsEdit then response.Write(DS_Rs("ClassID")) end if%>"> 
  793.         <input type="button" name="Submit" value="选择栏目"   onClick="SelectClass();ClassName.focus();"> 
  794.         <input type="button" name="Submit2" value="添加栏目" onClick="window.location.href='Class_add.asp?ClassID=<%if Bol_IsEdit then response.Write(DS_Rs("ClassID")) end if%>&Action=add'"> <span id="span_ClassName"></span>
  795.        <span id="ClassName_Alt"></span><span id="Class_ExtName" style="display:none"></span>
  796.   </td>
  797.     </tr>
  798.     <tr  class="hback"> 
  799.       <td align="right">下载名称</td>
  800.       <td>
  801.   <input type="text" name="Name" id="Name" size="40" maxlength="100" value="<%if Bol_IsEdit then response.Write(DS_Rs("Name")) end if%>" 
  802.   onFocus="Do.these('Name',function(){return isEmpty('Name','Name_Alt')})" onKeyUp="Do.these('Name',function(){return isEmpty('Name','Name_Alt')});"
  803.   <%if request.QueryString("Act")="Add" then%> onBlur="if(ClassID.value!='' && this.value!='') new Ajax.Updater('Name_Chk','DownloadList_Ajax.asp?no-cache='+Math.random() , {method: 'get', parameters: 'Act=Check&stype=downname&classid='+ClassID.value+'&name='+this.value });"<%end if%>>
  804.   <span id="Name_Alt"></span><span id="Name_Chk"></span>
  805.       </td>
  806.     </tr>
  807.     <tr  class="hback"> 
  808.       <td align="right">简介</td>
  809.       <td>
  810.   <textarea name="Description" cols="75" rows="6" id="Description"  onFocus="Do.these('Description',function(){return isEmpty('Description','Description_Alt')})" onKeyUp="Do.these('Description',function(){return isEmpty('Description','Description_Alt')})"><%if Bol_IsEdit then response.Write(DS_Rs("Description")) end if%></textarea>
  811.       <span id="Description_Alt"></span>
  812.       </td>
  813.     </tr>
  814.     <tr  class="hback"> 
  815.               <td colspan="2" class="xingmu" height="5"></td>
  816.     </tr>
  817.     <tr  class="hback"> 
  818.       <td align="right">下载授权</td>
  819.       <td>
  820. <select name="Accredit" id="Accredit">
  821.  <%=PrintOption(Accredit,":请选择,1:免费,2:共享,3:试用,4:演示,5:注册,6:破解,7:零售,8:其它")%>
  822. </select>
  823.         <span id="Accredit_Alt"></span> </td>
  824.     </tr>
  825.     <tr class="hback"> 
  826.       <td align="right">星级评价</td>
  827.       <td>
  828. <select name="Appraise" id="Appraise">
  829.  <%=PrintOption(Appraise,":请选择,1:一星,2:二星,3:三星,4:四星,5:五星,6:六星")%>
  830. </select>
  831.         <span id="Appraise_Alt"></span> </td>
  832.     </tr>
  833.     <tr  class="hback"> 
  834.       <td align="right">联系人EMAIL</td>
  835.       <td>
  836.   <input type="text" name="EMail" id="EMail" size="40" maxlength="25" value="<%if Bol_IsEdit then response.Write(DS_Rs("EMail")) end if%>">
  837.         <span id="EMail_Alt"></span> </td>
  838.     </tr>
  839.     <tr  class="hback"> 
  840.       <td align="right">文件大小</td>
  841.       <td>
  842.   <input type="text" name="FileSize" id="FileSize" size="15" maxlength="50" value="<%=FileSize%>"><span id="FileSize_Alt"></span>
  843. <select onChange="FileSize.value=this.options[this.selectedIndex].value">
  844. <option value="">请选择</option>
  845. <%=Get_FildValue_List("select distinct FileSize from FS_DS_List where FileSize<>''",FileSize,1)%>
  846. </select>
  847.       </td>
  848.     </tr>
  849.     <tr  class="hback"> 
  850.       <td align="right">语言</td>
  851.       <td>
  852.   <input type="text" name="Language" id="Language" size="15" maxlength="50" value="<%=Language%>"><span id="Language_Alt"></span>
  853. <select onChange="Language.value=this.options[this.selectedIndex].value">
  854. <option value="">请选择</option>
  855. <%if Language<>"" then response.Write PrintOption(Language,Language&":"&Language)%>
  856. </select>
  857.       </td>
  858.     </tr>
  859.     <tr  class="hback"> 
  860.       <td align="right">解压密码</td>
  861.       <td>
  862.   <input type="text" name="PassWord" id="PassWord" size="40" maxlength="50" value="<%=PassWord%>">
  863. <select onChange="PassWord.value=this.options[this.selectedIndex].value">
  864. <option value="">请选择</option>
  865. <%=Get_FildValue_List("select distinct PassWord from FS_DS_List where PassWord<>'' ",PassWord,1)%>
  866. </select>
  867.       </td>
  868.     </tr>
  869.     <tr  class="hback"> 
  870.       <td align="right">选择模板</td>
  871.       <td>
  872. <input name="NewsTemplet" type="text" id="NewsTemplet" style="width:60%" value="<%=NewsTemplet%>" maxlength="200" readonly> 
  873.         <input name="Submit5" type="button" id="selNewsTemplet" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.form1.NewsTemplet);document.form1.NewsTemplet.focus();">      </td>
  874.     </tr>
  875.     <tr  class="hback"> 
  876.       <td align="right">显示图片</td>
  877.       <td>
  878.     <input type="text" name="Pic" id="Pic" style="width:60%" maxlength="100" value="<%=Pic%>" readonly="">
  879.         <input type="button" name="bnt_ChoosePic_rowBettween"  value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.form1.Pic);"> 
  880.   </td>
  881.     </tr>
  882.     <tr  class="hback"> 
  883.       <td align="right">开发商</td>
  884.       <td>
  885.   <input type="text" name="Provider" id="Provider" size="40" maxlength="50" value="<%=Provider%>">
  886. <select onChange="Provider.value=this.options[this.selectedIndex].value">
  887. <option value="">请选择</option>
  888. <%=Get_FildValue_List("select distinct Provider from FS_DS_List where Provider<>''",Provider,1)%>
  889. </select>
  890.       </td>
  891.     </tr>
  892.     <tr  class="hback"> 
  893.       <td align="right">提供者Url地址(演示地址)</td>
  894.       <td>
  895.   <input type="text" name="ProviderUrl" id="ProviderUrl" size="40" maxlength="100" value="<%=ProviderUrl%>">
  896. <select onChange="ProviderUrl.value=this.options[this.selectedIndex].value">
  897. <option value="">请选择</option>
  898. <%=Get_FildValue_List("select distinct ProviderUrl from FS_DS_List where ProviderUrl<>''",ProviderUrl,1)%>
  899. </select>
  900.       </td>
  901.     </tr>
  902.     <tr  class="hback"> 
  903.       <td align="right">系统平台</td>
  904.       <td>
  905.   <input type="text" name="SystemType" id="SystemType" size="40" maxlength="100" value="<%=SystemType%>">
  906. <select onChange="SystemType.value=this.options[this.selectedIndex].value">
  907. <option value="">请选择</option>
  908. <%=Get_FildValue_List("select distinct SystemType from FS_DS_List where SystemType<>''",SystemType,1)%>
  909. </select>
  910.       </td>
  911.     </tr>
  912.     <tr  class="hback"> 
  913.       <td align="right">下载类型</td>
  914.       <td>
  915. <select name="Types" id="Types">
  916. <%=PrintOption(Types,":请选择,1:图片,2:文件,3:程序,4:Flash,5:音乐,6:影视,7:其它")%>
  917. </select>
  918.       </td>
  919.     </tr>
  920.     <tr  class="hback"> 
  921.       <td align="right">版本</td>
  922.       <td>
  923.   <input type="text" name="Version" id="Version" size="40" maxlength="50" value="<%=Version%>">
  924. <select onChange="Version.value=this.options[this.selectedIndex].value">
  925. <option value="">请选择</option>
  926. <%=Get_FildValue_List("select distinct Version from FS_DS_List where Version<>''",Version,1)%>
  927. </select>
  928.       </td>
  929.     </tr>
  930.     <tr  class="hback"> 
  931.         <td colspan="2" class="xingmu" height="5"></td>
  932.     </tr>
  933.     <tr class="hback"> 
  934.       <td align="right">是否审核</td>
  935.       <td>
  936. <select name="AuditTF" id="AuditTF">
  937.  <%=PrintOption(AuditTF,":请选择,1:通过,0:待审")%>
  938. </select>
  939.         <span id="AuditTF_Alt"></span> </td>
  940.     </tr>
  941. <tr class="hback"> 
  942.       <td align="right">推荐</td>
  943.       <td>
  944. <select name="RecTF" id="RecTF">
  945.  <%=PrintOption(RecTF,":请选择,1:是,0:否")%>
  946. </select>
  947.         <span id="RecTF_Alt"></span> </td>
  948.     </tr>
  949.     <tr class="hback"> 
  950.       <td align="right">评论</td>
  951.       <td>
  952. <select name="ReviewTF" id="ReviewTF">
  953.  <%=PrintOption(ReviewTF,":请选择,1:允许,0:不允许")%>
  954. </select>
  955.         <span id="ReviewTF_Alt"></span> </td>
  956.     </tr>
  957.     <tr class="hback"> 
  958.       <td align="right">评论是否需审核</td>
  959.       <td>
  960. <select name="ShowReviewTF" id="ShowReviewTF">
  961.  <%=PrintOption(ShowReviewTF,":请选择,1:是,0:否")%>
  962. </select>
  963.         <span id="ShowReviewTF_Alt"></span> </td>
  964.     </tr>
  965.     <tr  class="hback"> 
  966.         <td colspan="2" class="xingmu" height="5"></td>
  967. </tr>
  968.     <!--生成开始-->
  969. <tr class="hback"> 
  970.       <td align="right">下载权限</td>
  971.       <td>
  972.     <input name="BrowPop"  id="BrowPop" value="<%=BrowPop%>" type="text" onMouseOver="this.title=this.value;" readonly> 
  973.         <select name="selectPop" id="selectPop" style="overflow:hidden;" onChange="ChooseExeName();">
  974.           <option value="" selected>选择会员组</option>
  975.           <option value="del" style="color:red;">清空</option>
  976.   <%=Get_FildValue_List("select distinct GroupID,GroupName from FS_ME_Group",BrowPop,1)%>
  977.         </select> </td>
  978.     </tr>
  979.     <tr  class="hback"> 
  980.       <td align="right">文件扩展名</td>
  981.       <td class="hback"> 
  982.     <select name="FileExtName" id="FileExtName">
  983.   <%=PrintOption(FileExtName,":请选择,html:html,htm:htm,shtml:shtml,shtm:shtm,asp:asp")%>
  984.         </select><span id="FileExtName_Alt"></span>
  985. </td>
  986.     </tr>
  987.     <tr  class="hback"> 
  988.       <td align="right">文件名</td>
  989.       <td>
  990.   <%
  991.   if request.QueryString("Act")="Search" then 
  992.    Response.Write("<input name=""FileName"" type=""text"" id=""FileName"" size=""40"" maxlength=""255"">")
  993.   else
  994.   Dim RoTF
  995.   if instr(strFileNameRule(fileNameRule,0,0),"自动编号ID")>0 or instr(strFileNameRule(fileNameRule,0,0),"唯一DownID") then:RoTF="Readonly":End if
  996.   Response.Write("<input name=""FileName"" type=""text"" id=""FileName"" size=""40"" "& RoTF &" maxlength=""255"" value="""&FileName&""" title=""如果参数设置中设定为自动编号，将不能修改"">")
  997.   end if
  998.   %><span id="FileName_Alt"></span>     
  999.   </td>
  1000.     </tr>
  1001.     <tr  class="hback"> 
  1002.       <td align="right">消费点数</td>
  1003.       <td>
  1004.   <input type="text" name="ConsumeNum" id="ConsumeNum" size="10" maxlength="6" value="<%=ConsumeNum%>"  onChange="ChooseExeName();">
  1005. <select onChange="ConsumeNum.value=this.options[this.selectedIndex].value;ChooseExeName();">
  1006. <option value="">请选择</option>
  1007. <%=Get_FildValue_List("select distinct ConsumeNum from FS_DS_List where ConsumeNum<>0",ConsumeNum,1)%>
  1008. </select>
  1009.       </td>
  1010.     </tr>
  1011.     <tr  class="hback"> 
  1012.       <td align="right">过期天数</td>
  1013.       <td>
  1014.   <input type="text" name="OverDue" id="OverDue" size="10" maxlength="6" value="<%=OverDue%>" onChange="ChooseExeName();">
  1015. <select onChange="OverDue.value=this.options[this.selectedIndex].value;ChooseExeName();">
  1016. <option value="">请选择</option>
  1017. <%if OverDue = "0" then 
  1018. response.Write("<option value=""0"" selected style=""color:blue"">永不过期</option>")
  1019. else
  1020. response.Write(Get_FildValue_List("select distinct OverDue from FS_DS_List",OverDue,1))
  1021. end if
  1022. %>
  1023. </select>
  1024.       </td>
  1025.     </tr>
  1026.     <!--生成结束-->
  1027.     <tr  class="hback"> 
  1028.       <td align="right">点击数</td>
  1029.       <td>
  1030.   <input type="text" name="Hits" id="Hits" size="10" maxlength="6" value="<%=Hits%>">
  1031.       </td>
  1032.     </tr>
  1033.     <tr  class="hback"> 
  1034.       <td align="right">下载次数</td>
  1035.       <td>
  1036.   <input type="text" name="ClickNum" id="ClickNum" size="10" maxlength="6" value="<%if Bol_IsEdit then response.Write(DS_Rs("ClickNum")) else if request.QueryString("Act")<>"Search" then response.Write("0") end if end if%>">
  1037.       </td>
  1038.     </tr>
  1039.     <tr class="hback"> 
  1040.       <td align="right">添加时间</td>
  1041.       <td>
  1042.   <input type="text" name="AddTime" id="AddTime" onFocus="setday(this)" style="WIDTH: 100px; HEIGHT: 22px" maskType="shortDate" value="<%if Bol_IsEdit then response.Write(DS_Rs("AddTime")) else if request.QueryString("Act")<>"Search" then response.Write(date()) end if end if%>">
  1043.   <IMG onClick="AddTime.focus()" src="../../FS_Inc/calendar.bmp" align="absBottom"><span id="AddTime_Alt"></span>
  1044.       </td>
  1045.     </tr>
  1046.     <tr class="hback"> 
  1047.       <td align="right">修改时间</td>
  1048.       <td>
  1049.   <input type="text" name="EditTime" id="EditTime" onFocus="setday(this)" style="WIDTH: 100px; HEIGHT: 22px" maskType="shortDate" value="<%if Bol_IsEdit then response.Write(DS_Rs("EditTime")) else if request.QueryString("Act")<>"Search" then response.Write(date()) end if end if%>">
  1050.   <IMG onClick="EditTime.focus()" src="../../FS_Inc/calendar.bmp" align="absBottom"><span id="EditTime_Alt"></span>
  1051.       </td>
  1052.     </tr>
  1053.    <tr  class="hback"> 
  1054.       <td align="center" colspan="4">
  1055.           <input type="submit" value=" 确定提交 "/> 
  1056.               &nbsp; <input type="reset" value=" 重置 " />
  1057.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("DownloadList.asp?Act=Del&ID="&ID)%>'">
  1058.       </td>
  1059.     </tr>
  1060. </tbody>
  1062. <!--分界-->
  1064. <tbody style="display:none;">
  1065.     <tr  class="hback"> 
  1066.       <td colspan="3" class="xingmu"><%if Bol_IsEdit then 
  1067.   response.Write("修改下载列表信息") 
  1068.   elseif request.QueryString("Act") = "Add" then 
  1069.   response.Write("新增下载列表信息<span class=""tx"" style=""cursor:help"" onclick=""if (help3.style.display='none') help3.style.display=''; else help3.style.display='none';"">帮助?</span>") 
  1070.   else
  1071.   response.Write("查询下载列表信息<span class=""tx"" style=""cursor:help"" onclick=""help4.style.display=''?help4.style.display='none':help4.style.display='';"">帮助?</span>") 
  1072.   end if%>   
  1073.   </td>
  1074. </tr>
  1075.     <tr class="hback" id="help3" style="display:none"> 
  1076.       <td align="right">添加帮助</td>
  1077.       <td>
  1078.     当您新添加数据时,系统会提供给你默认的数据.当你添加一条数据以后,并且继续添加时,系统会自动引用上一条数据部分信息.这在批量添加时很有用。并且你可以选择下拉框中已经添加过的数据.
  1079.       </td>
  1080.     </tr>
  1081.     <tr class="hback" id="help4" style="display:none"> 
  1082.       <td align="right">查询帮助</td>
  1083.       <td>
  1084.     查询:数字和日期型的字段,支持<=<>=><>等等运算符号如:查过期天数>2 ; 其它类型支持 A B ,A* *B ,*A* *B* ,AB等模式.
  1085.       </td>
  1086.     </tr>
  1088. <%if request.QueryString("Act")="Search" then %>
  1089.     <tr class="hback"> 
  1090.       <td align="right">自编号ID</td>
  1091.       <td>
  1092.    <input type="text" name="AddrID" id="AddrID" size="40" maxlength="11">
  1093.       </td>
  1094.     </tr>
  1095. <%end if%>
  1096. <tr  class="hback">
  1097. <td id="Ajax_AddrInfo" colspan="4">
  1098. <%if Bol_IsEdit then Call Edit_AddrList(DS_Rs("DownLoadID")) end if%>
  1099. </td>
  1100. </tr>
  1102.     <tr  class="hback"> 
  1103.               <td align="right">添加下载</td>
  1104.       <td>
  1105. <input name="FilesNum" type="text" value="2" size="10" maxlength="2" onBlur="Do.these('FilesNum',function(){return isNumber('FilesNum','FilesNum_Alt','必须正整数!',true)})" onKeyUp="Do.these('FilesNum',function(){return isNumber('FilesNum','FilesNum_Alt','必须正整数!',true)})"> 
  1106.         <input type="button" name="button42" value="设定" onClick="ChooseOption();">
  1107.                 <span id="FilesNum_Alt"></span> <span class="tx">请点击设定添加下载地址</span></td>
  1108.     </tr>
  1109. <tr  class="hback"><td colspan="4" id="OtherInput">
  1110. </td></tr>
  1111.    <tr  class="hback"> 
  1112.       <td align="center" colspan="4">
  1113.           <input type="submit" value=" 确定提交 "/> 
  1114.               &nbsp; <input type="reset" value=" 重置 " />
  1115.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("DownloadList.asp?Act=Del&DownLoadID=")%>'+DownLoadID.value">
  1116.       </td>
  1117.     </tr>
  1118. </tbody>
  1119. </table>
  1120. </form>
  1121. <!--主表结束-->
  1122. </td></tr></table>
  1123. <%
  1124. End Sub
  1126. Sub Edit_AddrList(DownID)
  1127. Dim rowii
  1128. rowii = 0
  1129. if DownID<>"" then
  1130. DS_Sql1 = "select ID,AddressName,Url,Number from FS_DS_Address where DownLoadID = '"&DownID&"' order by Number desc"
  1131. set DS_Rs1 = Conn.execute(DS_Sql1)
  1132. response.Write("<table border=""0"" width=""100%"" cellpadding=""3"" cellspacing=""1"" class=""table"">"&vbcrlf)
  1133. do while not DS_Rs1.eof 
  1134. rowii = rowii + 1%>
  1135.     <tr  class="hback"> 
  1136.       <td align="right">下载地址名称</td>
  1137.       <td>
  1138. <input type="text" size="40" maxlength="50" name="AddressName" id="AddressName" value="<%=DS_Rs1("AddressName")%>"
  1139.     onFocus="Do.these('AddressName',function(){return isEmpty('AddressName','AddressName_Alt<%=rowii%>')})" onKeyUp="Do.these('AddressName',function(){return isEmpty('AddressName','AddressName_Alt<%=rowii%>')})"> 
  1140.   <span id="AddressName_Alt<%=rowii%>"></span>
  1141.   </td>   
  1142.     </tr>
  1143.     <tr>
  1144.       <td class="hback" align="right">下载地址</td>
  1145.       <td colspan="3" class="hback">
  1146.   <input name="Url" type="text" id="Url" maxlength="100" style="width:50%" value="<%=DS_Rs1("Url")%>"> 
  1147.      <input type="button" name="bnt_ChoosePic_rowBettween"  value="选择文件" onClick="SelectFile();">
  1148.   <span id="Url_Alt"></span>
  1149.   </td>
  1150.     </tr>
  1151.     <tr  class="hback"> 
  1152.       <td align="right">下载地址排序</td>
  1153.       <td>
  1154.   <input type="text" name="Number" id="Number" size="10" maxlength="1" value="<%=DS_Rs1("Number")%>">
  1155.   <%if rowii>1 then%>
  1156.   <input type="button" class="tx" value="删除这条下载" onClick="if(confirm('确定删除这条下载吗？')) {new Ajax.Updater('Ajax_AddrInfo','DownloadList_Ajax.asp?no-cache='+Math.random() , {method: 'get', parameters: 'Act=DelAddr&DownLoadID=<%=DownID%>&AddrID=<%=DS_Rs1("ID")%>' });disabled=true;}">
  1157.   <%end if%>
  1158.       <span class=tx>默认排序请留空！</span></td>
  1159.     </tr>
  1160. <%
  1161. DS_Rs1.movenext
  1162. loop
  1163. response.Write("</table>")
  1164. DS_Rs1.close
  1165. end if
  1167. end Sub
  1169. set DS_Rs = Nothing
  1170. User_Conn.close
  1171. Conn.close
  1172. %>
  1173. <script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
  1174. <script language="JavaScript">
  1175. <!--//判断后将排序完善.字段名后面显示指示
  1176. //打开后根据规则显示箭头
  1177. var Req_FildName;
  1178. if (Old_Sql.indexOf("filterorderby=")>-1)
  1179. {
  1180. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  1181. for(var ii=0;ii<tmp_arr_.length;ii++)
  1182. {
  1183. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  1184. {
  1185. if(Old_Sql.indexOf("csed")>-1)
  1186. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  1187. else
  1188. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  1189. }
  1190. }
  1191. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  1192. {
  1193. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  1194. {
  1195. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  1196. }
  1197. else
  1198. {
  1199. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  1200. }
  1201. }
  1202. }
  1203. /////////////////////////////////////////////////////////
  1204. function chkinput()
  1205. {
  1206. var mainb=isEmpty('Name','Name_Alt') &&  isEmpty('ClassID','ClassName_Alt') && isEmpty('Description','Description_Alt') && isEmpty('FileExtName','FileExtName_Alt') ;
  1207. if (mainb==true)
  1208. {
  1209. if (document.getElementById('AddressName')==null)
  1210. {
  1211. mainTable.tBodies[0].style.display="none";
  1212. mainTable.tBodies[1].style.display="";
  1213. alert('别忘了添加下载地址！');
  1214. ChooseOption();
  1215. return false;
  1216. }
  1217. else if (document.getElementById('AddressName').value=='')
  1218. {
  1219. mainTable.tBodies[0].style.display="none";
  1220. mainTable.tBodies[1].style.display="";
  1221. alert('请添加下载地址！');
  1222. document.getElementById('AddressName').focus();
  1223. return false;
  1224. }
  1225. else         
  1226. return mainb;
  1227. }
  1228. return mainb;
  1229. }
  1231. function secBoard(n)
  1232. {  
  1233.   for(i=0;i<mainTable.tBodies.length;i++)
  1234.   {
  1235.    mainTable.tBodies[i].style.display="none"; 
  1236. document.getElementById('secTableTd'+i).className = ''; 
  1237.   }
  1238.   event.srcElement.className='xingmu';
  1239.   mainTable.tBodies[n].style.display="block";
  1240. }
  1242. function SelectClass()
  1243. {
  1244. var ReturnValue='',TempArray=new Array();
  1245. ReturnValue = OpenWindow('lib/SelectClassFrame.asp',400,300,window);
  1246. if (ReturnValue.indexOf('***')!=-1)
  1247. {
  1248. TempArray = ReturnValue.split('***');
  1249. document.form1.ClassID.value=TempArray[0]
  1250. document.form1.ClassName.value=TempArray[1]
  1251. }
  1252. }
  1254. <%if request.QueryString("Act")="Add" or request.QueryString("Act")="Edit" then%>
  1255. function document.onreadystatechange()
  1256. {
  1257. ChooseExeName();
  1258. }
  1259. <%end if%>
  1260. function ChooseExeName()
  1261. {
  1262.   var ObjValue = document.form1.selectPop.options[document.form1.selectPop.selectedIndex].value;
  1263.   if (ObjValue!='')
  1264.   {
  1265. if (document.form1.BrowPop.value=='')
  1266. document.form1.BrowPop.value = ObjValue;
  1267. else if(document.form1.BrowPop.value.indexOf(ObjValue)==-1)
  1268. document.form1.BrowPop.value = document.form1.BrowPop.value+","+ObjValue;
  1269. if (ObjValue=='del')
  1270.    document.form1.BrowPop.value ='';
  1271.   }
  1272.    CheckNumber(document.form1.ConsumeNum,"浏览扣点值");
  1273.   if (document.form1.ConsumeNum.value>32767||document.form1.ConsumeNum.value<-32768||document.form1.ConsumeNum.value=='0')
  1274. {
  1275. alert('浏览扣点值超过允许范围！n最大32767，且不能为0');
  1276. document.form1.ConsumeNum.value='';
  1277. document.form1.ConsumeNum.focus();
  1278. }
  1279.   if (isNaN(document.form1.OverDue.value)||document.form1.OverDue.value>32767||document.form1.OverDue.value<0)
  1280. {
  1281. alert('过期天数必须大于等于0');
  1282. document.form1.OverDue.value='';
  1283. document.form1.OverDue.focus();
  1284. }
  1285.   if (document.form1.BrowPop.value!=''||document.form1.ConsumeNum.value!=''||(document.form1.OverDue.value!=''&&document.form1.OverDue.value!='0')){document.form1.FileExtName.options[5].selected=true;document.form1.FileExtName.readonly=true;}
  1286.   else {document.form1.FileExtName.readonly=false;}
  1287. }
  1288. function CheckFileExtName(Obj)
  1289. {
  1290. if (Obj.value!='')
  1291. {
  1292. for (var i=0;i<document.all.FileExtName.length;i++)
  1293. {
  1294. if (document.all.FileExtName.options(i).value=='asp') document.all.FileExtName.options(i).selected=true;
  1295. }
  1296. document.all.FileExtName.readonly=true;
  1297. }
  1298. else
  1299. {
  1300. document.all.FileExtName.readonly=false;
  1301. }
  1302. }
  1305. function ChooseOption()
  1306.  {
  1307.   var FilesNum = document.all.FilesNum.value;
  1308.   if (FilesNum=='')
  1309.    FilesNum=2;
  1310.   if (!isNumber('FilesNum','FilesNum_Alt','必须正整数!',true)) {document.all.FilesNum.value='2';FilesNum=2;}
  1311.   var i,Optionstr;
  1312.   Optionstr = '<table border="0" width="100%" cellpadding="3" cellspacing="1" class="table">';
  1313.   for (i=1;i<=FilesNum;i++)
  1314.       {
  1315.    Optionstr += '    <tr  class="hback">n' 
  1316.        Optionstr += '<td align="right">下载地址名称</td>n'
  1317.        Optionstr += '<td>n'
  1318.    Optionstr += '<input type="text" size="40" maxlength="50" name="AddressName" id="AddressName" value="" '
  1319.   //Optionstr += "onFocus="Do.these('AddressName',function(){return isEmpty('AddressName','AddressName_Alt"+i+"')})" onKeyUp="Do.these('AddressName',function(){return isEmpty('AddressName','AddressName_Alt"+i+"')})" "
  1320.    Optionstr += "onBlur="if(this.value!='') new Ajax.Updater('Name_Chk"+i+"','DownloadList_Ajax.asp?no-cache='+Math.random() , {method: 'get', parameters: 'Act=Check&stype=addrname&value='+this.value });">n"
  1321.    Optionstr += '<span id="Name_Chk'+i+'"></span>n'
  1322.    Optionstr += '</td>n'
  1323.        Optionstr += '</tr>n'
  1324.        Optionstr += '<tr>n'
  1325.        Optionstr += '<td class="hback" align="right">下载地址</td>n'
  1326.        Optionstr += '<td colspan="3" class="hback" id="td_Url"+i>n'
  1327.    Optionstr += '<input name="Url" type="text" id="Url" style="width:50%"  maxlength="100" value="">n' 
  1328.    Optionstr += '<input type="button" name="bnt_ChoosePic_rowBettween"  value="选择文件" onClick="SelectFile();">n' 
  1329.    Optionstr += '</td>n'
  1330.        Optionstr += '</tr>n'
  1331.        Optionstr += '<tr  class="hback"> n'
  1332.        Optionstr += '<td align="right">下载地址排序</td>n'
  1333.        Optionstr += '<td>n'
  1334.    Optionstr += '<input type="text" name="Number" id="Number" size="10" maxlength="1" value=""><span class=tx>默认排序请留空！</span>n'
  1335.        Optionstr += '</td>n'
  1336.        Optionstr += '</tr>n' ;
  1337.    }
  1338.   Optionstr += '</table>n' ;
  1339.   //alert(Optionstr);
  1340.   document.all.OtherInput.innerHTML = Optionstr;
  1341.   }
  1343. function SelectFile()     
  1344. {
  1345.  var returnvalue = OpenWindow('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window);
  1346.  if (returnvalue!='')
  1347.  {
  1348.   event.srcElement.parentNode.firstChild.value=returnvalue;
  1349.  }
  1350. }
  1352. function ReImgSize(objstr)
  1353. {
  1354. if ($(objstr).tagName=='IMG')
  1355. if ($(objstr).src.indexOf("Files/")>-1)
  1356. {
  1357. if ($(objstr).offsetWidth>100)  $(objstr).width="100";
  1358. }
  1359. }  
  1360. -->
  1361. </script>
  1364. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->