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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 多媒体编程 > 查看源码
function.asp
资源名称：1.rar　[点击查看]
上传用户：ziqing_518
上传日期：2022-08-09
资源大小：446k
文件大小：56k
源码类别：

多媒体编程

开发平台：

ASP/ASPX

function.asp：源码内容
  1. <%
  2. '如果你美化的漂亮或者修正了最多只可以同时添加5集和不能修改用户虚拟币的BUG记得联系一下网络游子哟~！我的QQ35325750或者1006389
  3. %>
  4. <%
  5. Response.Expires=0
  7. '--------------------附加码--------------------
  9. function index_copyid()
  11. Randomize
  13. session("numCopyid")=Int((9999 - 1000 + 1) * Rnd + 1000)
  15. index_copyid=session("numCopyid")
  17. end function
  19. '--------------------显示影片推荐--------------------
  21. function show_commend()
  23. Set rs = Server.CreateObject("ADODB.Recordset")
  24. rs.CursorType = adOpenStatic
  25. rs.CacheSize = cint(numCommend_1)
  26. sql="select download.id,download.name,download.dateRtime,download.strCommend,download.strPic,download.strShow from download where boolCommend=true order by dateRtime desc"
  27. rs.open sql, conn,1,1
  28. if rs.eof then
  29. response.write("无推荐影片")
  30. else
  31. response.write("<table width='100%' border='0' cellspacing='3' cellpadding='0'>")
  32. for i= 1 to numCommend_1
  33. numId=rs("id")
  34. if rs("strPic")="" then
  35. strPic="./images/nopic.gif"
  36. else
  37. strPic=rs("strPic")
  38. end if
  39. strName=rs("name")
  40. select case left(rs("strCommend"),1)
  41. case "0"
  42. strCommend="☆☆☆☆☆"
  43. case "1"
  44. strCommend="★☆☆☆☆"
  45. case "2"
  46. strCommend="★★☆☆☆"
  47. case "3"
  48. strCommend="★★★☆☆"
  49. case "4"
  50. strCommend="★★★★☆"
  51. case "5"
  52. strCommend="★★★★★"
  53. end select
  54. strShow=rs("strShow")
  55. if len(strShow)>numShows_1 then
  56. strShow=left(strShow,numShows_1) & "..."
  57. end if
  58. if i=1 then
  59. response.write("<tr>"&_
  60. "<td align='center'><a href='./show.asp?id="&numId&"' target='_blank'><img border='0' src='"&strPic&"' title='影片名称:"&strName&"<br>推荐度:"&strCommend&"' width='120' height='90'></a></td>"&_
  61. "</tr><tr>"&_ 
  62. "<td><p style='text-indent: 20'>"&strShow&"</p></td>"&_
  63. "</tr><tr>"&_
  64. "<td>☆<b>以往精品推荐 OLD!</b></td>"&_
  65. "</tr><tr><td>")
  66. else
  67. response.write("<li><a href='./show.asp?id="&numId&"' target='_blank' title='影片名称:"&strName&"<br>推荐度:"&strCommend&"<br>简介:"&strShow&"'>"&strName&"</a></li>")
  68. end if
  69. rs.movenext
  70. if rs.eof then
  71. exit for
  72. end if
  73. next
  74. response.write("</td></tr></table>")
  75. end if
  77. rs.close
  78. set rs=nothing
  80. end function
  82. '--------------------首页分类列表--------------------
  84. function sort_show()
  86. Set rs = Server.CreateObject("ADODB.Recordset")
  87. sql="select sort.id,sort.sort from sort"
  88. rs.open sql, conn,1,1
  89. if rs.eof then
  90. response.write("<tr align='center'><td width='100%' align='center'>还没有分类内容</td></tr>")
  91. else
  92. while not rs.eof
  93. strSort=rs("sort")
  94. response.write("<tr align='center'><td width='20%' align='right' valign='top'>"&_
  95. "<table width='100%' border='0' cellspacing='0' cellpadding='3'>"&_
  96. "<tr>"&_
  97. "<td width='100%' align='right' valign='top'>"&strSort&":</td></tr></table>")
  98. Set rs1 = Server.CreateObject("ADODB.Recordset")
  99. sql1="select small.id,small.small,small.sortid from small where sortid='"&strSort&"'"
  100. rs1.open sql1, conn,1,1
  101. if rs1.eof then
  102. response.write("<td width='80%'>"&_
  103. "<table width='100%' border='0' cellspacing='0' cellpadding='3'><tr>"&_
  104. "<td width='100%'>还没有二级分类内容</td></tr></table>")
  105. else
  106. numI=0
  107. response.write("<td width='80%'>"&_
  108. "<table width='100%' border='0' cellspacing='0' cellpadding='3'><tr align='center'>")
  109. while not rs1.eof
  110. numI=numI+1
  111. numSmallid=rs1("id")
  112. strSmall=rs1("small")
  113. response.write("<td width='25%'><a href='list.asp?type="&numSmallid&"'>"&strSmall&"</a></td>")
  114. if numI mod 4=0 then
  115. response.write("</tr><tr align='center'>")
  116. end if
  117. rs1.movenext
  118. wend
  119. if numI<4 then
  120. for i= 1 to 4-numI
  121. response.write("<td width='25%'>&nbsp;</td>")
  122. next
  123. end if
  124. response.write("</tr></table></td>"&_
  125. "<tr align='center'>"&_ 
  126. "<td colspan='5'>"&_
  127. "<hr align='right' width='92%' size='1' noshade>"&_
  128. "</td></tr>")
  129. end if
  130. rs1.close
  131. set rs1=nothing
  132. rs.movenext
  133. wend
  134. rs.close
  135. set rs=nothing
  136. end if
  138. end function
  140. '--------------------首页公告显示--------------------
  142. function affiche_indexshow()
  144. Set rs = Server.CreateObject("ADODB.Recordset")
  145. sql="select affiche.title,affiche.times from affiche order by times desc"
  146. rs.open sql,conn,1,1
  147. if rs.eof then
  148. response.write("<b><a href='affiche.asp' target='_blank'>还没有添加公告，请去管理区添加公告</a></b>")
  149. else
  150. rs.movefirst
  151. strTitle=rs("title")
  152. dateTimes=rs("times")
  153. response.write("<b>最新公告:</b> <a href='affiche.asp' target='_blank'>"&strTitle&"</a> ("&dateTimes&")")
  154. end if
  156. rs.close
  157. set rs=nothing
  159. end function
  161. '--------------------列表分类显示--------------------
  163. function list_sort()
  165. Set rs = Server.CreateObject("ADODB.Recordset")
  166. sql="select sort.id,sort.sort from sort"
  167. rs.open sql, conn,1,1
  168. if rs.eof then
  169. response.write("<option selected>--==没有分类==--</option>")
  170. else
  171. if request.QueryString("type")="" then
  172. response.write("<option value='list.asp' selected>--==影片分类列表==--</option>")
  173. else
  174. response.write("<option value='list.asp'>--==影片分类列表==--</option>")
  175. end if
  176. while not rs.eof
  177. strSort=rs("sort")
  178. response.write("<option value='list.asp'>---"&strSort&"---</option>")
  179. Set rs1 = Server.CreateObject("ADODB.Recordset")
  180. sql1="select small.id,small.small,small.sortid from small where sortid='"&strSort&"'"
  181. rs1.open sql1, conn,1,1
  182. while not rs1.eof
  183. numSmallid=cint(rs1("id"))
  184. strSmall=rs1("small")
  185. numRequest=cint(request.QueryString("type"))
  186. if numRequest=numSmallid then
  187. strSelected="selected"
  188. else
  189. strSelected=""
  190. end if
  191. response.write("<option "&strSelected&" value='list.asp?type="&numSmallid&"'>"&strSmall&"</option>")
  192. rs1.movenext
  193. wend
  194. rs1.close
  195. set rs1=nothing
  196. rs.movenext
  197. wend
  198. end if
  199. rs.close
  200. set rs=nothing
  202. end function
  204. '--------------------列表影片显示--------------------
  206. function list_soft()
  208. strType=request.QueryString("type")
  209. strRang=request.QueryString("rang")
  210. strTch=request("TTYPE")
  211. strSearch=request("KEY")
  212. if request.QueryString("page")<>"" then
  213. absPageNum=request.QueryString("page")
  214. else
  215. absPageNum=1
  216. end if
  217. RecordPerPage = numSofts_1
  218. Set rs3 = Server.CreateObject("ADODB.Recordset")
  219. rs3.CursorType = adOpenStatic
  220. rs3.CacheSize = RecordPerPage
  221. sql3="select * from download"
  222. if strType<>"" then
  223. sql3=sql3&" where boolZhen=False and numSortcount="&strType
  224. else
  225. if strSearch<>"" then
  226. if strTch="BYNAME" then
  227. sql3=sql3&" where boolZhen=False and name like '%"&strSearch&"%'"
  228. else
  229. sql3=sql3&" where boolZhen=False and strShow like '%"&strSearch&"%'"
  230. end if
  231. else
  232. sql3=sql3&" where boolZhen=False"
  233. end if
  234. end if
  235. if strRang<>"" then
  236. sql3=sql3&" order by "&strRang&" desc"
  237. else
  238. sql3=sql3&" order by dateRtime desc"
  239. end if
  240. rs3.open sql3, conn,1,1
  241. rs3.PageSize = RecordPerPage
  242. Tol = rs3.PageCount
  243. If Not(rs3.EOF) Then
  244. rs3.AbsolutePage = absPageNum
  245. End If
  247. if rs3.eof then
  248. response.write("<li>该分类还没有影片<li>没找到你要的影片")
  249. else
  250. For absRecordNum = 1 to rs3.PageSize
  251. numRs3id=rs3("id")
  252. strRs3name=rs3("name")
  253. dateRs3time=rs3("dateRtime")
  254. imgRs3commend=("<img src='images/"&rs3("strCommend")&"'>")
  255. if rs3("strDemo")<>"" then
  256. strRs3demo=("<a href='"&rs3("strDemo")&"' target=_blank>演示</a>")
  257. else
  258. strRs3demo=("<font color='#C0C0C0'>演示</font>")
  259. end if
  260. strRs3big=rs3("strBig")
  261. strRs3sort=rs3("strSort")
  262. if len(rs3("strShow"))>numShows_1 then
  263. strRs3show=left(rs3("strShow"),numShows_1) & "..."
  264. else
  265. strRs3show=rs3("strShow")
  266. end if
  267. strRs3size=rs3("strSize")
  268. strRs3count=("今日观看:"&rs3("numDaydown")&" 本月观看:"&rs3("numMonthdown")&" 总观看:"&rs3("numDowncount")&" 总浏览:"&rs3("numCounters"))
  269. if boolHide_1=true then
  270. if rs3("boolHide")=true then
  271. strRs3hide=(" <img align='absmiddle' border='0' src='./images/regsoft.gif' alt='观看资金"&rs3("numMoneys")&strMoneyname_1&"(虚拟币)'>")
  272. else
  273. strRs3hide=""
  274. end if
  275. end if
  276. response.write("<table width=""95%"" align=""center"" border=""0"" cellpadding=""3"" cellspacing=""2"" bgcolor=""#EEEEEE"">"& vbCRLF & _
  277. "<tr align=""center"" bgcolor=""#E0E0E0"">"& vbCRLF & _ 
  278. "<td width=""30%"" align=""left""><strong>影片名称和简介</strong></td>"& vbCRLF & _
  279. "<td width=""23%""><strong>分类</strong></td>"& vbCRLF & _
  280. "<td width=""22%""><strong>更新时间</strong></td>"& vbCRLF & _
  281. "<td width=""10%""><strong>大小</strong></td>"& vbCRLF & _
  282. "<td width=""10%""><strong>推荐度</strong></td>"& vbCRLF & _
  283. "</tr>"& vbCRLF & _
  284. "<tr bgcolor=""#D0D0D0"" align=""center"">"& vbCRLF & _ 
  285. "<td width=""30%""><a href='show.asp?id="&numRs3id&"'>"&strRs3name&"</a>"&strRs3hide&"</td>"& vbCRLF & _
  286. "<td width=""23%"">"&strRs3big&"｜"&strRs3sort&"</td>"& vbCRLF & _
  287. "<td width=""22%"">"&dateRs3time&"</td>"& vbCRLF & _
  288. "<td width=""10%"">"&strRs3size&"</td>"& vbCRLF & _
  289. "<td width=""10%"">"&imgRs3commend&"</td>"& vbCRLF & _
  290. "</tr>"& vbCRLF & _
  291. "<tr bgcolor=""#E0E0E0"">"& vbCRLF & _
  292. "<td colspan=""5"">"&strRs3show&"</td>"& vbCRLF & _
  293. "</tr>"& vbCRLF & _
  294. "<tr bgcolor=""#D0D0D0"">"& vbCRLF & _ 
  295. "<td colspan=""5"">"&strRs3count&" "&strRs3demo&"</td>"& vbCRLF & _
  296. "</tr>"& vbCRLF & _
  297. "</table><br>")
  298. rs3.movenext
  299. if rs3.eof then
  300. exit for
  301. end if
  302. next
  303. end if
  304. rs3.close
  305. set rs3=nothing
  306. numPagenext=absPageNum+1
  307. numPageup=absPageNum-1
  308. if numPageup<1 then
  309. numPageup=1
  310. end if
  311. if numPagenext>Tol then
  312. numPagenext=Tol
  313. end if
  314. strPageup=("[<a href='list.asp?page="&numPageup)
  315. strPagenext=("[<a href='list.asp?page="&numPagenext)
  316. if strType<>"" then
  317. if strRang<>"" then
  318. strPage=("&type="&strType&"&rang="&strRang)
  319. else
  320. strPage=("&type="&strType)
  321. end if
  322. else
  323. if strRang<>"" then
  324. if strSearch<>"" then
  325. strPage=("&rang="&strRang&"&KEY="&strSearch&"&TTYPE="&strTch)
  326. else
  327. strPage=("&rang="&strRang)
  328. end if
  329. else
  330. if strSearch<>"" then
  331. strPage=("&KEY="&strSearch&"&TTYPE="&strTch)
  332. else
  333. strPage=""
  334. end if
  335. end if
  336. end if
  337. strPageup=(strPageup&strPage&"'>上一页</a>]")
  338. strPagenext=(strPagenext&strPage&"'>下一页</a>]")
  339. strSelectPage=("<option value='list.asp' selected>请选择</option>")
  340. for i=1 to Tol
  341. strSelectPage=(strSelectPage&"<option value='list.asp?page="&i&strPage&"'>第"&i&"页</option>")
  342. next
  343. response.write("<form><table width='90%' border='0' align='center' cellpadding='0' cellspacing='0'>"&_
  344. "<tr>"&_ 
  345. "<td align='right'>"&_
  346. "当前页:[<font color='#FF0000'><strong>"&absPageNum&"</strong></font>]"&_
  347. " 共 <font color='#FF0000'><strong>"&Tol&"</strong></font>"&_
  348. " 页 每页:[<font color='#FF0000'><strong>"&RecordPerPage&"</strong></font>]"&_
  349. " "&strPageup&" "&strPagenext&" 转到"&_
  350. " <select name='select2' onChange='window.location=form.select2.options[form.select2.selectedIndex].value' size=1>"&strSelectPage&"</select> 页 </td></table></form><br>")
  351. end function
  353. '--------------------相关影片显示--------------------
  355. function strS_show()
  357. if IsNumeric(request.QueryString("id"))=False then
  358. response.write("请勿输入非法字符")
  359. response.end
  360. end if
  362. sql1="select download.id,download.strString,download.numSortcount from download where id="&request.QueryString("id")
  363. rs1=conn.execute(sql1)
  364. strGjz=rs1("strString")
  365. numSortcount=rs1("numSortcount")
  367. Set rs1 = Server.CreateObject("ADODB.Recordset")
  368. sql1="select download.id,download.name,download.dateRtime,download.strBig,download.strSort,download.numCounters,download.numDowncount,download.numDaydown,download.numMonthdown,download.strString,download.boolZhen from download where boolZhen=False and strString='"&strGjz&"'"
  369. rs1.open sql1,conn,1,1
  370. if rs1.eof then
  371. response.write("<li>没有相关影片")
  372. else
  373. numCount=False
  374. for i = 1 to numXgsoft_1
  375. if rs1("id")<>cint(request.QueryString("id")) then
  376. numRs1id=rs1("id")
  377. strRs1name=rs1("name")
  378. dateRs1time=rs1("dateRtime")
  379. strRs1big=rs1("strBig")
  380. strRs1sort=rs1("strSort")
  381. numRs1counters=rs1("numCounters")
  382. numRs1downcount=rs1("numDowncount")
  383. numRs1Daydown=rs1("numDaydown")
  384. numRs1Monthdown=rs1("numMonthdown")
  385. response.write("<li><a href='show.asp?id="&numRs1id&"' title='"&strRs1name&" - "&strRs1big&"|"&strRs1sort&" "&dateRs1time&"<br>今:"&numRs1Daydown&" 周:"&numRs1Monthdown&" 总:"&numRs1downcount&" 浏:"&numRs1counters&"' target=_blank>"&strRs1name&"</a>")
  386. numCount=True
  387. rs1.movenext
  388. if rs1.eof then
  389. exit for
  390. end if
  391. end if
  392. next
  393. if numCount=False then
  394. response.write("<li>没有相关影片")
  395. end if
  396. end if
  397. rs1.close
  398. set rs1=nothing
  400. end function
  402. '--------------------影片详细资料--------------------
  404. function soft_show()
  406. dim strSdown(4)
  408. if IsNumeric(request.QueryString("id"))=False then
  409. response.write("请勿输入非法字符")
  410. response.end
  411. end if
  413. sql1="update download set numCounters=numCounters+1 where id="&request.QueryString("id")
  414. conn.execute sql1
  416. sql1="select * from download where id="&request.QueryString("id")
  417. rs1=conn.execute(sql1)
  419. if rs1("boolZhen")=True then
  420. response.write("该影片还没有通过超级管理员的验证,您无法访问")
  421. response.end
  422. end if
  423. numSid=rs1("id")
  424. strSname=rs1("name")
  425. dateSRtime=rs1("dateRtime")
  426. strSsize=rs1("strSize")
  427. strSmode=rs1("strMode")
  428. strSroof=rs1("strRoof")
  429. strScommend=rs1("strCommend")
  430. strShomepage=rs1("strHomepage")
  431. if strShomepage<>"" then
  432. strSShomepage=("<a href='"&strShomepage&"' target=_blank>Home Page</a>")
  433. else
  434. strSShomepage=("<font color='#C0C0C0'>Home Page</font>")
  435. end if
  436. strSdemo=rs1("strDemo")
  437. if strSdemo<>"" then
  438. strSSdemo=("<a class='shadow1' href='"&strSdemo&"' target=_blank>演示</a>")
  439. else
  440. strSSdemo=("<font color='#C0C0C0'>演示</font>")
  441. end if
  442. strSpic=rs1("strPic")
  443. if strSpic<>"" then
  444. strSSpic=("<img src='"&strSpic&"' width=""154"" height=""120"">")
  445. else
  446. strSSpic=""
  447. end if
  449. strSbig=rs1("strBig")
  450. strSsort=rs1("strSort")
  451. numSsortcount=rs1("numSortcount")
  452. if boolUbb_1=False then
  453. strSshow=HTMLEncode(rs1("strShow"))
  454. else
  455. strSshow=UBBCode(rs1("strShow"))
  456. end if
  457. numScounters=rs1("numCounters")
  458. numSdowncount=rs1("numDowncount")
  459. strSdown(0)=rs1("down1")
  460. strSdown(1)=rs1("down2")
  461. strSdown(2)=rs1("down3")
  462. strSdown(3)=rs1("down4")
  463. strSdown(4)=rs1("down5")
  464. boolShide=rs1("boolHide")
  465. numSmoneys=rs1("numMoneys")
  466. strSadmin=rs1("strAdmins")
  467. strSsong=rs1("strSong")
  468. numSDaydown=rs1("numDaydown")
  469. numSMonthdown=rs1("numMonthdown")
  470. dateDaynow=rs1("dateDaynow")
  471. dateMonthnow=rs1("dateMonthnow")
  473. if boolShide=TRUE then
  474. if request.cookies("nicedown")("admin")="" then
  475. strSSdown=("<font color=#ff0000><b>该影片是注册影片，登陆后才能观看</b></font>")
  476. else
  477. for i= 0 to 4
  478. if strSdown(i)<>"" then
  479. strSSdown=strSSdown+("<a href='show.asp?id="&numSid&"&down="&i+1&"'>第"&i+1&"集</a> ")
  480. end if
  481. next
  482. strSSdown=strSSdown+("<font color=#ff0000><b>本影片观看会消耗你的虚拟钱币"&numSmoneys&strMoneyname_1&"</b></font>")
  483. end if
  484. else
  485. for i= 0 to 4
  486. if strSdown(i)<>"" then
  487. strSSdown=strSSdown+("<a href='show.asp?id="&numSid&"&down="&i+1&"'><font color=#ff0000><b>第"&i+1&"集</a></b></font> ")
  488. end if
  489. next
  490. end if
  492. if request.QueryString("down")<>"" then
  493. numDownnow=request.QueryString("down")
  494. if boolShide=TRUE then
  495. if request.cookies("nicedown")("admin")<>"" then
  496. strUser=request.cookies("nicedown")("admin")
  497. strPws=md5(request.cookies("nicedown")("pws"))
  498. Set rs2 = Server.CreateObject("ADODB.Recordset")
  499. sql2="select admin.admin,admin.pws,admin.moneyert from admin where admin='"&strUser&"'"
  500. rs2.open sql2,conn,1,1
  501. if rs2.eof then
  502. strSSdown=("<font color=#ff0000><b>没有该用户，无法执行观看操作</b></font>")
  503. else
  504. if clng(rs2("moneyert"))>=clng(numSmoneys) and clng(numSmoneys)>0 then
  505. strDownload=True
  506. else
  507. strDownload=False
  508. end if
  509. end if
  510. rs2.close
  511. set rs2=nothing
  512. if strDownload=True then
  513. sql2="update admin set moneyert=moneyert-"&numSmoneys&" where admin='"&strUser&"'"
  514. conn.execute sql2
  515. dateOLDnows=now()
  516. sql3="update download set numDowncount=numDowncount+1,"
  517. if DateDiff("d", dateDaynow, dateOLDnows)>=1 then
  518. if DateDiff("ww", dateMonthnow, dateOLDnows)>=1 then
  519. sql3=sql3&"dateDaynow='"&dateOLDnows&"',dateMonthnow='"&dateOLDnows&"',numDaydown=1,numMonthdown=1"
  520. else
  521. sql3=sql3&"dateDaynow='"&dateOLDnows&"',numDaydown=1,numMonthdown=numMonthdown+1"
  522. end if
  523. else
  524. sql3=sql3&"numDaydown=numDaydown+1,numMonthdown=numMonthdown+1"
  525. end if
  526. sql3=sql3&" where id="&request.QueryString("id")
  527. conn.execute sql3
  528. response.redirect strSdown(numDownnow-1)
  529. else
  530. strSSdown=("<font color=#ff0000><b>您的虚拟币不够观看本影片</b></font>")
  531. end if
  532. else
  533. strSSdown=("<font color=#ff0000><b>请按照正规途径观看该影片</b></font>")
  534. end if
  535. else
  536. dateOLDnows=now()
  537. sql3="update download set numDowncount=numDowncount+1,"
  538. if DateDiff("d", dateDaynow, dateOLDnows)>=1 then
  539. if DateDiff("ww", dateMonthnow, dateOLDnows)>=1 then
  540. sql3=sql3&"dateDaynow='"&dateOLDnows&"',dateMonthnow='"&dateOLDnows&"',numDaydown=1,numMonthdown=1"
  541. else
  542. sql3=sql3&"dateDaynow='"&dateOLDnows&"',numDaydown=1,numMonthdown=numMonthdown+1"
  543. end if
  544. else
  545. sql3=sql3&"numDaydown=numDaydown+1,numMonthdown=numMonthdown+1"
  546. end if
  547. sql3=sql3&" where id="&request.QueryString("id")
  548. conn.execute sql3
  549. response.redirect strSdown(numDownnow-1)
  550. end if
  551. end if
  553. Set rs = Server.CreateObject("ADODB.Recordset")
  554. sql="select * from review where numSoftid="&request.QueryString("id")&" order by dateRtime desc"
  555. rs.open sql,conn,1,1
  556. if rs.eof then
  557. strReview="<li>还没有评论，等待你的添加哦^_^"
  558. else
  559. numLong=5
  560. for i= 1 to numLong
  561. strName=rs("strName")
  562. strEmail=rs("strEmail")
  563. numQQ=rs("numQQ")
  564. strView=rs("strView")
  565. dateRtime=rs("dateRtime")
  566. numAccess=rs("numAccess")
  567. if strEmail<>"" then
  568. strEmail="<a href='mailto:"&strEmail&"'><img src='images/email1.gif' border=0 title='给 "&strName&" 发送邮件'></a>&nbsp;"
  569. end if
  570. if numQQ<>"0" then
  571. numQQ="<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&numQQ&"'><img src='images/oicq.gif' border=0 title='"&numQQ&"'></a>&nbsp;"
  572. else
  573. numQQ=""
  574. end if
  575. strReview=strReview+"<li>["&numAccess&"]"&strView&"&nbsp;"&strEmail&numQQ&"<img src='images/report.gif' title='"&dateRtime&"'>"
  576. rs.movenext
  577. if rs.eof then
  578. exit for
  579. end if
  580. next
  581. end if
  582. strReview=strReview+"<p align='right'><a href=""#"" onClick=""MM_openBrWindow('review.asp?id="&request.QueryString("id")&"','影片评论','width=400,height=330')"" title=""影片评论"">添加/查看影片评论</a></p>"
  583. rs.close
  584. set rs=nothing
  586. response.write("<bgsound src='"&strSsong&"' loop='1'><table width=""95%"" border=""0"" cellpadding=""3"" cellspacing=""2"" bgcolor=""#EEEEEE"" align=""center"">"& vbCRLF & _ 
  587.   "<tr>"& vbCRLF & _ 
  588.     "<td width=""15%"" bgcolor=""#E0E0E0"">影片名称：</td>"& vbCRLF & _ 
  589.     "<td width=""45%"" bgcolor=""#E0E0E0"">"&strSname&"</td>"& vbCRLF & _ 
  590.     "<td width=""40%"" rowspan=""10"" align=""center"">"&strSSpic&"</td>"& vbCRLF & _ 
  591.   "</tr>"& vbCRLF & _ 
  592.   "<tr>"& vbCRLF & _  
  593.     "<td width=""15%"" bgcolor=""#D0D0D0"">授权方式：</td>"& vbCRLF & _ 
  594.     "<td width=""45%"" bgcolor=""#D0D0D0"">"&strSmode&"</td>"& vbCRLF & _ 
  595.   "</tr>"& vbCRLF & _ 
  596.   "<tr>"& vbCRLF & _  
  597.     "<td width=""15%"" bgcolor=""#E0E0E0"">影片类别：</td>"& vbCRLF & _ 
  598.     "<td width=""45%"" bgcolor=""#E0E0E0"">"&strSbig&"￤"&strSsort&"</td>"& vbCRLF & _ 
  599.   "</tr>"& vbCRLF & _ 
  600.   "<tr>"& vbCRLF & _  
  601.     "<td width=""15%"" bgcolor=""#D0D0D0"">文件格式：</td>"& vbCRLF & _ 
  602.     "<td width=""45%"" bgcolor=""#D0D0D0"">"&strSroof&"</td>"& vbCRLF & _ 
  603.   "</tr>"& vbCRLF & _ 
  604.   "<tr>"& vbCRLF & _  
  605.     "<td width=""15%"" bgcolor=""#E0E0E0"">文件大小：</td>"& vbCRLF & _ 
  606.     "<td width=""45%"" bgcolor=""#E0E0E0"">"&strSsize&"</td>"& vbCRLF & _ 
  607.   "</tr>"& vbCRLF & _ 
  608.   "<tr>"& vbCRLF & _ 
  609.     "<td width=""15%"" bgcolor=""#D0D0D0"">推荐程度：</td>"& vbCRLF & _ 
  610.     "<td width=""45%"" bgcolor=""#D0D0D0""><img src='./images/"&strScommend&"'></td>"& vbCRLF & _ 
  611.   "</tr>"& vbCRLF & _ 
  612.   "<tr>"& vbCRLF & _  
  613.     "<td width=""15%"" bgcolor=""#E0E0E0"">更新日期：</td>"& vbCRLF & _ 
  614.     "<td width=""45%"" bgcolor=""#E0E0E0"">"&dateSRtime&"</td>"& vbCRLF & _ 
  615.   "</tr>"& vbCRLF & _ 
  616.   "<tr>"& vbCRLF & _  
  617.     "<td width=""15%"" bgcolor=""#D0D0D0"">出品公司：</td>"& vbCRLF & _ 
  618.     "<td width=""45%"" bgcolor=""#D0D0D0"">"&strSShomepage&"</td>"& vbCRLF & _ 
  619.   "</tr>"& vbCRLF & _ 
  620.   "<tr>"& vbCRLF & _  
  621.     "<td width=""15%"" bgcolor=""#E0E0E0"">影片统计：</td>"& vbCRLF & _ 
  622.     "<td width=""45%"" bgcolor=""#E0E0E0"">日："&numSDaydown&" 周："&numSMonthdown&" 总："&numSdowncount&" 浏："&numScounters&"</td>"& vbCRLF & _ 
  623.   "</tr>"& vbCRLF & _ 
  624.   "<tr>"& vbCRLF & _  
  625.     "<td width=""15%"" bgcolor=""#E0E0E0"">添加人员：</td>"& vbCRLF & _ 
  626.     "<td width=""45%"" bgcolor=""#E0E0E0""> <a href=""#"" onClick=""MM_openBrWindow('view.asp?user="&strSadmin&"','查看资料','width=220,height=200')"" title=""查看 "&strSadmin&" 的资料"">"&strSadmin&"</a>【<a href=""#"" onClick=""MM_openBrWindow('view.asp?user="&strSadmin&"&post=add','用户评分','width=220,height=200')"" title=""给 "&strSadmin&" 送鲜花"">送鲜花</a>￤<a href=""#"" onClick=""MM_openBrWindow('view.asp?user="&strSadmin&"&post=del','用户评分','width=220,height=200')"" title=""向 "&strSadmin&" 扔鸡蛋"">扔鸡蛋</a>】</td>"& vbCRLF & _ 
  627.   "</tr>"& vbCRLF & _ 
  628.   "<tr>"& vbCRLF & _  
  629.     "<td height=""15"" bgcolor=""#D0D0D0"">影片介绍：</td>"& vbCRLF & _ 
  630.     "<td colspan=""2"" bgcolor=""#D0D0D0"">"&strSshow&"</td>"& vbCRLF & _ 
  631.   "</tr>"& vbCRLF & _ 
  632.   "<tr>"& vbCRLF & _  
  633.     "<td height=""15"" bgcolor=""#E0E0E0"">观看地址：</td>"& vbCRLF & _ 
  634.     "<td colspan=""2"" bgcolor=""#E0E0E0"">"&strSSdown&"</td>"& vbCRLF & _ 
  635.   "</tr>"& vbCRLF & _ 
  636.   "<tr>"& vbCRLF & _  
  637.     "<td height=""15"" bgcolor=""#D0D0D0"">观看说明：</td>"& vbCRLF & _ 
  638.     "<td colspan=""2"" bgcolor=""#D0D0D0"">"&strSoftshows_1&"</td>"& vbCRLF & _ 
  639.   "</tr>"& vbCRLF & _ 
  640.   "<tr>"& vbCRLF & _  
  641.     "<td height=""15"" bgcolor=""#D0D0D0"">相关评论：</td>"& vbCRLF & _ 
  642.     "<td colspan=""2"" bgcolor=""#D0D0D0"">"&strReview&"</td>"& vbCRLF & _ 
  643.   "</tr>"& vbCRLF & _ 
  644.   "<tr>"& vbCRLF & _  
  645.     "<td colspan=""3"" bgcolor=""#D0D0D0"" align=""center"">"&ADShowFunction(6,strADShow_1(3))&"</td>"& vbCRLF & _ 
  646.   "</tr>"& vbCRLF & _ 
  647. "</table>")
  649. end function
  651. '--------------------列表详细信息--------------------
  652. function list_intor()
  654. sql2="select count(*) as totles,sum(numCounters) as tcount,sum(numDowncount) as dcount from download"
  655. if request.QueryString("type")<>"" then
  656. sql2=sql2&" where numSortcount="&request.QueryString("type")
  657. end if
  658. rs2=conn.execute(sql2)
  659. numTotles=rs2("totles")
  660. numTcount=rs2("tcount")
  661. numDcount=rs2("dcount")
  663. if request.QueryString("type")<>"" then
  664. strQuer="&type="&request.QueryString("type")
  665. else
  666. strQuer=""
  667. end if
  668. response.write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""2"">"&_
  669. "<tr>"&_
  670. "<td width=""35%"">影片数量:</td>"&_
  671. "<td width=""65%"">"&numTotles&"</td>"&_
  672.                 "</tr>"&_
  673. "<tr>"&_
  674. "<td width=""35%"">观看浏览:</td>"&_
  675. "<td width=""65%"">"&numDcount&"/"&numTcount&"</td>"&_
  676.                 "</tr>"&_
  677.                 "<tr>"&_
  678. "<td width=""35%"" valign=""top"">显示排列:</td>"&_
  679. "<td width=""65%""><a href='list.asp?rang=id"&strQuer&"'>序</a>|<a href='list.asp?rang=dateRtime"&strQuer&"'>时</a>|<a href='list.asp?rang=numCounters"&strQuer&"'>浏</a>|<a href='list.asp?rang=numDowncount"&strQuer&"'>下</a>|<a href='list.asp?rang=strCommend"&strQuer&"'>推</a></td>"&_
  680. "</tr>"&_
  681. "</table>")
  682. end function
  684. '-------------------EMAIL判定-----------------
  685. function IsValidEmail(email)
  687. dim names, name, i, c
  689. 'Check for valid syntax in an email address.
  691. IsValidEmail = true
  692. names = Split(email, "@")
  693. if UBound(names) <> 1 then
  694.    IsValidEmail = false
  695.    exit function
  696. end if
  697. for each name in names
  698.    if Len(name) <= 0 then
  699.      IsValidEmail = false
  700.      exit function
  701.    end if
  702.    for i = 1 to Len(name)
  703.      c = Lcase(Mid(name, i, 1))
  704.      if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
  705.        IsValidEmail = false
  706.        exit function
  707.      end if
  708.    next
  709.    if Left(name, 1) = "." or Right(name, 1) = "." then
  710.       IsValidEmail = false
  711.       exit function
  712.    end if
  713. next
  714. if InStr(names(1), ".") <= 0 then
  715.    IsValidEmail = false
  716.    exit function
  717. end if
  718. i = Len(names(1)) - InStrRev(names(1), ".")
  719. if i <> 2 and i <> 3 then
  720.    IsValidEmail = false
  721.    exit function
  722. end if
  723. if InStr(email, "..") > 0 then
  724.    IsValidEmail = false
  725. end if
  727. end function
  729. '--------------------首页统计详细信息--------------------
  730. function index_intor()
  732. sql2="select count(*) as totles,sum(numCounters) as tcount,sum(numDowncount) as dcount from download"
  733. if request.QueryString("type")<>"" then
  734. sql2=sql2&" where numSortcount="&request.QueryString("type")
  735. end if
  736. rs2=conn.execute(sql2)
  737. numTotles=rs2("totles")
  738. numTcount=rs2("tcount")
  739. numDcount=rs2("dcount")
  741. if request.QueryString("type")<>"" then
  742. strQuer="&type="&request.QueryString("type")
  743. else
  744. strQuer=""
  745. end if
  746. response.write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""2"">"&_
  747. "<tr>"&_
  748. "<td width=""35%"">影片数量:</td>"&_
  749. "<td width=""65%"">"&numTotles&"</td>"&_
  750.                 "</tr>"&_
  751. "<tr>"&_
  752. "<td width=""35%"">观看浏览:</td>"&_
  753. "<td width=""65%"">"&numDcount&"/"&numTcount&"</td>"&_
  754.                 "</tr>"&_
  755. "</table>")
  757. end function
  759. '---------------判定服务器支持的E-MAIL组件-----------
  760. function pop_email(Objs)
  762. On Error Resume Next
  763. pop_email = False
  764. Err = 0
  765. Dim Test_email
  766. Set Test_email = Server.CreateObject(Objs)
  767. If 0 = Err Then pop_email = True
  768. Set Test_email = Nothing
  769. Err = 0
  771. End Function
  773. '--------------------用户操作--------------------
  774. function reg()
  776. select case request.QueryString("post")
  778. case "reg"
  779. if boolRegs_1=False then
  780. response.write("对不起,暂时无法注册新用户")
  781. response.end
  782. end if
  783. dim Reg_set(5)
  784. if request.QueryString("save")="ok" then
  785. for i= 0 to 5
  786. if request.form("Reg_"&i&"")="" then
  787. strErrRegs="<li>请填写所有必须选项"
  788. else
  789. if i=2 then
  790. if request.form("Reg_2")<>Reg_set(1) then
  791. strErrRegs=strErrRegs+"<li>2次输入的密码不符，请重新输入"
  792. end if
  793. end if
  794. if i=5 then
  795. if IsValidEmail(request.form("Reg_"&i&""))=False then
  796. strErrRegs=strErrRegs+"<li>E-MAIL输入格式不正确"
  797. end if
  798. end if
  799. Reg_set(i)=request.form("Reg_"&i&"")
  800. end if
  801. next
  803. if strErrRegs<>"" then
  804. response.write("<tr>"&_
  805. "<td width='100%' align='center'>"&strErrRegs&"<br><a href=javascript:history.back(-1)>点击返回→</a></td>"&_
  806. "</tr>")
  807. else
  808. sql="select count(id) as numAdmin from admin where admin='"&Reg_set(0)&"'"
  809. rs=conn.execute(sql)
  810. if rs("numAdmin")>="1" then
  811. response.write("<tr>"&_
  812. "<td width='100%' align='center'><li>输入的用户名已被人使用，请更换<br><a href=javascript:history.back(-1)>点击返回→</a></td>"&_
  813. "</tr>")
  814. else
  815. sql="insert into admin(admin,pws,regemail,useravatar,picwidth,picheight,moneyert,strQuest,strPrint,qx) values('"&Reg_set(0)&"','"&md5(Reg_set(1))&"','"&Reg_set(5)&"','images/pic/noavatar.gif',100,75,"&numMoneys_1&",'"&Reg_set(3)&"','"&md5(Reg_set(4))&"',5)"
  816. conn.execute sql
  817. response.write("<tr>"&_
  818. "<td width='100%' align='center'>注册完成<br><a href=javascript:window.close()>关闭窗口</a></td>"&_
  819. "</tr>")
  820. end if
  821. end if
  822. else
  823. dim strRegshow(5)
  825. strRegshow(0)="账号"
  826. strRegshow(1)="密码"
  827. strRegshow(2)="确认"
  828. strRegshow(3)="问题"
  829. strRegshow(4)="答案"
  830. strRegshow(5)="信箱"
  832. response.write("<form method='post' action='regs.asp?post=reg&save=ok' name='register'>")
  834. for i= 0 to 5
  835. if i=1 or i=2 then
  836. strText="password"
  837. else
  838. strText="text"
  839. end if
  840. if i=0 then
  841. numMaxlength="10"
  842. else
  843. numMaxlength="20"
  844. end if
  845. response.write("<tr>"&_
  846. "<td width='25%' align='center'><p style='margin-top: 2'>"&strRegshow(i)&"</td>"&_
  847. "<td width='75%' align='center'><input type='"&strText&"' size='20' name='Reg_"&i&"' maxlength='"&numMaxlength&"'></td>"&_
  848. "</tr>")
  849. next
  851. response.write("<tr>"&_
  852. "<td width='100%' align='center' colspan='2'>"&_
  853. "<table border='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>"&_
  854. "<tr>"&_
  855. "<td width='50%' align='center'>"&_
  856. "<a href='javascript:document.register.submit()'>"&_
  857. "<img border='0' src='images/20.gif'></a></td>"&_
  858. "<td width='50%' align='center'>"&_
  859. "<a href='javascript:document.register.reset()'>"&_
  860. "<img border='0' src='images/17.gif'></a></td>"&_
  861. "</tr></table></td></tr></form>")
  862. end if
  864. case "log"
  865. if request.QueryString("save")="ok" then
  866. numAdminip=request.servervariables("remote_addr")
  867. strUser=request.form("username")
  868. strPas=request.form("password")
  869. numCookies=request.form("cookies")
  870. numRCopyid=request.form("copyid")
  871. dateTime=now()
  872. if strUser="" then
  873. strERR="使用匿名进行登陆"
  874. else
  875. Set rs = Server.CreateObject("ADODB.Recordset")
  876. sql="select admin.admin,admin.pws,admin.qx from admin where admin='"&strUser&"'"
  877. rs.open sql,conn,1,1
  878. if rs.eof then
  879. strERR="使用未注册的用户账号: "&strUser&" 登陆本系统"
  880. else
  881. strRsadmin=rs("admin")
  882. strRspws=rs("pws")
  883. strRsqx=rs("qx")
  884. if md5(strPas)<>strRspws then
  885. strERR="用户账号: "&strUser&" 使用错误密码登陆本系统"
  886. else
  887. if numRCopyid="" then
  888. strERR="用户账号: "&strUser&" 未输入附加码进行登陆"
  889. else
  890. if cint(numRCopyid)<>cint(session("numCopyid")) then
  891. strERR="用户账号: "&strUser&" 登陆附加码错"
  892. else
  893. response.cookies("nicedown")("admin")=strRsadmin
  894. response.cookies("nicedown")("pws")=strPas
  895. select case numCookies
  896. case "day"
  897. response.cookies("nicedown").expires=dateadd("d","1",date())
  898. case "month"
  899. response.cookies("nicedown").expires=dateadd("d","30",date())
  900. case "year"
  901. response.cookies("nicedown").expires=dateadd("d","365",date())
  902. end select
  903. conn.execute("update admin set lastIP='"& Request.servervariables("remote_addr") &"',lastTime='"& now() &"' where admin='"& strRsadmin &"'")
  904. end if
  905. end if
  906. end if
  907. end if
  908. rs.close
  909. set rs=nothing
  910. end if
  912. if strERR<>"" then
  913. sql="insert into cookies(admin,ipaddress,howtime,whatdo) values('用户登陆','"&numAdminip&"','"&dateTime&"','"&strERR&"')"
  914. conn.execute sql
  915. response.write("你的操作出现错误，请检测你输入的数据。你的操作已登记，如果不是恶意操作，请不要担心^_^")
  916. else
  917. response.write("<body onunload=""window.opener.location.reload();"">"&_
  918. "<tr>"&_
  919. "<td width='100%' align='center'>登陆成功<br><a href=javascript:window.close()>关闭窗口</a></td>"&_
  920. "</tr>")
  921. end if
  922. else
  923. response.write("<form method='post' action='regs.asp?post=log&save=ok' name='register'>"&_
  924. "<tr>"&_
  925. "<td width='25%' align='center'><p style='margin-top: 2'>账号</td>"&_
  926. "<td width='75%' align='center'><input type='text' size='20' name='username'></td>"&_
  927. "</tr>"&_
  928. "<tr>"&_
  929. "<td width='25%' align='center'><p style='margin-top: 2'>密码</td>"&_
  930. "<td width='75%' align='center'><input type='password' size='20' name='password'></td>"&_
  931. "</tr>"&_
  932. "<td width='25%' align='center'><p style='margin-top: 2'>登陆时间</td>"&_
  933. "<td width='75%' align='center'>"&_
  934. "<input type='radio' value='day' checked name='cookies'>一天"&_
  935. "<input type='radio' value='month' name='cookies'>一个月"&_
  936. "<input type='radio' value='year' name='cookies'>一年</td><tr>"&_
  937. "<td width='25%' align='center'><p style='margin-top: 2'>附加码</td>"&_
  938. "<td width='75%' align='center'>"&_
  939. "<input name=copyid type=text class=border id='copyid' size=4 maxlength=4>请填写右边的数字"&_
  940. "<input name=copyids type=text class=border id='copyids' size=3 style='background-color: #FFFFFF; color: #FF0000; border-style: solid; border-color: #FFFFFF' value='"&index_copyid()&"' readonly>"&_
  941. "</tr>"&_
  942. "<tr>"&_
  943. "<td width='100%' align='center' colspan='2'>"&_
  944. "<table border='0' cellspacing='0' style='border-collapse:  collapse' bordercolor='#111111' width='100%'>"&_
  945. "<tr>"&_
  946. "<td width='50%' align='center'>"&_
  947. "<a href='javascript:document.register.submit()'>"&_
  948. "<img border='0' src='images/20.gif'></a></td>"&_
  949. "<td width='50%' align='center'>"&_
  950. "<a href='javascript:document.register.reset()'>"&_
  951. "<img border='0' src='images/17.gif'></a></td>"&_
  952. "</tr></table></td></tr></form>")
  953. end if
  955. case "lost"
  956. if request.QueryString("save")="ok" then
  957. strSend=request.form("username")
  958. Set rs = Server.CreateObject("ADODB.Recordset")
  959. sql="select admin.admin,admin.pws,admin.regemail,admin.strQuest from admin where admin='"&strSend&"'"
  960. rs.open sql,conn,1,1
  961. if rs.eof then
  962. response.write("没有该用户")
  963. rs.close
  964. set rs=nothing
  965. exit function
  966. else
  967. strUser=rs("admin")
  968. strPws=rs("pws")
  969. strSend=rs("regemail")
  970. strQuest=rs("strQuest")
  971. end if
  972. rs.close
  973. set rs=nothing
  974. if request.QueryString("quest")="pass" then
  975. numPws=request.form("pws")
  976. numRpws=request.form("rpws")
  977. if numPws<>numRpws then
  978. response.write("两次输入的密码不一致，请返回重填<a href=javascript:history.back(-1)>→</a>")
  979. exit function
  980. else
  981. strUser=request.form("username")
  982. strPrint=md5(request.form("strPrint"))
  983. sql="select admin.admin,admin.strPrint from admin where admin='"&strUser&"'"
  984. rs=conn.execute(sql)
  985. strRprint=rs("strPrint")
  986. set rs=nothing
  987. if strPrint<>strRprint then
  988. response.write("问题回答错误，请返回重填<a href=javascript:history.back(-1)>→</a>")
  989. exit function
  990. else
  991. sql="update admin set pws='"&md5(numRpws)&"' where admin='"&strUser&"'"
  992. conn.execute sql
  993. response.write("密码更新完成，请<a href=javascript:window.close()>关闭窗口</a>")
  994. exit function
  995. end if
  996. end if
  997. else
  998. response.write("<form method='post' action='regs.asp?post=lost&save=ok&quest=pass' name='register'>"&_
  999. "<tr>"&_
  1000. "<td width='25%' align='center'><p style='margin-top: 2'>账号</td>"&_
  1001. "<td width='75%' align='center'><input type='text' size='20' name='username' value='"&strUser&"' readonly></td>"&_
  1002. "</tr>"&_
  1003. "<tr>"&_
  1004. "<td width='25%' align='center'><p style='margin-top: 2'>问题</td>"&_
  1005. "<td width='75%' align='center'>"&strQuest&"</td>"&_
  1006. "</tr>"&_
  1007. "<tr>"&_
  1008. "<td width='25%' align='center'><p style='margin-top: 2'>回答</td>"&_
  1009. "<td width='75%' align='center'><input type='text' size='20' name='strPrint'></td>"&_
  1010. "</tr>"&_
  1011. "<tr>"&_
  1012. "<td width='25%' align='center'><p style='margin-top: 2'>新密码</td>"&_
  1013. "<td width='75%' align='center'><input type='password' size='20' name='pws'></td>"&_
  1014. "</tr>"&_
  1015. "<tr>"&_
  1016. "<td width='25%' align='center'><p style='margin-top: 2'>确认</td>"&_
  1017. "<td width='75%' align='center'><input type='password' size='20' name='rpws'></td>"&_
  1018. "</tr>"&_
  1019. "<tr>"&_
  1020. "<td width='100%' align='center' colspan='2'>"&_
  1021. "<table border='0' cellspacing='0' style='border-collapse:  collapse' bordercolor='#111111' width='100%'>"&_
  1022. "<tr>"&_
  1023. "<td width='50%' align='center'>"&_
  1024. "<a href='javascript:document.register.submit()'>"&_
  1025. "<img border='0' src='images/20.gif'></a></td>"&_
  1026. "<td width='50%' align='center'>"&_
  1027. "<a href='javascript:document.register.reset()'>"&_
  1028. "<img border='0' src='images/17.gif'></a></td>"&_
  1029. "</tr></table></td></tr></form>")
  1030. end if
  1031. else
  1032. response.write("<form method='post' action='regs.asp?post=lost&save=ok' name='register'>"&_
  1033. "<tr>"&_
  1034. "<td width='25%' align='center'><p style='margin-top: 2'>账号</td>"&_
  1035. "<td width='75%' align='center'><input type='text' size='20' name='username'></td>"&_
  1036. "</tr>"&_
  1037. "<tr>"&_
  1038. "<td width='100%' align='center' colspan='2'>"&_
  1039. "<table border='0' cellspacing='0' style='border-collapse:  collapse' bordercolor='#111111' width='100%'>"&_
  1040. "<tr>"&_
  1041. "<td width='50%' align='center'>"&_
  1042. "<a href='javascript:document.register.submit()'>"&_
  1043. "<img border='0' src='images/20.gif'></a></td>"&_
  1044. "<td width='50%' align='center'>"&_
  1045. "<a href='javascript:document.register.reset()'>"&_
  1046. "<img border='0' src='images/17.gif'></a></td>"&_
  1047. "</tr></table></td></tr></form>")
  1048. end if
  1050. case "edit"
  1051. do_ing()
  1052. if request.QueryString("save")="ok" then
  1053. if request.form("Edit_2")<>"" then
  1054. strEdit_2=request.form("Edit_2")
  1055. strEdit_3=request.form("Edit_3")
  1056. if strEdit_2<>strEdit_3 then
  1057. strErr=strErr+"<li>两次输入的密码不一致，请返回重新输入"
  1058. else
  1059. strEdit_pws=md5(strEdit_3)
  1060. end if
  1061. else
  1062. strEdit_pws=request.form("Edit_1")
  1063. end if
  1064. if IsValidEmail(request.form("Edit_4"))=false then
  1065. strErr=strErr+"<li>邮件地址出错"
  1066. else
  1067. strEdit_4=request.form("Edit_4")
  1068. end if
  1069. if request.form("Edit_5")="" then
  1070. strErr=strErr+"<li>密码提示问题不能为空"
  1071. else
  1072. strEdit_5=request.form("Edit_5")
  1073. end if
  1074. if request.form("Edit_6")="" then
  1075. strErr=strErr+"<li>密码提示答案不能为空"
  1076. else
  1077. set rs=conn.execute("select * from admin where admin='"&request.cookies("nicedown")("admin")&"'")
  1078. if rs("strPrint")=request.form("Edit_6") then
  1079. strEdit_6=request.form("Edit_6")
  1080. else
  1081. strEdit_6=md5(request.form("Edit_6"))
  1082. end if
  1083. end if
  1084. if request.form("Edit_7")="" then
  1085. strEdit_7="images/pic/noavatar.gif"
  1086. else
  1087. strEdit_7=request.form("Edit_7")
  1088. end if
  1089. if request.form("Edit_8")="" or request.form("Edit_9")="" then
  1090. strErr=strErr+"<li>自定义头像的高宽不能为空"
  1091. else
  1092. if IsNumeric(request.form("Edit_8"))=False or IsNumeric(request.form("Edit_9"))=False then
  1093. strErr=strErr+"<li>自定义头像的高宽必须为数字类型"
  1094. else
  1095. if cint(request.form("Edit_8"))>cint(numImgsize1_1) or cint(request.form("Edit_9"))>cint(numImgsize2_1) then
  1096. strErr=strErr+"<li>自定义头像的高宽不能超过最大值"
  1097. else
  1098. strEdit_8=request.form("Edit_8")
  1099. strEdit_9=request.form("Edit_9")
  1100. end if
  1101. end if
  1102. end if
  1104. if strErr<>"" then
  1105. response.write(strErr&"<div align=""center""><a href=javascript:history.back(-1)>返回重新输入</a></div>")
  1106. else
  1107. sql="update admin set pws='"&strEdit_pws&"',regemail='"&strEdit_4&"',useravatar='"&strEdit_7&"',picwidth='"&strEdit_8&"',picheight='"&strEdit_9&"',strQuest='"&strEdit_5&"',strPrint='"&strEdit_6&"' where admin='"&request.cookies("nicedown")("admin")&"'"
  1108. conn.execute sql
  1109. response.write("<body onunload=""window.opener.location.reload();"">"&_
  1110. "修改资料完成，请<a href=javascript:window.close()>关闭窗口</a>")
  1111. exit function
  1112. end if
  1113. else
  1115. dim strEditshow(7)
  1117. strEditshow(0)="账号"
  1118. strEditshow(1)="密码"
  1119. strEditshow(2)="新密码"
  1120. strEditshow(3)="确认"
  1121. strEditshow(4)="信箱"
  1122. strEditshow(5)="问题"
  1123. strEditshow(6)="答案"
  1124. strEditshow(7)="头像"
  1126. strCookies=request.cookies("nicedown")("admin")
  1127. strPws=request.cookies("nicedown")("pws")
  1128. sql="select * from admin where admin='"&strCookies&"'"
  1129. rs=conn.execute(sql)
  1130. dim strSqlshow(7)
  1131. strSqlshow(0)=request.cookies("nicedown")("admin")
  1132. strSqlshow(1)=md5(request.cookies("nicedown")("pws"))
  1133. strSqlshow(2)=""
  1134. strSqlshow(3)=""
  1135. strSqlshow(4)=rs("regemail")
  1136. strSqlshow(5)=rs("strQuest")
  1137. strSqlshow(6)=rs("strPrint")
  1138. strSqlshow(7)=rs("useravatar")
  1139. numPicheight=rs("picheight")
  1140. numPicwidth=rs("picwidth")
  1141. set rs=nothing
  1143. response.write("<form method='post' action='regs.asp?post=edit&save=ok' name='edit'>")
  1145. for i= 0 to 7
  1146. if i=1 or i=2 or i=3 then
  1147. strText="password"
  1148. else
  1149. strText="text"
  1150. end if
  1151. if i=0 then
  1152. numMaxlength="10"
  1153. else
  1154. if i=7 then
  1155. numMaxlength="255"
  1156. else
  1157. numMaxlength="20"
  1158. end if
  1159. end if
  1160. if i=0 or i=1 then
  1161. strMessage="readonly"
  1162. else
  1163. strMessage=""
  1164. end if
  1165. response.write("<tr>"&_
  1166. "<td width='25%' align='center'><p style='margin-top: 2'>"&strEditshow(i)&"</td>"&_
  1167. "<td width='75%' align='center'><input type='"&strText&"' size='20' name='Edit_"&i&"' maxlength='"&numMaxlength&"' "&strMessage&" value='"&strSqlshow(i)&"'></td>"&_
  1168. "</tr>")
  1169. next
  1170.             
  1171. response.write("<tr>"& vbCRLF & _  
  1172. "<td width='25%' align='center'>大小("&numImgsize1_1&"*"&numImgsize2_1&")</td>"& vbCRLF & _ 
  1173. "<td width='75%' align='center'>宽：<input type='text' size='3' name='Edit_8' maxlength='3' value='"&numPicwidth&"'> 高：<input type='text' size='3' name='Edit_9' maxlength='3' value='"&numPicheight&"'> <a href=""#"" onClick=""window.open('upload.asp','上传头像','width=400,height=30')"" title=""上传头像"">上传头像</a></td>"& vbCRLF & _ 
  1174. "</tr>"& vbCRLF & _ 
  1175. "<tr>"& vbCRLF & _ 
  1176. "<td width='100%' align='center' colspan='2'>"& vbCRLF & _  
  1177. "<table border='0' cellspacing='0' style='border-collapse:  collapse' bordercolor='#111111' width='100%'>"& vbCRLF & _ 
  1178. "<tr>"& vbCRLF & _ 
  1179. "<td width='50%' align='center'><a href='javascript:document.edit.submit()'><img border='0' src='images/20.gif'></a></td>"& vbCRLF & _ 
  1180. "<td width='50%' align='center'><a href='javascript:document.edit.reset()'><img border='0' src='images/17.gif'></a></td>"& vbCRLF & _ 
  1181. "</tr>"& vbCRLF & _ 
  1182. "</table></td>"& vbCRLF & _ 
  1183. "</tr>"& vbCRLF & _ 
  1184. "</form>")
  1185. end if
  1187. case "leave"
  1188. do_ing()
  1189. response.cookies("nicedown")("admin")=""
  1190. response.cookies("nicedown")("pws")=""
  1191. response.write("<body onunload=""window.opener.location.reload();"">"&_
  1192. "<tr>"&_
  1193. "<td width='100%' align='center'>退出成功<br><a href=javascript:window.close()>关闭窗口</a></td>"&_
  1194. "</tr>")
  1195. case "help"
  1196. %>
  1197. <li>如何观看影片?</li>
  1198. <p>观看影片分两种类型:会员影片和非会员影片.非会员影片只需点击相应的影片页面中的观看地址即可,如有特殊情况请留意相关页面的观看说明;会员影片必须注册后才会显示观看地址,同时会有观看虚拟金币消耗数,如未达到相应的虚拟金币则无法观看!</p>
  1199. <li>我必须要注册吗?</li>
  1200. <p>不是一定要求注册,但是某些会员影片在未注册状态下无法观看.同时注册更有利于网站管理者的查询于管理.</p>
  1201. <li>注册后能否观看会员影片?</li>
  1202. <p>会员影片只有会员达到一定的虚拟币方能实现影片的观看.</p>
  1203. <li>如何获得虚拟金币?</li>
  1204. <p>获得虚拟币的方法为购买<font color=#ff0000><b>天峰网吧会员卡</b></font>.</p>
  1205. <li>如何才能添加/推荐影片?</li>
  1206. <p>可以向网站管理员提出申请,待申请批准后就可进入管理页面进行影片的添加和推荐.</p>
  1207. <li>如何登陆?</li>
  1208. <p>点击左边的会员登陆,依次输入相关的帐号,密码和验证码即可.请注意为了防止您的注册资料泄漏,请退出网站时点击&quot;退&quot;来退出程序的使用.</p>
  1209. <li>程序是否使用Cookies?</li>
  1210. <p>是的,程序使用Cookies来记录个人的帐号相关信息,所以为了防止注册资料泄漏,请退出网站时点击&quot;退&quot;来退出程序的使用.</p>
  1211. <li>如何使用和上传个性头像?</li>
  1212. <p>根据管理员的设定来决定是否可以使用/上传头像,使用头像只需在注册或者编辑自己的资料时在头像该栏填入相应的头像地址即可;如果管理员允许上传头像只需点击上传头像并选择本地的头像图片文件,然后点击上传后即可,此时程序会自动填入刚上传的头像地址,无需更改.</p>
  1213. <li>遗忘密码如何解决?</li>
  1214. <p>遗忘密码的解决办法暂时只有注册时所填写的问题和答案.因为本程序使用不可逆算的MD5加密方式加密用户密码和问题答案,所以请牢记用户密码和问题答案,在忘记密码时只要记住问题答案就可重新设定用户密码,如果连问题答案都忘记了真是爱莫能助了.</p>
  1215. <li>如何搜索我需要的影片?</li>
  1216.   
  1217. <p>可以使用首页或者相关页面的影片搜索栏,填入你想要搜索的内容,然后选择搜索的范围,点击确定即可.</p>
  1218. <li>我能成为管理员吗?</li>
  1219. <p>这个可以通过联系该网站的管理员,在该网站的管理员通过你的验证之后则会更改你的权限.</p>
  1220. <li>在哪里可以联系到网站管理员?</li>
  1221. <p>你可以到南阳市建设中路<font color=#ff0000><b>天峰网吧</b></font>找到系统管理员，或者QQ35325750联系！也可以到<a href="http://tianfeng.xicp.net">天峰网络</a>留言版给站长留言。</p>
  1222. <%
  1224. end select
  1226. end function
  1228. '--------------------用户登陆--------------------
  1230. function user_login()
  1232. if request.cookies("nicedown")("admin")="" then
  1233. boolLogin=False
  1234. else
  1235. strCookies=request.cookies("nicedown")("admin")
  1236. strPws=request.cookies("nicedown")("pws")
  1237. Set rs2 = Server.CreateObject("ADODB.Recordset")
  1238. sql2="SELECT admin.admin,admin.pws FROM admin where admin='"&strCookies&"'"
  1239. rs2.OPEN sql2, Conn,1,1
  1240. strRscpws=rs2("pws")
  1241. if rs2.eof then
  1242. boolLogin=False
  1243. else
  1244. if strRscpws<>md5(strPws) then
  1245. boolLogin=False
  1246. else
  1247. boolLogin=True
  1248. strUser=rs2("admin")
  1249. conn.execute("update admin set lastIP='"& Request.servervariables("remote_addr") &"',lastTime='"& now() &"' where admin='"& rs2("admin") &"'")
  1250. end if
  1251. end if
  1252. rs2.close
  1253. set rs2=nothing
  1254. end if
  1256. if boolLogin=True then
  1257. response.write("天峰欢迎您，<strong><font color=""#FF0000"">"&strUser&"</font></strong> <a href=""#"" onClick=""MM_openBrWindow('regs.asp?post=log','用户登陆','width=350,height=130')"" title=""重新登陆你的帐号"">重</a> <a href=""#"" onClick=""MM_openBrWindow('regs.asp?post=edit','修改资料','width=350,height=250')"" title=""修改已注册的用户资料"">修</a> <a href=""admin/list.asp"" target=""_blank"" title=""管理/编辑自己发布的程序"">管</a> <a href=""#"" onClick=""MM_openBrWindow('regs.asp?post=help','帮助主题','width=350,height=400,scrollbars=yes')"" title=""提供帮助"">帮</a> <a href=""#"" onClick=""MM_openBrWindow('regs.asp?post=leave','退出程序','width=350,height=50')"" title=""为避免您的安全问题请退出程序"">退</a>")
  1258. else
  1259. response.write("<a href=""#"" onClick=""MM_openBrWindow('regs.asp?post=reg','欢迎注册','width=350,height=180')"" title=""注册用户账号"">注册账号</a> <a href=""#"" onClick=""MM_openBrWindow('regs.asp?post=log','用户登陆','width=350,height=130')"" title=""使用注册账号登陆"">用户登陆</a> <a href=""#"" onClick=""MM_openBrWindow('regs.asp?post=lost','忘记密码','width=350,height=150')"" title=""找回忘记的密码"">忘记密码</a> <a href=""#"" onClick=""MM_openBrWindow('regs.asp?post=help','帮助主题','width=350,height=400,scrollbars=yes')"" title=""提供帮助"">提供帮助</a>")
  1260. end if
  1262. end function
  1264. '--------------------执行判定--------------------
  1266. function do_ing()
  1268. if request.cookies("nicedown")("admin")="" then
  1269. response.write("您不是会员或者还没有登陆，无法执行该操作")
  1270. response.end
  1271. else
  1272. strCookies=request.cookies("nicedown")("admin")
  1273. strPws=md5(request.cookies("nicedown")("pws"))
  1274. Set rs2 = Server.CreateObject("ADODB.Recordset")
  1275. sql2="SELECT admin.admin,admin.pws FROM admin where admin='"&strCookies&"'"
  1276. rs2.OPEN sql2, Conn,1,1
  1277. strRscpws=rs2("pws")
  1278. if rs2.eof then
  1279. response.write("您不是会员或者还没有登陆，无法执行该操作")
  1280. response.end
  1281. else
  1282. if strPws<>strRscpws then
  1283. response.write("您的用户名或者密码出错，无法执行该操作")
  1284. response.end
  1285. end if
  1286. end if
  1287. rs2.close
  1288. set rs2=nothing
  1289. end if
  1291. end function
  1293. '-------------------广告显示(函数)-----------------
  1294. function ADShowFunction(numString,numShows)
  1296. dim FunNumBanner(),FunManBanner()
  1298. FunNumString=numString
  1299. FunNumShows=numShows
  1301. redim FunNumBanner(FunNumShows-1),FunManBanner(FunNumShows-1)
  1303. set rs=conn.execute("select sum(numFirstShow) as SunNumFirstShow from ad where numPlace="& FunNumString)
  1304. FunNumAll=rs("SunNumFirstShow")
  1306. Set rs = Server.CreateObject("ADODB.Recordset")
  1307. sql="SELECT * FROM ad where numPlace="& FunNumString
  1308. rs.OPEN sql, Conn,1,1
  1309. if rs.eof then
  1310. select case FunNumString
  1311. case "9"
  1312. ADShowFunction=""
  1313. case "4"
  1314. ADShowFunction="<div id=""dd"" style=""visibility: hidden;""></div>"
  1315. case else
  1316. ADShowFunction="此广告位待租"
  1317. end select
  1318. rs.close
  1319. set rs=nothing
  1320. exit function
  1321. else
  1322. randomize
  1323. for i=0 to FunNumShows-1
  1324. FunNumBanner(i)=Int( Rnd * FunNumAll ) + 1
  1325. FunSumBanner=0
  1326. rs.movefirst
  1327. do while not rs.eof
  1328. FunSumBanner=FunSumBanner+rs("numFirstShow")
  1329. if FunSumBanner>=FunNumBanner(i) then
  1330. FunManBanner(i)=rs("id")
  1331. if i<>0 then
  1332. for x=0 to i-1
  1333. if FunManBanner(i)=FunManBanner(x) then
  1334. blone="True"
  1335. exit for
  1336. else
  1337. blone="False"
  1338. end if
  1339. next
  1340. if blone="True" then
  1341. i=i-1
  1342. end if
  1343. end if
  1344. exit do
  1345. end if
  1346. rs.movenext
  1347. loop
  1348. next
  1349. end if
  1350. rs.close
  1351. set rs=nothing
  1353. for i=0 to FunNumShows-1
  1354. conn.execute("update ad set numShow=numShow+1 where id="& FunManBanner(i))
  1355. set rs=conn.execute("select * from ad where id="& FunManBanner(i))
  1356. if rs("boolADjs")=False then
  1357. select case FunNumString
  1358. case "1"
  1359. ADShowFunction=ADShowFunction &"<a href=""banner.asp?id="& rs("id") &""" target=_blank><img src="""& rs("strImTeAD") &""" alt="""& rs("strADTitle") &""" border=""0""></a>"
  1360. case "2"
  1361. ADShowFunction=ADShowFunction &"<a href=banner.asp?id="& rs("id") &" target=_blank alt="& rs("strADTitle") &">"& rs("strImTeAD") &"</a><br>"
  1362. case "4"
  1363. ADShowFunction="<div id=""dd"" style=""position:absolute; left:28px; top:90px; width:100px; height:100px; z-index:1""><a href=banner.asp?id="& rs("id") &" target=_blank><img src="""& rs("strImTeAD") &""" alt="""& rs("strADTitle") &""" border=""0""></a></div>"
  1364. case "9"
  1365. ADShowFunction=ADShowFunction &"<script language='JavaScript'>window.open('banner.asp?id="& rs("id") &"') ;</script>"
  1366. case else
  1367. ADShowFunction=ADShowFunction &"<a href=""banner.asp?id="& rs("id") &""" target=_blank><img src="""& rs("strImTeAD") &""" alt="""& rs("strADTitle") &""" border=""0""></a><br><br>"
  1368. end select
  1369. else
  1370. select case FunNumString
  1371. case "1"
  1372. ADShowFunction=ADShowFunction & rs("strADurl")
  1373. case "2"
  1374. ADShowFunction=ADShowFunction & rs("strADurl") &"<br>"
  1375. case "4"
  1376. ADShowFunction="<div id=""dd"" style=""position:absolute; left:28px; top:90px; width:100px; height:100px; z-index:1"">"& rs("strADurl") &"</div>"
  1377. case "9"
  1378. ADShowFunction=ADShowFunction &"<script language='JavaScript'>window.open('banner.asp?id="& rs("id") &"') ;</script>"
  1379. case else
  1380. ADShowFunction=ADShowFunction & rs("strADurl") &"<br><br>"
  1381. end select
  1382. end if
  1383. next
  1385. end function
  1387. '------------------受限制IP禁止访问函数-----------------
  1388. function iperr()
  1390. IPaddress=Request.servervariables("remote_addr")
  1391. strIPaddress=Split(IPaddress,".")
  1393. Set ms =Server.CreateObject("ADODB.Recordset")
  1394. msql="select * from ip"
  1395. ms.open msql,conn,1,1
  1396. do while not ms.eof
  1397. numIP=int(ms("numIP")-1)
  1398. strAllIPaddress=""
  1399. for i=0 to UBound(strIPaddress)
  1400. if i>numIP then
  1401. if i=UBound(strIPaddress) then
  1402. strAllIPaddress=strAllIPaddress&"*"
  1403. else
  1404. strAllIPaddress=strAllIPaddress&"*."
  1405. end if
  1406. else
  1407. if i=UBound(strIPaddress) then
  1408. strAllIPaddress=strAllIPaddress+strIPaddress(i)
  1409. else
  1410. strAllIPaddress=strAllIPaddress+strIPaddress(i)&"."
  1411. end if
  1412. end if
  1413. next
  1414. if cstr(strAllIPaddress)=cstr(ms("strIPaddress")) then
  1415. Response.Redirect "errip.htm"
  1416. end if
  1417. ms.movenext
  1418. loop
  1419. ms.close
  1420. set ms=nothing
  1422. end function
  1424. '------------------首页显示友情连接-----------------
  1426. function link_show()
  1428. Set ms =Server.CreateObject("ADODB.Recordset")
  1429. msql="select * from link where boolLinText=False and boolLinShow=True order by dateTimers desc"
  1430. ms.open msql,conn,1,1
  1431. if ms.eof then
  1432. response.write("<tr align='center'><td colspan='2'>还没有LOGO友情连接</td></tr>")
  1433. else
  1434. response.write("<tr align=""center"">")
  1435. for i=1 to 6
  1436. if ms.eof then
  1437. response.write("<td width=""50%"">&nbsp;</td>")
  1438. else
  1439. if ms("boolLinJs")=True then
  1440. response.write("<td width=""50%"">"& ms("strLinTitle") &"</td>")
  1441. else
  1442. response.write("<td width=""50%""><a href=""link.asp?id="& ms("id") &""" target=""_blank""><img src="""& ms("strLinPic") &""" alt=""网站名称:"& ms("strLinName") &"<br>加入时间:"& ms("dateTimers") &"<br>点 击 数:"& ms("numLinDown") &"<br>网站介绍:"& ms("strLinTitle") &""" border=""0""></a></td>")
  1443. end if
  1444. ms.movenext
  1445. end if
  1446. if i mod 2=0 then
  1447. response.write("</tr><tr align=""center"">")
  1448. end if
  1449. next
  1450. response.write("</tr>")
  1451. end if
  1452. ms.close
  1453. set ms=nothing
  1455. response.write("<tr align=""center""><td colspan='2' align='center'>")
  1457. Text_Link_Show()
  1459. response.write("</td></tr>")
  1461. response.write("<tr align='center'><td colspan='2' align='right'>【<a href=link.asp?post=add target=_blank>申请连接</a>】 <a href=link.asp target=_blank>更多连接&gt;&gt;</a></td></tr>")
  1463. end function
  1465. '----------------文本友情连接---------------
  1466. function Text_Link_Show()
  1468. response.write("<form><select name=TextLink onChange=""window.open(form.TextLink.options[form.TextLink.selectedIndex].value)""><option value='#'>文本友情连接</option>")
  1470. Set ms =Server.CreateObject("ADODB.Recordset")
  1471. msql="select * from link where boolLinText=True and boolLinShow=True order by dateTimers desc"
  1472. ms.open msql,conn,1,1
  1473. if ms.eof then
  1474. response.write("<option value='#'>还没有文本友情连接</option>")
  1475. else
  1476. do while not ms.eof
  1477. response.write("<option value='link.asp?id="& ms("id") &"'>"& ms("strLinName") &"</option>")
  1478. ms.movenext
  1479. loop
  1480. end if
  1481. ms.close
  1482. set ms=nothing
  1484. response.write("</select></form>")
  1486. end function
  1488. '----------------显示当前所在分类位置-----------------
  1489. function list_now()
  1491. strType=Request.QueryString("type")
  1493. if IsNumeric(strType)=True and cint(strType)<>"0" then
  1494. set rs=conn.execute("select * from small where id="& cint(strType))
  1495. response.write("当前位置:<a href=index.asp>视频首页</a> → "& rs("sortid") &" → ")
  1496. else
  1497. response.write("当前位置:<a href=index.asp>视频首页</a> → 全部分类 转跳:")
  1498. end if
  1500. end function
  1502. '----------------显示当前所在影片位置-----------------
  1503. function show_now()
  1505. strId=Request.QueryString("id")
  1507. set rs=conn.execute("select * from small where id in (select numSortcount from download where id="& strId &")")
  1508. response.write("当前位置:<a href=index.asp>视频首页</a> → "& rs("sortid") &" → <a href=list.asp?type="& rs("id") &">"& rs("small") &"</a> → 影片页面")
  1510. end function
  1512. '----------------测试------------------
  1513. function show_zoom(strName,numSortAll,numCount,numLongName,numClass)
  1515. name=strName'显示类别
  1516. sortall=numSortAll'显示分类号
  1517. mCount=numCount'显示数量
  1518. mLongname=numLongName'显示的字符长度
  1519. mClass=numClass'显示类型
  1520. Set rs = Server.CreateObject("ADODB.Recordset")
  1521. rs.CursorType = adOpenStatic
  1522. rs.CacheSize = cint(mCount)
  1523. sql="select * from download"
  1524. select case name
  1525. case "news"
  1526. if sortall<>"" then
  1527. sql=sql&" where boolZhen=False and numSortcount="&sortall
  1528. else
  1529. sql=sql&" where boolZhen=False"
  1530. end if
  1531. sql=sql&" order by dateRtime desc"
  1532. case "down"
  1533. if sortall<>"" then
  1534. sql=sql&" where boolZhen=False and numSortcount="&sortall
  1535. else
  1536. sql=sql&" where boolZhen=False"
  1537. end if
  1538. sql=sql&" order by numDowncount desc"
  1539. case "days"
  1540. sql=sql&" where boolZhen=False order by numDaydown desc"
  1541. case "months"
  1542. sql=sql&" where boolZhen=False order by numMonthdown desc"
  1543. end select
  1544. rs.OPEN sql, Conn,1,1
  1545. if rs.eof then
  1546. response.write("无内容")
  1547. else
  1548. For absRecordNum = 1 to mCount
  1549. numZid=rs("id")
  1550. longname=rs("name")
  1551. if len(longname)>mLongname then
  1552. longname=left(longname,mLongname) & "..."
  1553. end if
  1554. strZbig=rs("strBig")
  1555. strZsort=rs("strSort")
  1556. dateZtime=rs("dateRtime")
  1557. numZday=rs("numDaydown")
  1558. numZmonth=rs("numMonthdown")
  1559. numZdown=rs("numDowncount")
  1560. numZcount=rs("numCounters")
  1561. numZsort=rs("numSortcount")
  1562. if mClass="1" then
  1563. response.write("<li><a href="""&addess&"show.asp?id="&numZid&""" title="""&longname&" - "&strZbig&"|"&strZsort&" "&dateZtime&"<br>今:"&numZday&" 周:"&numZmonth&" 总:"&numZdown&" 浏:"&numZcount&""" target=_blank>"&longname&"</a>")
  1564. else
  1565. response.write("<li>[<a href="""&addess&"list.asp?type="&numZsort&""">"&strZsort&"</a>] <a href="""&addess&"show.asp?id="&numZid&""" title="""&longname&" - "&strZbig&"|"&strZsort&" "&dateZtime&"<br>今:"&numZday&" 周:"&numZmonth&" 总:"&numZdown&" 浏:"&numZcount&""" target=_blank>"&longname&"</a>")
  1566. end if
  1567. rs.movenext
  1568. If rs.EOF Then  
  1569. Exit For  
  1570. End If  
  1571. Next
  1572. end if
  1573. rs.close
  1574. set rs=nothing
  1576. end function
  1577. %>
  1578. <%
  1579. '如果你美化的漂亮或者修正了最多只可以同时添加5集和不能修改用户虚拟币的BUG记得联系一下网络游子哟~！我的QQ35325750或者1006389
  1580. %>