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

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

多媒体编程

开发平台：

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. Response.Write(session("numCopyid"))
  17. end function
  19. '--------------------登陆判定--------------------
  20. function index_creak()
  22. numAdminip=request.servervariables("remote_addr")
  23. strUser=request.form("username")
  24. strPas=request.form("password")
  25. numCookies=request.form("cookies")
  26. numRCopyid=request.form("copyid")
  27. dateTime=now()
  28. if strUser="" then
  29. strERR="试图匿名登陆"
  30. else
  31. Set rs = Server.CreateObject("ADODB.Recordset")
  32. sql="select admin.admin,admin.pws,admin.qx from admin where admin='"&strUser&"'"
  33. rs.open sql,conn,1,1
  34. if rs.eof then
  35. strERR="试图使用未注册的管理员账号: "&strUser&" 登陆本系统"
  36. else
  37. strRsadmin=rs("admin")
  38. strRspws=rs("pws")
  39. strRsqx=rs("qx")
  40. if md5(strPas)<>strRspws then
  41. strERR="管理员账号: "&strUser&" 使用错误密码登陆本系统"
  42. else
  43. set rs4=conn.execute("select * from config where id="&int(strRsqx))
  44. if rs4("boolAdmin")=False then
  45. strERR="管理员账号: "&strUser&" 未通过认证私自登陆本系统"
  46. else
  47. if numRCopyid="" then
  48. strERR="没有人试图使用不法行为破解 "&strUser&" 管理员账号"
  49. else
  50. if cint(numRCopyid)<>cint(session("numCopyid")) then
  51. strERR="登陆附加码错或有人试图使用不法行为破解 "&strUser&" 管理员账号"
  52. else
  53. response.cookies("nicedown")("admin")=strRsadmin
  54. response.cookies("nicedown")("pws")=strPas
  55. select case numCookies
  56. case "day"
  57. response.cookies("nicedown").expires=dateadd("d","1",date())
  58. case "month"
  59. response.cookies("nicedown").expires=dateadd("d","30",date())
  60. case "year"
  61. response.cookies("nicedown").expires=dateadd("d","365",date())
  62. end select
  63. conn.execute("update admin set lastIP='"& numAdminip &"',lastTime='"& dateTime &"' where admin='"&strUser&"'")
  64. end if
  65. end if
  66. end if
  67. rs4.close
  68. set rs4=nothing
  69. end if
  70. end if
  71. rs.close
  72. set rs=nothing
  73. end if
  75. if strERR<>"" then
  76. sql="insert into cookies(admin,ipaddress,howtime,whatdo) values('管理员登陆','"&numAdminip&"','"&dateTime&"','"&strERR&"')"
  77. conn.execute sql
  78. response.write("你的操作出现错误，请检测你输入的数据。你的操作已登记，如果不是恶意操作，请不要担心^_^")
  79. else
  80. Response.Redirect "list.asp"
  81. end if
  83. end function
  85. '--------------------显示影片列表--------------------
  87. function list_show()
  89. strType=request.QueryString("type")
  90. strRang=request.QueryString("rang")
  91. strTch=request("TTYPE")
  92. strSearch=request("KEY")
  93. if request.QueryString("page")<>"" then
  94. absPageNum=request.QueryString("page")
  95. else
  96. absPageNum=1
  97. end if
  98. RecordPerPage = numSofts_1
  99. Set rs3 = Server.CreateObject("ADODB.Recordset")
  100. rs3.CursorType = adOpenStatic
  101. rs3.CacheSize = cint(numSofts_1)
  102. sql3="select * from download"
  103. if strType<>"" then
  104. sql3=sql3&" where boolZhen=False and numSortcount="&strType
  105. else
  106. if strSearch<>"" then
  107. if strTch="BYNAME" then
  108. sql3=sql3&" where boolZhen=False and name like '%"&strSearch&"%'"
  109. else
  110. sql3=sql3&" where boolZhen=False and strShow like '%"&strSearch&"%'"
  111. end if
  112. else
  113. sql3=sql3&" where boolZhen=False"
  114. end if
  115. end if
  116. if strRang<>"" then
  117. sql3=sql3&" order by "&strRang&" desc"
  118. else
  119. sql3=sql3&" order by dateRtime desc"
  120. end if
  121. rs3.open sql3, conn,1,1
  122. rs3.PageSize = cint(numSofts_1)
  123. Tol = rs3.PageCount
  124. If Not(rs3.EOF) Then
  125. rs3.AbsolutePage = absPageNum
  126. End If
  127. if rs3.eof then
  128. response.write("<form name=""strDelForm"" method=""post"" action=""edit.asp?post=del"">该分类还没有影片")
  129. else
  130. For absRecordNum = 1 to rs3.PageSize
  131. numRs3id=rs3("id")
  132. strRs3name=rs3("name")
  133. dateRs3time=rs3("dateRtime")
  134. imgRs3commend=("<img src='../images/"&rs3("strCommend")&"'>")
  135. if rs3("strDemo")<>"" then
  136. strRs3demo=("<a href='"&rs3("strDemo")&"' target=_blank>演示</a>")
  137. else
  138. strRs3demo=("<font color='#C0C0C0'>演示</font>")
  139. end if
  140. strRs3big=rs3("strBig")
  141. strRs3sort=rs3("strSort")
  142. if len(rs3("strShow"))>numShows_1 then
  143. strRs3show=left(rs3("strShow"),numShows_1) & "..."
  144. else
  145. strRs3show=rs3("strShow")
  146. end if
  147. strRs3count=("<a href='#' title='浏:"&rs3("numCounters")&" 总:"&rs3("numDowncount")&" 月:"&rs3("numMonthdown")&" 日:"&rs3("numDaydown")&"'>影片统计</a>")
  148. if boolHide_1=true then
  149. if rs3("boolHide")=true then
  150. strRs3hide=(" <img align='absmiddle' border='0' src='../images/regsoft.gif' alt='观看资金"&rs3("numMoneys")&strMoneyname_1&"(虚拟币)'>")
  151. else
  152. strRs3hide=""
  153. end if
  154. end if
  155. response.write("<form name=""strDelForm"" method=""post"" action=""edit.asp?post=del""><table width='90%' border='0' cellpadding='2' cellspacing='1' bgcolor='#000000'>"&_
  156. "<tr bgcolor='#bcbcbc'>"&_ 
  157. "<td colspan='2' bgcolor='#bcbcbc'>"&_
  158. "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"&_
  159. "<tr>"&_ 
  160. "<td><input type=""checkbox"" name=""id"" value='"& numRs3id &"'><a href='../show.asp?id="&numRs3id&"' target=_blank>"&strRs3name&"</a> "&strRs3hide&"</td>"&_
  161. "</tr>"&_
  162. "</table></td>"&_
  163. "<td colspan='2' align='right' bgcolor='#bcbcbc'>"&_
  164. "<a href=""edit.asp?id="&numRs3id&"&post=edit"">编辑</a> ￤ "&_
  165. "<a href=""edit.asp?id="&numRs3id&"&post=del"" onclick=""{if(confirm('您确定执行的操作吗?')){return true;}return false;}"">删除</a>"&_
  166. "</td></tr>"&_
  167. "<tr bgcolor='#DBDBDB'>"&_ 
  168. "<td width='20%' align='center' bgcolor='#efefef'>更新日期</td>"&_
  169. "<td width='30%'>"&dateRs3time&"</td>"&_
  170. "<td width='20%' align='center' bgcolor='#efefef'>影片类别</td>"&_
  171. "<td width='30%'>"&strRs3big&"┃"&strRs3sort&"</td>"&_
  172. "</tr>"&_
  173. "<tr bgcolor='white'>"&_ 
  174. "<td colspan='4'><p style='text-indent: 40'>"&strRs3show&"</p></td>"&_
  175. "</tr></table><br>")
  176. rs3.movenext
  177. if rs3.eof then
  178. exit for
  179. end if
  180. next
  181. end if
  182. rs3.close
  183. set rs3=nothing
  184. numPagenext=absPageNum+1
  185. numPageup=absPageNum-1
  186. if numPageup<1 then
  187. numPageup=1
  188. end if
  189. if numPagenext>Tol then
  190. numPagenext=Tol
  191. end if
  192. strPageup=("[<a href='list.asp?page="&numPageup)
  193. strPagenext=("[<a href='list.asp?page="&numPagenext)
  194. if strType<>"" then
  195. if strRang<>"" then
  196. strPage=("&type="&strType&"&rang="&strRang)
  197. else
  198. strPage=("&type="&strType)
  199. end if
  200. else
  201. if strRang<>"" then
  202. if strSearch<>"" then
  203. strPage=("&rang="&strRang&"&KEY="&strSearch&"&TTYPE="&strTch)
  204. else
  205. strPage=("&rang="&strRang)
  206. end if
  207. else
  208. if strSearch<>"" then
  209. strPage=("&KEY="&strSearch&"&TTYPE="&strTch)
  210. else
  211. strPage=""
  212. end if
  213. end if
  214. end if
  215. strPageup=(strPageup&strPage&"'>上一页</a>]")
  216. strPagenext=(strPagenext&strPage&"'>下一页</a>]")
  217. strSelectPage=("<option value='list.asp' selected>请选择</option>")
  218. for i=1 to Tol
  219. strSelectPage=(strSelectPage&"<option value='list.asp?page="&i&strPage&"'>第"&i&"页</option>")
  220. next
  221. response.write("<table width='90%' border='0' align='center' cellpadding='0' cellspacing='0'>"&_
  222. "<tr>"&_ 
  223. "<td align='right'><a href='javascript:document.strDelForm.submit()' onclick=""{if(confirm('将删除你所选择的影片是否执行操作?')){return true;}return false;}""><img src=""../images/bbs_close.gif"" width=""21"" height=""21"" align=""absmiddle"" border=""0""></a> "&_
  224. "当前页:[<font color='#FF0000'><strong>"&absPageNum&"</strong></font>]"&_
  225. " 共 <font color='#FF0000'><strong>"&Tol&"</strong></font>"&_
  226. " 页 每页:[<font color='#FF0000'><strong>"&RecordPerPage&"</strong></font>]"&_
  227. " "&strPageup&" "&strPagenext&" 转到"&_
  228. " <select name='select2' onChange='window.location=form.select2.options[form.select2.selectedIndex].value' size=1>"&strSelectPage&"</select> 页 </td></table></form><br>")
  229. end function
  231. '--------------------添加/编辑影片--------------------
  233. function edit_aedit()
  235. dim strRs2down(4)
  237. if request.QueryString("id")<>"" then
  238. sql="select * from download where id="&request.QueryString("id")
  239. rs=conn.execute(sql)
  240. numRs2id=rs("id")
  241. strRs2name=rs("name")
  242. dateRs2time=rs("dateRtime")
  243. strRs2size=rs("strSize")
  244. strRs2mode=rs("strMode")
  245. strRs2roof=rs("strRoof")
  246. strRs2commend=rs("strCommend")
  247. strRs2homepage=rs("strHomepage")
  248. strRs2demo=rs("strDemo")
  249. strRs2pic=rs("strPic")
  250. strRs2big=rs("strBig")
  251. strRs2sort=rs("strSort")
  252. numRs2sortcount=rs("numSortcount")
  253. strRs2show=rs("strShow")
  254. numRs2counters=rs("numCounters")
  255. numRs2downcount=rs("numDowncount")
  256. strRs2down(0)=rs("down1")
  257. strRs2down(1)=rs("down2")
  258. strRs2down(2)=rs("down3")
  259. strRs2down(3)=rs("down4")
  260. strRs2down(4)=rs("down5")
  261. boolRs2hide=rs("boolHide")
  262. numRs2moneys=rs("numMoneys")
  263. strRs2admin=rs("strAdmins")
  264. strRs2song=rs("strSong")
  265. dateRs2day=rs("dateDaynow")
  266. dateRs2month=rs("dateMonthnow")
  267. numRs2day=rs("numDaydown")
  268. numRs2month=rs("numMonthdown")
  269. boolRs2commend=rs("boolCommend")
  270. strRs2string=rs("strString")
  271. set rs=nothing
  272. else
  273. numRs2id=""
  274. strRs2name=""
  275. dateRs2time=now()
  276. strRs2size=""
  277. strRs2mode=""
  278. strRs2roof=""
  279. strRs2commend=""
  280. strRs2homepage=""
  281. strRs2demo=""
  282. strRs2pic=""
  283. strRs2big=""
  284. strRs2sort=""
  285. numRs2sortcount=""
  286. strRs2show=""
  287. numRs2counters=""
  288. numRs2downcount=""
  289. strRs2down(0)=""
  290. strRs2down(1)=""
  291. strRs2down(2)=""
  292. strRs2down(3)=""
  293. strRs2down(4)=""
  294. boolRs2hide=false
  295. numRs2moneys=""
  296. strRs2admin=""
  297. strRs2song=""
  298. dateRs2day=""
  299. dateRs2month=""
  300. numRs2day=""
  301. numRs2month=""
  302. boolRs2commend=false
  303. strRs2string=""
  304. end if
  306. if boolRs2hide=true then
  307. if rs4("boolMoney")=False then
  308. response.write("该影片是注册类型，你没有权限编辑该影片")
  309. response.end
  310. exit function
  311. end if
  312. end if
  314. response.write("<center>"&_
  315. "<table cellpadding=""3"" cellspacing=""1"" bordercolor=""#000000"" bgcolor=""#000000"" width=500>"&_
  316. "<col width=100><col width=400>"&_
  317. "<tr bgcolor=#f7f7f7>"&_
  318. "<form action=""edit.asp?")
  319. if numRs2id<>"" then
  320. response.write("id="&numRs2id&"&")
  321. end if
  322. response.write("post=save"" method=""POST"" name=""frmAnnounce"" onSubmit=submitonce(this)>"&_
  323. "<td align=right>编号：</td>"&_
  324. "<td><input type=text name=id size=15 value='"&numRs2id&"' style='color:#000000; border:0px; background-color:#f7f7f7' readonly></td>"&_
  325. "</tr><tr bgcolor=#ffffff>"&_
  326. "<td align=right>名称：</td>"&_
  327. "<td><input type=text name=name size=25 value='"&strRs2name&"'>(*50字符内，'""@&特殊字符无法输入)</td>"&_
  328. "</tr><tr bgcolor=#f7f7f7>"&_
  329. "<td align=right>更新日期：</td>"&_
  330. "<td><input type=text name=time size=20 value='"&dateRs2time&"'></td>"&_
  331. "</tr><tr bgcolor=#ffffff>"&_
  332. "<td align=right>文件大小：</td>"&_
  333. "<td><input type=text name=size size=20 value='"&strRs2size&"'></td>"&_
  334. "</tr><tr bgcolor=#f7f7f7>"&_
  335. "<td align=right>授权方式：</td>"&_
  336. "<td><input type=text name=mode size=20 value='"&strRs2mode&"'></td>"&_
  337. "</tr><tr bgcolor=#ffffff>"&_
  338. "<td align=right>文件格式：</td>"&_
  339. "<td><input type=text name=roof size=20 value='"&strRs2roof&"'></td>"&_
  340. "</tr><tr bgcolor=#f7f7f7>"&_
  341. "<td align=right>推荐程度：</td>"&_
  342. "<td><select size=6 name=commend>")
  344. for i = 0 to 5
  345. response.write("<option value='"&i&"'")
  346. if strRs2commend<>"" then
  347. if cint(left(strRs2commend,1))=i then
  348. response.write(" selected")
  349. end if
  350. end if
  351. response.write(">"&i&" 颗星</option>")
  352. next
  354. if boolRs2commend=true then
  355. strCommend1="checked"
  356. strCommend2=""
  357. else
  358. strCommend1=""
  359. strCommend2="checked"
  360. end if
  362. response.write("</select>"&_
  363. "</td></tr>"&_
  364. "<tr bgcolor=#ffffff>"&_
  365. "<td align=right>首页推荐：</td>"&_
  366. "<td><input type=""radio"" value=""true"" "&strCommend1&" name=""boolCommend"">是"&_
  367. "<input type=""radio"" value=""false"" "&strCommend2&" name=""boolCommend"">否</td>")
  369. if rs4("boolMoney")=True then
  370. if boolHide_1=true then
  371. if boolRs2hide=true then
  372. strChecked1="checked"
  373. strChecked2=""
  374. else
  375. strChecked1=""
  376. strChecked2="checked"
  377. end if
  378. response.write("<tr bgcolor=#ffffff>"&_
  379. "<td align=right>注册观看：</td>"&_
  380. "<td><input type=""radio"" value=""true"" "&strChecked1&" name=""hide"">是"&_
  381. "<input type=""radio"" value=""false"" "&strChecked2&" name=""hide"">否</td></tr>"&_
  382. "<tr bgcolor=#f7f7f7>"&_
  383. "<td align=right>货币大小：</td>"&_
  384. "<td><input type=text name=moneys size=5 value='"&numRs2moneys&"'>(设定观看该影片所需的虚拟货币)</td>"&_
  385. "</tr>")
  386. end if
  387. end if
  389. response.write("<tr bgcolor=#ffffff>"&_
  390. "<td align=right>关 键 字：</td>"&_
  391. "<td><input type=text name=strString size=10 value='"&strRs2string&"'>(搜索相关影片,必填)</td>"&_
  392. "</tr>"&_
  393. "<tr bgcolor=#ffffff>"&_
  394. "<td align=right>出品公司主页：</td>"&_
  395. "<td><input type=text name=homepage size=50 value='"&strRs2homepage&"'></td>"&_
  396. "</tr><tr bgcolor=#f7f7f7>"&_
  397. "<td align=right>演示地址：</td>"&_
  398. "<td><input type=text name=demo size=50 value='"&strRs2demo&"'></td>"&_
  399. "</tr><tr bgcolor=#ffffff>"&_
  400. "<td align=right>图片地址：</td>"&_
  401. "<td><input type=text name=pic size=40 value='"&strRs2pic&"'>(注:大小154*120)</td>"&_
  402. "</tr>")
  404. if boolSoftsong_1=true then
  405. response.write("<tr bgcolor=#ffffff>"&_
  406. "<td align=right>背景音乐：</td>"&_
  407. "<td><input type=text name=song size=30 value='"&strRs2song&"'>(*只允许.mid音乐格式)</td>"&_
  408. "</tr>")
  409. end if
  411. response.write("<tr bgcolor=#f7f7f7>"&_
  412. "<td align=right>影片分类：</td>"&_
  413. "<td><select size=1 name=sort2id>")
  415. Set rs = Server.CreateObject("ADODB.Recordset")
  416. sql="SELECT small.id,small.small,small.sortid FROM small"
  417. rs.OPEN sql, Conn,1,1
  418. if rs.eof then
  419. response.write("<option value=""0"" selected>还没有分类</option>")
  420. else
  421. rs.movefirst
  422. strOneSmall=split(rs4("strOneSmall"),", ")
  423. while not rs.eof
  424. numSmallid=rs("id")
  425. if rs4("strOneSmall")<>"0" then
  426. for i=0 to UBound(strOneSmall)
  427. if numSmallid=cint(strOneSmall(i)) then
  428. boolSortsShow=True
  429. exit for
  430. else
  431. boolSortsShow=False
  432. end if
  433. next
  434. else
  435. boolSortsShow=True
  436. end if
  437. if boolSortsShow=True then
  438. strSmall=rs("small")
  439. strSortid=rs("sortid")
  440. if strSmall=strRs2sort then
  441. strTsele="selected"
  442. else
  443. strTsele=""
  444. end if
  445. response.write("<option value='"&numSmallid&"' "&strTsele&">"&_
  446. strSmall&"("&strSortid&")</option>")
  447. end if
  448. rs.movenext
  449. wend
  450. end if
  451. rs.close
  452. set rs=nothing
  454. response.write("</select></tr>"&_
  455. "<tr bgcolor=#ffffff>"&_
  456. "<td width=131 valign=top valign=top align=right>影片简介：</td>"&_
  457. "<td>")
  458. if boolUbb_1=true then
  459. response.write("<img border=""0"" onclick=bold() src=""../images/btg/bold.gif"" alt=""粗体"" width=""23"" height=""22"">"&_
  460. "<img border=""0"" onclick=italicize() src=""../images/btg/italicize.gif"" alt=""斜体"" width=""23"" height=""22"">"&_ 
  461. "<img border=""0"" onclick=underline() src=""../images/btg/underline.gif"" alt=""下划线"" width=""23"" height=""22"">"&_ 
  462. "<img border=""0"" onclick=showcode() src=""../images/btg/code.gif"" alt=""插入代码"" width=""23"" height=""22"">"&_ 
  463. "<img border=""0"" onclick=quote() src=""../images/btg/quote.gif"" alt=""引用"" width=""23"" height=""22"">"&_ 
  464. "<img border=""0"" onclick=setfly() src=""../images/btg/fly.gif"" alt=""飞行字"" width=""23"" height=""22"">"&_ 
  465. "<img border=""0"" onclick=glow() src=""../images/btg/glow.gif"" alt=""发光字"" width=""23"" height=""22"">"&_ 
  466. "<img border=""0"" onclick=move() src=""../images/btg/move.gif"" alt=""移动字"" width=""23"" height=""22"">"&_ 
  467. "<img border=""0"" onclick=shadow() src=""../images/btg/shadow.gif"" alt=""阴影字"" width=""23"" height=""22"">"&_ 
  468. "<img border=""0"" onclick=list() src=""../images/btg/list.gif"" alt=""列表"" width=""23"" height=""22"">"&_ 
  469. "<img border=""0"" onclick=center() src=""../images/btg/center.gif"" alt=""居中"" width=""23"" height=""22"">"&_
  470. "<br>"&_
  471. "<img border=""0"" onclick=showsize() src=""../images/btg/font.gif"" alt=""改变字体大小"" width=""23"" height=""22"">"&_ 
  472. "<img border=""0"" onclick=hyperlink() src=""../images/btg/url.gif"" alt=""插入连接"" width=""23"" height=""22"">"&_ 
  473. "<img border=""0"" onclick=image() src=""../images/btg/image.gif"" alt=""插入图片"" width=""23"" height=""22"">"&_ 
  474. "<img border=""0"" onclick=flash() src=""../images/btg/swf.gif"" alt=""插入FLASH"" width=""23"" height=""22"">"&_ 
  475. "<img border=""0"" onclick=email() src=""../images/btg/email.gif"" alt=""插入E-mail"" width=""23"" height=""22"">"&_ 
  476. "<img border=""0"" onclick=showface() src=""../images/btg/smilie.gif"" alt=""心情图标"" width=""23"" height=""22"">"&_ 
  477. "<img border=""0"" onclick=mp() src=""../images/btg/media.gif"" alt=""Media Player视频文件"" width=""23"" height=""22"">"&_ 
  478. "<img border=""0"" onclick=rm() src=""../images/btg/real.gif"" alt=""realplay视频文件"" width=""23"" height=""22"">"&_ 
  479. "<img border=""0"" onclick=qt() src=""../images/btg/qs.gif"" alt=""QuickTime视频文件"" width=""23"" height=""22"">"&_
  480. "<img border=""0"" onclick=sk() src=""../images/btg/shockwave.gif"" alt=""Shockwave文件"" width=""23"" height=""22"">"&_ 
  481. "<img border=""0"" src=""../images/btg/help.gif"" alt=""在线帮助"" width=""23"" height=""22"">")
  482. end if
  484. response.write("<textarea rows=8 name=brief cols=50>"&strRs2show&"</textarea>"&_
  485. "</td></tr>")
  487. if boolUnload_1=true then
  488. response.write("<tr bgcolor=#f7f7f7>"&_ 
  489. "<td align=right>影片上传：</td>"&_
  490. "<td>"&_
  491. "<IFRAME SRC=../soft.asp MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=NO WIDTH=100% HEIGHT=25></IFRAME>"&_
  492. "</td></tr>")
  493. end if
  495. for i= 0 to 4
  496. if i=0 then
  497. strErrmsg="(*不能为空)"
  498. else
  499. strErrmsg=""
  500. end if
  501. response.write("<tr bgcolor=#f7f7f7>"&_
  502. "<td align=right>第"&i+1&"集地址：</td>"&_
  503. "<td><input type='text' name='down"&i+1&"' size='40' value='"&strRs2down(i)&"'>"&strErrmsg&"</td>"&_
  504. "</tr>")
  505. next
  507. response.write("<tr bgcolor=#ffffff>"&_
  508. "<td width=492 colspan=2 align=center>"&_
  509. "<input type=submit value=提交 name=sendadd> "&_
  510. "<input type=reset value=重填></td>"&_
  511. "</form></tr></table></center>"&_
  512. "<div align='center'>"&_ 
  513. "<center>")
  515. if boolUnload_1=true then
  516. response.write("<table border=""0"" width=""90%"" cellspacing=""0"" cellpadding=""2"">"&_ 
  517. "<tr>"&_ 
  518. "<td width=""100%"" align=""right"">"&_
  519. "<font color=""#FF0000"">*</font>"&_
  520. "上传类型:"&strLeixin_1&" 上传大小:"&numUnsize_1*1024&"字节"&_
  521. "</td></tr></table>")
  522. end if
  524. response.write("</center></div><br><br>")
  526. end function
  528. '--------------------保存影片--------------------
  530. function edit_save()
  532. dim strMode(3)
  533. dim strRs2down(4)
  535. strErrmsgbox=""
  536. strPecial="'""@&"
  539. if request.form("id")<>"" then
  540. numRs2id=request.form("id")
  541. set db=conn.execute("select count(id) as numDBid from download where id="&numRs2id&" and strAdmins='"&strCookies&"'")
  542. if db("numDBid")>="1" then
  543. if rs4("boolDel")=False then
  544. strErrmsgbox=strErrmsgbox+"<li>对不起你没有权限编辑影片"
  545. end if
  546. else
  547. if rs4("boolOrtherDel")=False then
  548. strErrmsgbox=strErrmsgbox+"<li>对不起你没有权限编辑别人添加的影片"
  549. end if
  550. end if
  551. db.close
  552. set db=nothing
  553. else
  554. numRs2id=""
  555. if rs4("boolAdd")=False then
  556. strErrmsgbox=strErrmsgbox+"<li>对不起你没有添加影片的权限"
  557. end if
  558. end if
  559. if request.form("name")<>"" then
  560. if len(request.form("name"))>50 then
  561. strErrmsgbox=strErrmsgbox+"<li>输入的影片名称太长，应控制在50个字符以内"
  562. else
  563. errAddress=false
  564. for i= 1 to 4
  565. strMode(i-1)=mid(strPecial,i,1)
  566. if Instr(request.form("name"),strMode(i-1))>1 then
  567. errAddress=True
  568. exit for
  569. end if
  570. next
  571. if errAddress=True then
  572. strErrmsgbox=strErrmsgbox+"<li>输入的影片不得包含'""@&特殊字符"
  573. else
  574. strRs2name=request.form("name")
  575. end if
  576. end if
  577. else
  578. strErrmsgbox=strErrmsgbox+"<li>请输入影片的名称"
  579. end if
  581. if request.form("time")<>"" then
  582. if IsDate(request.form("time"))=False then
  583. strErrmsgbox=strErrmsgbox+"<li>输入的影片添加日期变量表达式类型错误"
  584. else
  585. dateRs2time=request.form("time")
  586. end if
  587. else
  588. dateRs2time=now()
  589. end if
  591. if request.form("size")<>"" then
  592. strRs2size=request.form("size")
  593. else
  594. strRs2size="不详"
  595. end if
  597. if request.form("mode")<>"" then
  598. strRs2mode=request.form("mode")
  599. else
  600. strRs2mode="不详"
  601. end if
  603. if request.form("roof")<>"" then
  604. strRs2roof=request.form("roof")
  605. else
  606. strRs2roof="不详"
  607. end if
  609. strRs2commend=(request.form("commend")&"stars.gif")
  611. if request.form("homepage")<>"" then
  612. strRs2homepage=request.form("homepage")
  613. else
  614. strRs2homepage=""
  615. end if
  617. if request.form("demo")<>"" then
  618. strRs2demo=request.form("demo")
  619. else
  620. strRs2demo=""
  621. end if
  623. if request.form("pic")<>"" then
  624. strRs2pic=request.form("pic")
  625. else
  626. strRs2pic=""
  627. end if
  629. numRs2sortcount=cint(request.form("sort2id"))
  631. if numRs2sortcount="0" then
  632. strErrmsgbox=strErrmsgbox+"<li>还没有添加影片分类，<a href=sort.asp>请添加</a>"
  633. else
  634. sql="select small.id,small.small,small.sortid from small where id="&numRs2sortcount
  635. rs=conn.execute(sql)
  636. strRs2big=rs("sortid")
  637. strRs2sort=rs("small")
  638. end if
  640. if request.form("brief")<>"" then
  641. strRs2show=replace(request.form("brief"),"'","''")
  642. else
  643. strRs2show="不详"
  644. end if
  646. for i = 0 to 4
  647. if i=0 then
  648. if request.form("down"&i+1&"")="" then
  649. strErrmsgbox=strErrmsgbox+"<li>观看地址1不能为空"
  650. exit for
  651. end if
  652. end if
  653. if request.form("down"&i+1&"")<>"" then
  654. strRs2down(i)=request.form("down"&i+1&"")
  655. else
  656. strRs2down(i)=""
  657. end if
  658. next
  660. if request.form("hide")="true" then
  661. boolRs2hide=True
  662. if request.form("moneys")<>"" then
  663. if IsNumeric(request.form("moneys"))=True then
  664. numRs2moneys=request.form("moneys")
  665. else
  666. strErrmsgbox=strErrmsgbox+"<li>影片观看金额变量类型错误"
  667. end if
  668. else
  669. strErrmsgbox=strErrmsgbox+"<li>启用影片注册功能时请务必设定影片观看金额"
  670. end if
  671. else
  672. boolRs2hide=False
  673. numRs2moneys="0"
  674. end if
  676. strRs2admin=strCookies
  678. if request.form("song")<>"" then
  679. strRs2song=request.form("song")
  680. else
  681. strRs2song=""
  682. end if
  684. if request.form("boolCommend")="true" then
  685. boolRs2commend=True
  686. else
  687. boolRs2commend=False
  688. end if
  690. if request.form("strString")<>"" then
  691. strRs2string=request.form("strString")
  692. else
  693. strErrmsgbox=strErrmsgbox+"<li>请输入影片关键字"
  694. end if
  696. if rs4("boolTatt")=True then
  697. boolZhen=True
  698. else
  699. boolZhen=False
  700. end if
  702. if strErrmsgbox="" then
  703. if numRs2id<>"" then
  704. sql="update download set name='"&strRs2name&"',dateRtime='"&dateRs2time&"',strSize='"&strRs2size&"',strMode='"&strRs2mode&"',strRoof='"&strRs2roof&"',strCommend='"&strRs2commend&"',strHomepage='"&strRs2homepage&"',strDemo='"&strRs2demo&"',strPic='"&strRs2pic&"',strBig='"&strRs2big&"',strSort='"&strRs2sort&"',numSortcount="&numRs2sortcount&",strShow='"&strRs2show&"',down1='"&strRs2down(0)&"',down2='"&strRs2down(1)&"',down3='"&strRs2down(2)&"',down4='"&strRs2down(3)&"',down5='"&strRs2down(4)&"',boolHide="&boolRs2hide&",numMoneys="&numRs2moneys&",strAdmins='"&strRs2admin&"',strSong='"&strRs2song&"',boolCommend="&boolRs2commend&",strString='"&strRs2string&"',boolZhen="&boolZhen&" where id="&numRs2id
  705. else
  706. sql="insert into download(name,dateRtime,strSize,strMode,strRoof,strCommend,strHomepage,strDemo,strPic,strBig,strSort,numSortcount,strShow,numCounters,numDowncount,down1,down2,down3,down4,down5,boolHide,numMoneys,strAdmins,strSong,dateDaynow,dateMonthnow,numDaydown,numMonthdown,boolCommend,strString,boolZhen) values('"&strRs2name&"','"&dateRs2time&"','"&strRs2size&"','"&strRs2mode&"','"&strRs2roof&"','"&strRs2commend&"','"&strRs2homepage&"','"&strRs2demo&"','"&strRs2pic&"','"&strRs2big&"','"&strRs2sort&"',"&numRs2sortcount&",'"&strRs2show&"',0,0,'"&strRs2down(0)&"','"&strRs2down(1)&"','"&strRs2down(2)&"','"&strRs2down(3)&"','"&strRs2down(4)&"',"&boolRs2hide&","&numRs2moneys&",'"&strRs2admin&"','"&strRs2song&"','"&dateRs2time&"','"&dateRs2time&"',0,0,"&boolRs2commend&",'"&strRs2string&"',"&boolZhen&")"
  707. conn.execute("update admin set moneyert=moneyert+"& cint(numMoneyset_1) &" where admin='"& strAdmins &"'")
  708. end if
  709. conn.execute sql
  710. response.write("操作完成，2秒钟后返回"&_
  711. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=list.asp'>")
  712. response.end
  713. else
  714. response.write(strErrmsgbox)
  715. end if
  717. end function
  719. '-----------------删除影片------------------
  721. function edit_del()
  723. if request.form("id")<>"" then
  724. if rs4("boolAllDel")=False then
  725. response.write("<li>对不起你没有权限批量删除影片")
  726. response.end
  727. end if
  728. numEditDel=split(request.form("id"),", ")
  729. for i= 0 to UBound(numEditDel)
  730. conn.execute("update admin set moneyert=moneyert-"& cint(numMoneydele_1) &" where admin in (select strAdmins from download where id="& numEditDel(i) &")")
  731. next
  732. sql="delete from [download] where id in ("&replace(request.form("id"),"'","")&")"
  734. else
  736. if request("id")<>"" then
  737. if IsNumeric(request("id"))=False then
  738. response.write("<li>对不起输入的ID编号错误,请勿添加非法字符")
  739. response.end
  740. end if
  741. else
  742. response.write("<li>对不起输入的ID编号错误,请勿添加非法字符")
  743. response.end
  744. end if
  746. set db=conn.execute("select count(id) as numDBid from download where id="&request("id")&" and strAdmins='"&strCookies&"'")
  747. if db("numDBid")>="1" then
  748. if rs4("boolDel")=False then
  749. response.write("<li>对不起你没有权限删除影片")
  750. response.end
  751. end if
  752. else
  753. if rs4("boolOrtherDel")=False then
  754. response.write("<li>对不起你没有权限删除别人添加的影片")
  755. response.end
  756. end if
  757. end if
  758. db.close
  759. set db=nothing
  761. conn.execute("update admin set moneyert=moneyert-"& cint(numMoneydele_1) &" where admin in (select strAdmins from download where id="& request("id") &")")
  762. sql="delete from download where id="&request("id")
  764. end if
  766. conn.execute sql
  768. response.write("操作完成，2秒钟后返回"&_
  769. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=list.asp'>")
  770. response.end
  772. end function
  774. '-------------------显示大分类-----------------
  776. function sort_sbig()
  778. Set rs = Server.CreateObject("ADODB.Recordset")
  779. sql="SELECT sort.id,sort.sort FROM sort"
  780. rs.OPEN sql, Conn,1,1
  781. while not rs.eof
  782. numBid=rs("id")
  783. strBsort=rs("sort")
  784. response.write("<option value='"&strBsort&"'>"&strBsort&"</option>")
  785. rs.movenext
  786. wend
  787. rs.close
  788. set rs=nothing
  790. end function
  792. '-------------------显示分类-----------------
  793. function sort_show()
  795. Set rs = Server.CreateObject("ADODB.Recordset")
  796. sql="SELECT sort.id,sort.sort FROM sort"
  797. rs.OPEN sql, Conn,1,1
  798. if rs.eof then
  799. response.write "<tr><td width='100%' bgcolor='#E3E3E3'>还没有分类</td></tr>"
  800. else
  801. while not rs.eof
  802. numSoid=rs("id")
  803. strSosort=rs("sort")
  804. response.write "<tr><td width='100%' bgcolor='#E3E3E3'>【"&strSosort&"】 <a href=sort.asp?big="&numSoid&"&post=edit>编辑</a> <a href=sort.asp?big="&numSoid&"&post=del onclick=""{if(confirm('您确定执行的操作吗?')){return true;}return false;}"">删除</a></td></tr>"
  805. Set rs1 = Server.CreateObject("ADODB.Recordset")
  806. sql1="SELECT small.id,small.small,small.sortid FROM small where sortid='"&strSosort&"'"
  807. rs1.OPEN sql1, Conn,1,1
  808. if rs1.eof then
  809. response.write "<tr><td width='100%' bgcolor='#ffffff' style='text-indent: 40'>还没有分类</td></tr>"
  810. else
  811. while not rs1.eof
  812. numSmid=rs1("id")
  813. strSmsmall=rs1("small")
  814. response.write "<tr><td width='100%' bgcolor='#ffffff' style='text-indent: 40'>&gt;&gt; "&strSmsmall&" <a href=sort.asp?sort="&numSmid&"&post=edit>编辑</a> <a href=sort.asp?sort="&numSmid&"&post=del onclick=""{if(confirm('您确定执行的操作吗?')){return true;}return false;}"">删除</a></td></tr>"
  815. rs1.movenext
  816. wend
  817. end if
  818. rs1.close
  819. set rs1=nothing
  820. rs.movenext
  821. wend
  822. end if
  823. rs.close
  824. set rs=nothing
  826. end function
  828. '-------------------删除分类-----------------
  829. function sort_del()
  831. numBig=request.QueryString("big")
  832. numSort=request.QueryString("sort")
  834. if numBig<>"" then
  835. sql="select sort.id,sort.sort from sort where id="&numBig
  836. rs=conn.execute(sql)
  837. strBsort=rs("sort")
  838. Set rs = Server.CreateObject("ADODB.Recordset")
  839. sql="select small.id,small.small,small.sortid from small where sortid='"&strBsort&"'"
  840. rs.open sql,conn,1,1
  841. while not rs.eof
  842. numSmall=rs("id")
  843. sql="delete from download where numSortcount="&numSmall
  844. conn.execute sql
  845. rs.movenext
  846. wend
  847. rs.close
  848. set rs=nothing
  849. sql="delete from small where sortid='"&strBsort&"'"
  850. conn.execute sql
  851. sql="delete from sort where id="&numBig
  852. conn.execute sql
  853. elseif numSort<>"" then
  854. sql="delete from download where numSortcount="&numSort
  855. conn.execute sql
  856. sql="delete from small where id="&numSort
  857. conn.execute sql
  858. end if
  860. response.write("操作完成，2秒钟后返回"&_
  861. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=sort.asp'>")
  862. response.end
  864. end function
  866. '-------------------编辑分类-----------------
  868. function sort_edit1()
  870. numBig=request.QueryString("big")
  871. numSort=request.QueryString("sort")
  873. if numBig<>"" then
  874. sql="select sort.id,sort.sort from sort where id="&numBig
  875. rs=conn.execute(sql)
  876. response.write "<form method='POST' action='sort.asp?big="&numBig&"&post=save'><table border='0' width='100%' cellspacing='0' cellpadding='3'><tr><td width='100%' align='center'><p style='margin-top: 80'>编辑大类: <input type='text' name='editbig' size='15' style='background-color: #F3F3F3; border: 1 solid #000000' value="&rs("sort")&"> <input type='submit' value='提交' name='sub' style='background-color: #F3F3F3; border: 1 solid #000000' onclick=""{if(editbig.value.length<1){alert('大类的名字不能为空');editbig.focus();return (false);}}""></td></tr></table>"
  877. set rs=nothing
  878. elseif numSort<>"" then
  879. sql="select small.id,small.small,small.sortid from small where id="&numSort
  880. rs=conn.execute(sql)
  881. response.write "<form method='POST' action='sort.asp?sort="&numSort&"&post=save'><table border='0' width='100%' cellspacing='0' cellpadding='3'><tr><td width='100%' align='center'><p style='margin-top: 80'>编辑小类: <input type='text' name='editsort' size='15' style='background-color: #F3F3F3; border: 1 solid #000000' value="&rs("small")&"> 所属大类: <select size='1' name='ebigid' style='background-color: #F3F3F3; border: 1 solid #000000'>"
  882. Set rs1 = Server.CreateObject("ADODB.Recordset")
  883. sql1="SELECT sort.id,sort.sort from sort"
  884. rs1.OPEN sql1, Conn,1,1
  885. do while not rs1.eof
  886. if rs("sortid")=rs1("sort") then
  887. response.write "<option value='"&rs1("sort")&"' selected>"&rs1("sort")&"</option>"
  888. else
  889. response.write "<option value='"&rs1("sort")&"'>"&rs1("sort")&"</option>"
  890. end if
  891. rs1.movenext
  892. loop
  893. rs1.close
  894. set rs1=nothing
  895. response.write "</select> <input type='submit' value='提交' name='sub' style='background-color: #F3F3F3; border: 1 solid #000000' onclick=""{if(editsort.value.length<1){alert('小类的名字不能为空');editsort.focus();return (false);}}""></td></tr></table>"
  896. set rs=nothing
  897. else
  898. response.write "<table border='0' width='100%' cellspacing='0' cellpadding='3'><tr><td width='100%' align='center'>程序执行错误</td></tr></table>"
  899. end if
  901. end function
  903. '-------------------保存分类-----------------
  905. function sort_save()
  907. numBig=request.QueryString("big")
  908. numSort=request.QueryString("sort")
  910. if numBig<>"" then
  911. strEditbig=request.form("editbig")
  912. Set rs = Server.CreateObject("ADODB.Recordset")
  913. sql="select sort from sort where sort='"&strEditbig&"'"
  914. rs.open sql,conn,1,1
  915. if rs.eof then
  916. rs.close
  917. set rs=nothing
  918. sql="update sort set sort='"&strEditbig&"' where id="&numBig
  919. else
  920. rs.close
  921. set rs=nothing
  922. response.write("错误操作，修改的分类名已存在")
  923. response.end
  924. end if
  925. else
  926. if numSort<>"" then
  927. strEditsort=request.form("editsort")
  928. strEditbig=request.form("ebigid")
  929. numCountid=0
  930. set rs=Server.CreateObject("ADODB.Recordset")
  931. sql="select small,sortid from small where sortid='"&strEditbig&"'"
  932. rs.open sql,conn,1,1
  933. do while not rs.eof
  934. if rs("small")=request.form("editsort") then
  935. numCountid=numCountid+1
  936. end if
  937. rs.movenext
  938. loop
  939. rs.close
  940. set rs=nothing
  941. if numCountid=0 then
  942. sql="update small set small='"&strEditsort&"',sortid='"&strEditbig&"' where id="&numSort
  943. conn.execute("update download set strBig='"&strEditbig&"' where numSortcount="&numSort)
  944. else
  945. response.write("操作错误，添加的分类已存在")
  946. response.end
  947. end if
  948. else
  949. if request.form("big")<>"" and request.form("sort")<>"" then
  950. response.write("操作失败，请确认输入的数据，每次只能添加一个大分类或小分类")
  951. exit function
  952. else
  953. if request.form("big")="" and request.form("sort")="" then
  954. response.write("请确认输入的数据，需要添加的大小分类都为空，不能执行操作")
  955. exit function
  956. else
  957. if request.form("big")<>"" then
  958. Set rs = Server.CreateObject("ADODB.Recordset")
  959. sql="select sort from sort where sort='"&request.form("big")&"'"
  960. rs.open sql,conn,1,1
  961. if rs.eof then
  962. rs.close
  963. set rs=nothing
  964. sql="insert into sort(sort) values('"&request.form("big")&"')"
  965. else
  966. rs.close
  967. set rs=nothing
  968. response.write("错误操作，添加的分类名已存在")
  969. response.end
  970. end if
  971. else
  972. numCountid=0
  973. set rs=Server.CreateObject("ADODB.Recordset")
  974. sql="select small,sortid from small where sortid='"&request.form("bigid")&"'"
  975. rs.open sql,conn,1,1
  976. do while not rs.eof
  977. if rs("small")=request.form("sort") then
  978. numCountid=numCountid+1
  979. end if
  980. rs.movenext
  981. loop
  982. rs.close
  983. set rs=nothing
  984. if numCountid=0 then
  985. sql="insert into small(small,sortid) values('"&request.form("sort")&"','"&request.form("bigid")&"')"
  986. else
  987. response.write("操作错误，添加的分类已存在")
  988. response.end
  989. end if
  990. end if
  991. end if
  992. end if
  993. end if
  994. end if
  996. conn.execute sql
  998. response.write("操作完成，2秒钟后返回"&_
  999. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=sort.asp'>")
  1000. response.end
  1002. end function
  1004. '-------------------EMAIL判定-----------------
  1005. function IsValidEmail(email)
  1007. dim names, name, i, c
  1009. 'Check for valid syntax in an email address.
  1011. IsValidEmail = true
  1012. names = Split(email, "@")
  1013. if UBound(names) <> 1 then
  1014.    IsValidEmail = false
  1015.    exit function
  1016. end if
  1017. for each name in names
  1018.    if Len(name) <= 0 then
  1019.      IsValidEmail = false
  1020.      exit function
  1021.    end if
  1022.    for i = 1 to Len(name)
  1023.      c = Lcase(Mid(name, i, 1))
  1024.      if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
  1025.        IsValidEmail = false
  1026.        exit function
  1027.      end if
  1028.    next
  1029.    if Left(name, 1) = "." or Right(name, 1) = "." then
  1030.       IsValidEmail = false
  1031.       exit function
  1032.    end if
  1033. next
  1034. if InStr(names(1), ".") <= 0 then
  1035.    IsValidEmail = false
  1036.    exit function
  1037. end if
  1038. i = Len(names(1)) - InStrRev(names(1), ".")
  1039. if i <> 2 and i <> 3 then
  1040.    IsValidEmail = false
  1041.    exit function
  1042. end if
  1043. if InStr(email, "..") > 0 then
  1044.    IsValidEmail = false
  1045. end if
  1047. end function
  1048. '-------------------系统设定-----------------
  1050. function setup_save()
  1052. boolOpen=request.form("boolOpen")
  1054. if boolOpen="False" then
  1055. if request.form("strHtml")="" then
  1056. errMsg=errMsg+"<li>如不开放请签写维护说明"
  1057. else
  1058. strHtml=request.form("strHtml")
  1059. end if
  1060. else
  1061. strHtml="系统维护中……"
  1062. end if
  1064. if request.form("strHomepage")="" then
  1065. errMsg=errMsg+"<li>请填写主页名称"
  1066. else
  1067. strHomepage=request.form("strHomepage")
  1068. end if
  1070. if request.form("strUrl")="" then
  1071. errMsg=errMsg+"<li>请填写主页地址"
  1072. else
  1073. if instr(request.form("strUrl"),"http://")<0 then
  1074. errMsg=errMsg+"<li>主页地址格式不对，请以http://开头"
  1075. else
  1076. strUrl=request.form("strUrl")
  1077. end if
  1078. end if
  1080. if request.form("strAddess")="" then
  1081. errMsg=errMsg+"<li>请填写程序所在地址"
  1082. else
  1083. if instr(request.form("strAddess"),"http://")<0 then
  1084. errMsg=errMsg+"<li>程序所在地址格式不对，请以http://开头"
  1085. else
  1086. strAddess=request.form("strAddess")
  1087. end if
  1088. end if
  1090. if request.form("strTitle")="" then
  1091. strTitle="天峰视频系统V1.0免费版"
  1092. end if
  1094. if request.form("strEstate")="" then
  1095. strEstate="天峰视频系统V1.0免费版"
  1096. else
  1097. strEstate=request.form("strEstate")
  1098. end if
  1100. if request.form("strAdminemail")="" then
  1101. errMsg=errMsg+"<li>请填写管理员E-MAIL地址"
  1102. else
  1103. if IsValidEmail(request.form("strAdminemail"))=False then
  1104. errMsg=errMsg+"<li>输入的管理员E-MAIL不符合E-MAIL标准，请返回重新输入"
  1105. else
  1106. strAdminemail=request.form("strAdminemail")
  1107. end if
  1108. end if
  1110. if request.form("numSofts")="" then
  1111. errMsg=errMsg+"<li>请填写每页影片显示数"
  1112. else
  1113. if IsNumeric(request.form("numSofts"))=False then
  1114. errMsg=errMsg+"<li>请确认输入的每页影片显示数是否为数字形式"
  1115. else
  1116. numSofts=CInt(request.form("numSofts"))
  1117. end if
  1118. end if
  1120. if request.form("numXgsoft")="" then
  1121. errMsg=errMsg+"<li>请填写相关影片显示数"
  1122. else
  1123. if IsNumeric(request.form("numXgsoft"))=False then
  1124. errMsg=errMsg+"<li>请确认输入的相关影片显示数是否为数字形式"
  1125. else
  1126. numXgsoft=CInt(request.form("numXgsoft"))
  1127. end if
  1128. end if
  1130. if request.form("numShows")="" then
  1131. errMsg=errMsg+"<li>请填写简介大小"
  1132. else
  1133. if IsNumeric(request.form("numShows"))=False then
  1134. errMsg=errMsg+"<li>请确认输入的简介大小是否为数字形式"
  1135. else
  1136. numShows=CInt(request.form("numShows"))
  1137. end if
  1138. end if
  1140. if request.form("numCommend")="" then
  1141. errMsg=errMsg+"<li>请填写首页推荐影片个数"
  1142. else
  1143. if IsNumeric(request.form("numCommend"))=False then
  1144. errMsg=errMsg+"<li>请确认输入的首页推荐影片个数是否为数字形式"
  1145. else
  1146. numCommend=CInt(request.form("numCommend"))
  1147. end if
  1148. end if
  1150. boolReview=request.form("boolReview")
  1152. boolRegs=request.form("boolRegs")
  1154. boolAdmins=True
  1156. boolDelete=False
  1158. boolLoad=False
  1160. boolAttestation=False
  1162. boolSoftatt=request.form("boolSoftatt")
  1164. boolPwssend=False
  1166. numForget="0"
  1168. boolHide=request.form("boolHide")
  1170. if boolHide="True" then
  1171. if request.form("numMoneys")="" then
  1172. errMsg=errMsg+"<li>如果启用会员影片设置请设置最初货币项目"
  1173. else
  1174. if IsNumeric(request.form("numMoneys"))=False then
  1175. errMsg=errMsg+"<li>请确认输入的最初货币项目是否为数字形式"
  1176. else
  1177. numMoneys=CInt(request.form("numMoneys"))
  1178. end if
  1179. end if
  1181. if request.form("numMoneyset")="" then
  1182. errMsg=errMsg+"<li>如果启用会员影片设置请设置增加货币项目"
  1183. else
  1184. if IsNumeric(request.form("numMoneyset"))=False then
  1185. errMsg=errMsg+"<li>请确认输入的增加货币项目是否为数字形式"
  1186. else
  1187. numMoneyset=CInt(request.form("numMoneyset"))
  1188. end if
  1189. end if
  1191. if request.form("numMoneydele")="" then
  1192. errMsg=errMsg+"<li>如果启用会员影片设置请设置扣减货币项目"
  1193. else
  1194. if IsNumeric(request.form("numMoneydele"))=False then
  1195. errMsg=errMsg+"<li>请确认输入的扣减货币项目是否为数字形式"
  1196. else
  1197. numMoneydele=CInt(request.form("numMoneydele"))
  1198. end if
  1199. end if
  1201. if request.form("strMoneyname")="" then
  1202. errMsg=errMsg+"<li>如果启用会员影片设置请设置货币单位项目"
  1203. else
  1204. strMoneyname=request.form("strMoneyname")
  1205. end if
  1206. else
  1207. numMoneys="1000"
  1208. numMoneyset="100"
  1209. numMoneydele="200"
  1210. strMoneyname="元"
  1211. end if
  1213. boolAffiche=True
  1215. boolUbb=request.form("boolUbb")
  1217. boolSoftimg=request.form("boolSoftimg")
  1219. boolSoftsong=request.form("boolSoftsong")
  1221. boolSoftsize=request.form("boolSoftsize")
  1223. boolSoftreal=request.form("boolSoftreal")
  1225. boolSoftflash=request.form("boolSoftflash")
  1227. boolSoftmedia=request.form("boolSoftmedia")
  1229. boolAdminimg=True
  1231. if boolAdminimg="True" then
  1232. boolImgunload=True
  1233. if boolImgunload="True" then
  1234. if request.form("strImgsize4")="" then
  1235. errMsg=errMsg+"<li>请设置头像上传目录项目"
  1236. else
  1237. strImgsize4=request.form("strImgsize4")
  1238. end if
  1240. if request.form("numImgsize3")="" then
  1241. errMsg=errMsg+"<li>请设置头像大小项目"
  1242. else
  1243. if IsNumeric(request.form("numImgsize3"))=False then
  1244. errMsg=errMsg+"<li>请确认输入的头像大小项目是否为数字形式"
  1245. else
  1246. numImgsize3=CInt(request.form("numImgsize3"))
  1247. end if
  1248. end if
  1249. else
  1250. strImgsize4="/"
  1251. numImgsize3="500"
  1252. end if
  1254. if request.form("numImgsize1")="" then
  1255. errMsg=errMsg+"<li>请设置头像宽度项目"
  1256. else
  1257. if IsNumeric(request.form("numImgsize1"))=False then
  1258. errMsg=errMsg+"<li>请确认输入的头像宽度项目是否为数字形式"
  1259. else
  1260. numImgsize1=CInt(request.form("numImgsize1"))
  1261. end if
  1262. end if
  1264. if request.form("numImgsize2")="" then
  1265. errMsg=errMsg+"<li>请设置头像高度项目"
  1266. else
  1267. if IsNumeric(request.form("numImgsize2"))=False then
  1268. errMsg=errMsg+"<li>请确认输入的头像高度项目是否为数字形式"
  1269. else
  1270. numImgsize2=CInt(request.form("numImgsize2"))
  1271. end if
  1272. end if
  1273. else
  1274. boolImgunload="False"
  1275. strImgsize4="/"
  1276. numImgsize3="500"
  1277. numImgsize1="100"
  1278. numImgsize2="100"
  1279. end if
  1281. boolUnload=request.form("boolUnload")
  1283. if boolUnload="True" then
  1284. if request.form("strLeixin")="" then
  1285. errMsg=errMsg+"<li>如果启用上传文件设置请填写上传的文件类型"
  1286. else
  1287. if instr(request.form("strLeixin"),".")<0 then
  1288. errMsg=errMsg+"<li>程序检查出上传的文件类型填写格式错误，请返回重新填写"
  1289. else
  1290. strLeixin=request.form("strLeixin")
  1291. end if
  1292. end if
  1294. if request.form("strLujing")="" then
  1295. errMsg=errMsg+"<li>如果启用上传文件设置请填写上传目录"
  1296. else
  1297. if instr(request.form("strLujing"),"/")<0 then
  1298. errMsg=errMsg+"<li>程序检查出上传目录填写格式错误，请返回重新填写"
  1299. else
  1300. strLujing=request.form("strLujing")
  1301. end if
  1302. end if
  1304. if request.form("numUnsize")="" then
  1305. errMsg=errMsg+"<li>如果启用上传文件设置请限制上传大小"
  1306. else
  1307. if IsNumeric(request.form("numUnsize"))=False then
  1308. errMsg=errMsg+"<li>请确认输入的上传文件大小项目是否为数字形式"
  1309. else
  1310. numUnsize=CInt(request.form("numUnsize"))
  1311. end if
  1312. end if
  1313. else
  1314. strLeixin=".*"
  1315. strLujing="/"
  1316. numUnsize="500"
  1317. end if
  1319. boolSoftemail=False
  1321. if request.form("imgTitles")="" then
  1322. imgTitles="./images/title.gif"
  1323. else
  1324. imgTitles=request.form("imgTitles")
  1325. end if
  1327. if request.form("imgBanner")="" then
  1328. imgBanner="./images/banners.gif"
  1329. else
  1330. imgBanner=request.form("imgBanner")
  1331. end if
  1333. if request.form("strSoftshows")="" then
  1334. strSoftshows="暂无说明"
  1335. else
  1336. strSoftshows=request.form("strSoftshows")
  1337. end if
  1339. for i=0 to 6
  1340. strADShow=strADShow &"|"& Request.Form("select"& i &"")
  1341. next
  1342. strADShow=right(strADShow,len(strADShow)-1)
  1344. if request.form("strPersonalityReg")="" then
  1345. errMsg=errMsg+"<li>请按照给定的授权号码填写，否则你将无法正常使用程序"
  1346. else
  1347. if len(request.form("strPersonalityReg"))<>12 then
  1348. errMsg=errMsg+"<li>请按照给定的授权号码填写，否则你将无法正常使用程序"
  1349. else
  1350. strPersonalityReg=request.form("strPersonalityReg")
  1351. end if
  1352. end if
  1355. if errMsg<>"" then
  1356. response.write(errMsg&"<p><a href=javascript:history.back(-1)>点击返回→</a>")
  1357. response.end
  1358. exit function
  1359. else
  1360. sql="update setup set boolOpen="&boolOpen&",strHtml='"&strHtml&"',strHomepage='"&strHomepage&"',strUrl='"&strUrl&"',strAddess='"&strAddess&"',strTitle='"&strTitle&"',strEstate='"&strEstate&"',strAdminemail='"&strAdminemail&"',numSofts='"&numSofts&"',numXgsoft='"&numXgsoft&"',numShows='"&numShows&"',numCommend='"&numCommend&"',boolReview="&boolReview&",boolRegs="&boolRegs&",boolAdmins="&boolAdmins&",boolDelete="&boolDelete&",boolLoad="&boolLoad&",boolAttestation="&boolAttestation&",boolSoftatt="&boolSoftatt&",boolPwssend="&boolPwssend&",numForget='"&numForget&"',boolHide="&boolHide&",numMoneys='"&numMoneys&"',numMoneyset='"&numMoneyset&"',numMoneydele='"&numMoneydele&"',strMoneyname='"&strMoneyname&"',boolAffiche="&boolAffiche&",boolUbb="&boolUbb&",boolSoftimg="&boolSoftimg&",boolSoftsong="&boolSoftsong&",boolSoftsize="&boolSoftsize&",boolSoftreal="&boolSoftreal&",boolSoftflash="&boolSoftflash&",boolSoftmedia="&boolSoftmedia&",boolAdminimg="&boolAdminimg&",boolImgunload="&boolImgunload&",strImgsize4='"&strImgsize4&"',numImgsize3='"&numImgsize3&"',numImgsize1='"&numImgsize1&"',numImgsize2='"&numImgsize2&"',boolUnload="&boolUnload&",strLeixin='"&strLeixin&"',strLujing='"&strLujing&"',numUnsize='"&numUnsize&"',boolSoftemail="&boolSoftemail&",strSoftshows='"&strSoftshows&"',imgTitles='"&imgTitles&"',imgBanner='"&imgBanner&"',strADShow='"&strADShow&"',strPersonalityReg='"&strPersonalityReg&"'"
  1361. conn.execute sql
  1363. response.write("操作完成，2秒钟后返回"&_
  1364. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=setup.asp'>")
  1365. response.end
  1366. end if
  1368. end function
  1370. '-------------------用户管理(显示全体用户资料)-----------------
  1371. function ShowAllUser()
  1373. if request.QueryString("page")<>"" then
  1374. absPageNum=request.QueryString("page")
  1375. else
  1376. absPageNum=1
  1377. end if
  1378. response.write("<form name=""adminUser"" method=""post"" action=""user.asp"">"& vbCRLF & _ 
  1379. "<tr align=""center"" bgcolor=""#EFEFEF"">"& vbCRLF & _ 
  1380. "<td width=""15%"">用户名</td>"& vbCRLF & _ 
  1381. "<td width=""25%"">Email</td>"& vbCRLF & _ 
  1382. "<td width=""8%"">权限</td>"& vbCRLF & _ 
  1383. "<td width=""20%"">最后IP</td>"& vbCRLF & _ 
  1384. "<td width=""25%"">最后登陆时间</td>"& vbCRLF & _ 
  1385. "<td width=""7%"">操作</td>"& vbCRLF & _ 
  1386. "</tr>")
  1387. Set rs = Server.CreateObject("ADODB.Recordset")
  1388. rs.CursorType = adOpenStatic
  1389. rs.CacheSize = 20
  1390. sql="select * from admin"
  1391. if Request.Form("UserPost")="4" and Request.Form("strSearchUser")<>"" then
  1392. sql=sql&" where admin='"& Request.Form("strSearchUser") &"'"
  1393. end if
  1394. sql=sql&" order by lastTime desc"
  1395. rs.open sql,conn,1,1
  1396. RecordPerPage=20
  1397. rs.PageSize = RecordPerPage
  1398. Tol = rs.PageCount
  1399. If Not(rs.EOF) Then
  1400. rs.AbsolutePage = absPageNum
  1401. End If
  1402. if rs.eof then
  1403. response.write("<tr bgcolor=""#FFFFFF"">"& vbCRLF & _ 
  1404. "<td colspan=""6""><li>没有该管理员或者程序操作错误!</td>"& vbCRLF & _ 
  1405. "</tr>")
  1406. else
  1407. for i = 1 to rs.PageSize
  1408. numUid=rs("id")
  1409. strUadmin=rs("admin")
  1410. if rs("qx")<=5 then
  1411. strImgUadmin="<img src=""../images/"& rs("qx") &".gif"" align=""absmiddle""><a href=""#"" onClick=""window.open('../view.asp?user="&strUadmin&"','查看资料','width=220,height=200')"" title=""查看 "&strUadmin&" 的资料"">"&strUadmin&"</a>"
  1412. else
  1413. strImgUadmin="<img src=""../images/6.gif"" align=""absmiddle""><a href=""#"" onClick=""window.open('../view.asp?user="&strUadmin&"','查看资料','width=220,height=200')"" title=""查看 "&strUadmin&" 的资料"">"&strUadmin&"</a>"
  1414. end if
  1415. strUemail=rs("regemail")
  1416. strUlastIP=rs("lastIP")
  1417. dateUlastTime=rs("lastTime")
  1418. response.write("<tr bgcolor=""#FFFFFF"">"& vbCRLF & _ 
  1419. "<td width=""15%"">"&strImgUadmin&"</td>"& vbCRLF & _ 
  1420. "<td width=""25%""><a href=""mailto:"&strUemail&"""><img src=""../images/email1.gif"" width=""16"" height=""16"" border=""0"" align=""absmiddle"">"&strUemail&"</a></td>"& vbCRLF & _ 
  1421. "<td width=""8%"" align=""center""><a href='purview.asp?post=edit&Userid="&strUadmin&"'>编辑</a></td>"& vbCRLF & _ 
  1422. "<td width=""20%"" align=""center""><a href=userip.asp?ip="&strUlastIP&" alt=点击进行IP操作>"&strUlastIP&"</a></td>"& vbCRLF & _ 
  1423. "<td width=""25%"" align=""center"">"&dateUlastTime&"</td>"& vbCRLF & _ 
  1424. "<td width=""7%"" align=""center""><input type=""checkbox"" name=""userid"" value="""&numUid&"""></td>"& vbCRLF & _ 
  1425. "</tr>")
  1426. rs.movenext
  1427. if rs.eof then
  1428. exit for
  1429. end if
  1430. next
  1431. end if
  1432. rs.close
  1433. set rs=nothing
  1434. response.write("<tr bgcolor=""#FFFFFF"" align=""center"">"& vbCRLF & _ 
  1435. "<td colspan=""6"">"& vbCRLF & _ 
  1436. "<input name=""UserPost"" type=""radio"" value=""1"" checked> 删除"& vbCRLF & _ 
  1437. "<input type=""radio"" name=""UserPost"" value=""2"">"& vbCRLF & _ 
  1438. "<select size=""1"" name=""UserQx"">"& vbCRLF & _ 
  1439. "<option value=""0"" selected>移动用户组</option>")
  1440. Set rs = Server.CreateObject("ADODB.Recordset")
  1441. sql="select * from config order by id"
  1442. rs.open sql,conn,1,1
  1443. do while not rs.eof
  1444. response.write("<option value='"& rs("id") &"'>"& rs("strAname") &"</option>")
  1445. rs.movenext
  1446. loop
  1447. rs.close
  1448. set rs=nothing
  1449. response.write("</select>"& vbCRLF & _ 
  1450. "<input type=""radio"" name=""UserPost"" value=""3""> 群发邮件"& vbCRLF & _ 
  1451. "<input type=""radio"" name=""UserPost"" value=""4""> 搜索用户"& vbCRLF & _ 
  1452. "<input name=""strSearchUser"" type=""text"" size=""12"">"& vbCRLF & _ 
  1453. "<input type=""submit"" name=""Submit"" value=""提交"" onclick=""{if(confirm('您确定执行的操作吗?')){return true;}return false;}""></td>"& vbCRLF & _ 
  1454. "</tr>"& vbCRLF & _ 
  1455. "</form>")
  1456. numPagenext=absPageNum+1
  1457. numPageup=absPageNum-1
  1458. if numPageup<1 then
  1459. numPageup=1
  1460. end if
  1461. if numPagenext>Tol then
  1462. numPagenext=Tol
  1463. end if
  1464. strPageup=("[<a href='user.asp?page="&numPageup&"'>上一页</a>]")
  1465. strPagenext=("[<a href='user.asp?page="&numPagenext&"'>下一页</a>]")
  1466. strSelectPage=("<option value='user.asp' selected>请选择</option>")
  1467. for i=1 to Tol
  1468. strSelectPage=(strSelectPage&"<option value='user.asp?page="&i&strPage&"'>第"&i&"页</option>")
  1469. next
  1470. response.write("<form>"& vbCRLF & _ 
  1471. "<tr bgcolor=""#FFFFFF"" align=""right"">"& vbCRLF & _ 
  1472. "<td colspan=""6"">当前页:[<font color='#FF0000'><strong>"&absPageNum&"</strong></font>] 共 <font color='#FF0000'><strong>"&Tol&"</strong></font> 页 每页:[<font color='#FF0000'><strong>"&RecordPerPage&"</strong></font>] "&strPageup&" "&strPagenext&" 转到 <select name='select2' onChange='window.location=form.select2.options[form.select2.selectedIndex].value' size=1>"&strSelectPage&"</select> 页 </td>"& vbCRLF & _ 
  1473. "</tr>"& vbCRLF & _ 
  1474. "</form>")
  1475. end function
  1477. '----------------------用户组操作---------------------
  1478. function UserPost()
  1480. if rs4("boolUser")=False then
  1481. response.write("<li>对不起,你没有权限操作用户组")
  1482. response.end
  1483. end if
  1485. select case request.form("UserPost")
  1486. case "1"
  1487. strUseridFun=split(request.form("userid"),", ")
  1488. for i= 0 to UBound(strUseridFun)
  1489. if strUseridFun(i)="1" then
  1490. response.write("对不起,拥有超级管理员权限的用户无法删除")
  1491. response.end
  1492. exit for
  1493. end if
  1494. next
  1495. conn.execute("delete from [admin] where id in ("&replace(request.form("userid"),"'","")&")")
  1496. response.write("操作完成，2秒钟后返回"&_
  1497. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=user.asp'>")
  1498. case "2"
  1499. if request.form("UserQx")="0" then
  1500. response.write("<li>对不起,你移动用户组时输入错误的参数,请返回重新输入")
  1501. else
  1502. conn.execute("update [admin] set qx="& request.form("UserQx") &" where id in ("&replace(request.form("userid"),"'","")&")")
  1503. response.write("操作完成，2秒钟后返回"&_
  1504. "<META HTTP-EQUIV=REFRESH CONTENT='2;URL=user.asp'>")
  1505. end if
  1506. case "3"
  1507. if Request.QueryString("send")="ok" then
  1508. AllEmailSend(request.form("userid"))
  1509. else
  1510. %>
  1511. <form name="form1" method="post" action="user.asp?send=ok">
  1512. <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000">
  1513.   <tr align="center" bgcolor="#E0E0E0"> 
  1514.     <td colspan="2">邮件群发(不要发垃圾邮件啊^_^)</td>
  1515.   </tr>
  1516.   <tr bgcolor="#FFFFFF"> 
  1517.     <td width="20%">标题:</td>
  1518.     <td><input name="strEtitle" type="text" id="strEtitle" size="50" maxlength="100">
  1519.         <input type="hidden" name="userid" value="<%=request.form("userid")%>"><input type="hidden" name="UserPost" value="3"></td>
  1520.   </tr>
  1521.   <tr bgcolor="#FFFFFF"> 
  1522.     <td width="20%">内容:</td>
  1523.     <td><textarea name="strEarticle" cols="50" rows="8" id="strEarticle"></textarea></td>
  1524.   </tr>
  1525.   <tr align="center" bgcolor="#FFFFFF"> 
  1526.     <td colspan="2"> 
  1527.       
  1528.         <input type="submit" name="Submit2" value="发送">
  1529.       </td>
  1530.   </tr>
  1531. </table>
  1532. </form>
  1533. <%
  1534. end if
  1535. end select
  1537. end function
  1539. '---------------判定服务器支持的E-MAIL组件-----------
  1540. function pop_email(Objs)
  1542. On Error Resume Next
  1543. pop_email = False
  1544. Err = 0
  1545. Dim Test_email
  1546. Set Test_email = Server.CreateObject(Objs)
  1547. If 0 = Err Then pop_email = True
  1548. Set Test_email = Nothing
  1549. Err = 0
  1551. End Function
  1553. '--------------E-MAIL群发函数--------------
  1554. function AllEmailSend(strEmailAddress)
  1556. funEmailAddress=Split(strEmailAddress,", ")
  1558. dim XP_email(2)
  1559. XP_email(0) = "JMail.SMTPMail"
  1560. XP_email(1) = "CDONTS.NewMail"
  1561. XP_email(2) = "Persits.MailSender"
  1563. for i= 0 to UBound(funEmailAddress)
  1564. set rs=conn.execute("select * from admin where id="&funEmailAddress(i))
  1566. if IsValidEmail(rs("regemail"))=false then
  1567. response.write(rs("admin")&"邮件地址错误...<br>")
  1568. else
  1569. if pop_email(XP_email(0)) then
  1570. Set JMail=Server.CreateObject("JMail.SMTPMail")
  1571. JMail.Logging=True
  1572. JMail.Charset="gb2312"
  1573. JMail.ContentType = "text/html"
  1574. JMail.ServerAddress="smtp.21cn.com"
  1575. JMail.Sender=strAdminemail_1
  1576. JMail.Subject=Request.Form("strEtitle")
  1577. JMail.Body=Request.Form("strEarticle")
  1578. JMail.AddRecipient rs("regemail")
  1579. JMail.Priority=3
  1580. JMail.Execute 
  1581. Set JMail=nothing
  1582. if err then 
  1583. response.write "发送给"& rs("admin") &"的邮件出现错误...<br>"
  1584. err.clear
  1585. else
  1586. response.write "发送给"& rs("admin") &"的邮件完成!<br>"
  1587. end if
  1588. elseif pop_email(XP_email(1)) then
  1589. Set mail = Server.CreateObject("CDONTS.NewMail")
  1590. mail.TO = rs("regemail")
  1591. mail.From = strAdminemail_1
  1592. mail.Subject =Request.Form("strEtitle")
  1593. mail.Body =Request.Form("strEarticle")
  1594. mail.Send
  1595. Set mail = Nothing
  1596. if err then 
  1597. response.write "发送给"& rs("admin") &"的邮件出现错误...<br>"
  1598. err.clear
  1599. else
  1600. response.write "发送给"& rs("admin") &"的邮件完成!<br>"
  1601. end if
  1602. elseif pop_email(XP_email(2)) then
  1603. Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
  1604. recipient=rs("regemail")
  1605. sender=strAdminemail_1
  1606. subject=Request.Form("strEtitle")
  1607. message=Request.Form("strEarticle")
  1608. mailserver="smtp.21cn.com"
  1609. result=mailer.SendMail(mailserver, recipient, sender, subject, message)
  1610. Set mailer = Nothing
  1611. if err then 
  1612. response.write "发送给"& rs("admin") &"的邮件出现错误...<br>"
  1613. err.clear
  1614. else
  1615. response.write "发送给"& rs("admin") &"的邮件完成!<br>"
  1616. end if
  1617. else
  1618. response.write "你的服务器不支持E-MAIL组件"
  1619. exit for
  1620. end if
  1621. end if
  1622. next
  1624. end function
  1626. '-----------------显示广告-----------------
  1628. function showAD()
  1630. if request.QueryString("page")<>"" then
  1631. absPageNum=request.QueryString("page")
  1632. else
  1633. absPageNum=1
  1634. end if
  1636. Set rs = Server.CreateObject("ADODB.Recordset")
  1637. rs.CursorType = adOpenStatic
  1638. rs.CacheSize = 8
  1639. sql="select * from ad order by dateAddTime desc"
  1640. rs.open sql,conn,1,1
  1641. RecordPerPage= 8
  1642. rs.PageSize = RecordPerPage
  1643. Tol = rs.PageCount
  1644. If Not(rs.EOF) Then
  1645. rs.AbsolutePage = absPageNum
  1646. End If
  1647. if rs.eof then
  1648. response.write("还没有广告内容,请<a href='ad.asp?post=add'>添加→</a>")
  1649. else
  1650. for i = 1 to rs.PageSize
  1651. strADID=rs("id")
  1652. boolADtext=rs("boolADtext")
  1653. boolADjs=rs("boolADjs")
  1654. boolADmonth=rs("boolADmonth")
  1655. if boolADmonth=True then
  1656. strADmonth="包月"
  1657. else
  1658. strADmonth="点击"
  1659. end if
  1660. numMaxBig=rs("numMaxBig")
  1661. select case numMaxBig
  1662. case "1"
  1663. strMaxBig="文本"
  1664. case "2"
  1665. strMaxBig="100*100"
  1666. case "3"
  1667. strMaxBig="160*70"
  1668. case "4"
  1669. strMaxBig="480*60"
  1670. case "5"
  1671. strMaxBig="760*60"
  1672. case "6"
  1673. strMaxBig="跳窗"
  1674. end select
  1675. numShow=rs("numShow")
  1676. if boolADjs=True then
  1677. if numMaxBig<"5" then
  1678. strADurl=rs("strADurl")
  1679. else
  1680. if numMaxBig="6" then
  1681. strADurl="由于广告大小过大,请点击查看广告浏览该广告<span><textarea rows=""2"" cols=""50"" id=""code"& strADID &""" readonly><script language=""JavaScript"">window.open('"& rs("strADurl") &"') ;</script></textarea><input value=""查看广告"" type=""button"" onclick=runHtml() name=""daoshuai""></span>"
  1682. else
  1683. strADurl="由于广告大小过大,请点击查看广告浏览该广告<span><textarea rows=""2"" cols=""50"" id=""code"& strADID &""" readonly>"& rs("strADurl") &"</textarea><input value=""查看广告"" type=""button"" onclick=runHtml() name=""daoshuai""></span>"
  1684. end if
  1685. end if
  1686. numSelect="无"
  1687. numMaxRate="无"
  1688. numNowRate="无"
  1689. strADTitle=""
  1690. strImTeAD=""
  1691. if boolADmonth=True then
  1692. numRate=rs("numRate")
  1693. else
  1694. numRate="无"
  1695. end if
  1696. else
  1697. if numMaxBig<"5" then
  1698. if numMaxBig="1" then
  1699. strADurl="<a href="""& rs("strADurl") &""" alt="""& rs("strADTitle") &""">"& rs("strImTeAD") &"</a>"
  1700. else
  1701. strADurl="<a href="""& rs("strADurl") &"""><img src="""& rs("strImTeAD") &""" alt="""& rs("strADTitle") &""" border=""0""></a>"
  1702. end if
  1703. else
  1704. strADurl="由于广告大小过大,请点击查看广告浏览该广告<span><textarea rows=""2"" cols=""50"" id=""code"& strADID &""" readonly><a href="""& rs("strADurl") &"""><img src="""& rs("strImTeAD") &""" alt="""& rs("strADTitle") &""" border=""0""></a></textarea><input value=""查看广告"" type=""button"" onclick=runHtml() name=""daoshuai""></span>"
  1705. end if
  1706. numSelect=rs("numSelect")
  1707. numMaxRate=rs("numMaxRate")
  1708. if numShow="0" then
  1709. numNowRate="0"
  1710. else
  1711. numNowRate=round(int(numSelect)/int(numShow),2)
  1712. end if
  1713. if boolADmonth=True then
  1714. numRate=rs("numRate")
  1715. else
  1716. numRate=CDbl(numSelect)/1000*CDbl(rs("numRate"))
  1717. end if
  1718. end if
  1719. numPlace=rs("numPlace")
  1720. select case numPlace
  1721. case "1"
  1722. strPlace="<img src=""../images/fav.gif"" alt=""首页固定广告栏480*60"">"
  1723. case "2"
  1724. strPlace="<img src=""../images/fav.gif"" alt=""每页文本广告栏"">"
  1725. case "3"
  1726. strPlace="<img src=""../images/fav.gif"" alt=""160*70右边广告栏(首页特定)"">"
  1727. case "4"
  1728. strPlace="<img src=""../images/fav.gif"" alt=""页面滚动广告栏(100*100)"">"
  1729. case "5"
  1730. strPlace="<img src=""../images/fav.gif"" alt=""影片页左边160*70广告栏"">"
  1731. case "6"
  1732. strPlace="<img src=""../images/fav.gif"" alt=""影片页480*60广告栏"">"
  1733. case "7"
  1734. strPlace="<img src=""../images/fav.gif"" alt=""每页底部760*60夹层广告栏"">"
  1735. case "8"
  1736. strPlace="<img src=""../images/fav.gif"" alt=""顶端每页760*60夹层广告栏"">"
  1737. case "9"
  1738. strPlace="<img src=""../images/fav.gif"" alt=""跳窗式广告"">"
  1739. end select
  1740. numFirstShow=rs("numFirstShow")
  1741. dateAddTime="<img src=""../images/report.gif"" alt="""& rs("dateAddTime") &""">"
  1742. strALLShow=numShow&"/"&numSelect&"/"&strXNum(numNowRate)&"/"&strXNum(numMaxRate)
  1743. %>
  1744. <table width="100%" border="0" cellpadding="2" cellspacing="0">
  1745.   <tr align="center"> 
  1746.     <td colspan="7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  1747.         <tr>
  1748.           <td width="90%" align="center"><%=strADurl%></td>
  1749.           <td width="10%"><p><a href="ad.asp?post=add"><img src="../images/a_add.gif" width="52" height="16" border="0"></a><br>
  1750.               <a href="ad.asp?post=edit&id=<%=strADID%>"><img src="../images/a_edit.gif" width="52" height="16" border="0"></a><br>
  1751.               <a href="ad.asp?post=del&id=<%=strADID%>" onclick="{if(confirm('将删除你所选择的广告是否执行操作?')){return true;}return false;}"><img src="../images/a_delete.gif" width="52" height="16" border="0"></a> 
  1752.             </p>
  1753.             </td>
  1754.         </tr>
  1755.       </table></td>
  1756.   </tr>
  1757.   <tr align="center"> 
  1758.     <td width="40%">显/点/比/设:<%=strALLShow%></td>
  1759.     <td width="14%">大小:<%=strMaxBig%></td>
  1760.     <td width="12%">类型:<%=strADmonth%></td>
  1761.     <td width="14%">收入:￥<%=strXNum(numRate)%></td>
  1762.     <td width="10%">优先率:<%=numFirstShow%></td>
  1763.     <td width="5%"><%=dateAddTime%></td>
  1764.     <td width="5%"><%=strPlace%></td>
  1765.   </tr>
  1766. </table><br><br>
  1767. <%
  1768. rs.movenext
  1769. if rs.eof then
  1770. exit for
  1771. end if
  1772. next
  1773. end if
  1774. rs.close
  1775. set rs=nothing
  1776. numPagenext=absPageNum+1
  1777. numPageup=absPageNum-1
  1778. if numPageup<1 then
  1779. numPageup=1
  1780. end if
  1781. if numPagenext>Tol then
  1782. numPagenext=Tol
  1783. end if
  1784. strPageup=("[<a href='ad.asp?page="&numPageup&"'>上一页</a>]")
  1785. strPagenext=("[<a href='ad.asp?page="&numPagenext&"'>下一页</a>]")
  1786. strSelectPage=("<option value='ad.asp' selected>请选择</option>")
  1787. for i=1 to Tol
  1788. strSelectPage=(strSelectPage&"<option value='ad.asp?page="&i&strPage&"'>第"&i&"页</option>")
  1789. next
  1790. response.write("<form>"& vbCRLF & _ 
  1791. "<tr bgcolor=""#FFFFFF"" align=""right"">"& vbCRLF & _ 
  1792. "<td colspan=""6"">当前页:[<font color='#FF0000'><strong>"&absPageNum&"</strong></font>] 共 <font color='#FF0000'><strong>"&Tol&"</strong></font> 页 每页:[<font color='#FF0000'><strong>"&RecordPerPage&"</strong></font>] "&strPageup&" "&strPagenext&" 转到 <select name='select2' onChange='window.location=form.select2.options[form.select2.selectedIndex].value' size=1>"&strSelectPage&"</select> 页 </td>"& vbCRLF & _ 
  1793. "</tr>"& vbCRLF & _ 
  1794. "</form>")
  1795. end function
  1797. '----------------转换小数--------------
  1798. function strXNum(num)
  1800. numXNum=num
  1802. if instr(numXNum,".")="1" then
  1803. numXNum="0"&numXNum
  1804. end if
  1806. strXNum=numXNum
  1808. end function
  1810. '-----------------广告相关操作---------------
  1811. function ad_Doing()
  1813. if Request.QueryString("save")<>"ok" then
  1814. select case Request.QueryString("post")
  1815. case "add"
  1816. strAction="ad.asp?post=add&save=ok"
  1817. strSubmit="添加广告"
  1818. boolADjsb="checked"
  1819. boolADtextb="checked"
  1820. boolADmonthb="checked"
  1821. numPlace="0"
  1822. numFirstShow="0"
  1823. numMaxBig="0"
  1824. case "edit"
  1825. set rs=conn.execute("select * from ad where id="& Request.QueryString("id"))
  1826. strADurl=rs("strADurl")
  1827. if rs("boolADjs")=True then
  1828. boolADjsa="checked"
  1829. else
  1830. boolADjsb="checked"
  1831. end if
  1832. if rs("boolADtext")=True then
  1833. boolADtexta="checked"
  1834. else
  1835. boolADtextb="checked"
  1836. end if
  1837. strImTeAD=rs("strImTeAD")
  1838. strADTitle=rs("strADTitle")
  1839. numPlace=rs("numPlace")
  1840. if rs("boolADmonth")=True then
  1841. boolADmontha="checked"
  1842. else
  1843. boolADmonthb="checked"
  1844. end if
  1845. numRate=rs("numRate")
  1846. numFirstShow=rs("numFirstShow")
  1847. numMaxRate=rs("numMaxRate")
  1848. numMaxBig=rs("numMaxBig")
  1849. strAction="ad.asp?post=edit&id="& Request.QueryString("id") &"&save=ok"
  1850. strSubmit="编辑广告"
  1851. case "del"
  1852. conn.execute("delete from ad where id="&Request.QueryString("id"))
  1853. Response.write("操作完成，2秒钟后返回程序设置, 请重新设置广告相关<META HTTP-EQUIV=REFRESH CONTENT='2;URL=setup.asp'>")
  1854. response.end
  1855. end select
  1856. else
  1857. if Request.Form("strADurl")="" then
  1858. strERRMsgBox=strERRMsgBox&"<li>广告地址不能为空"
  1859. else
  1860. strADurl=Request.Form("strADurl")
  1861. end if
  1862. if Request.Form("strImTeAD")="" then
  1863. strERRMsgBox=strERRMsgBox&"<li>文字名称/图片地址不能为空"
  1864. else
  1865. strImTeAD=Request.Form("strImTeAD")
  1866. end if
  1867. if Request.Form("numPlace")="0" then
  1868. strERRMsgBox=strERRMsgBox&"<li>请选择广告所在位置"
  1869. else
  1870. numPlace=Request.Form("numPlace")
  1871. end if
  1872. if Request.Form("numRate")<>"" then
  1873. if IsNumeric(Request.Form("numRate"))=True then
  1874. numRate=Request.Form("numRate")
  1875. else
  1876. strERRMsgBox=strERRMsgBox&"<li>千次点击单价/包月费必须为数字形式"
  1877. end if
  1878. else
  1879. numRate="0"
  1880. end if
  1881. if Request.Form("numFirstShow")="0" then
  1882. strERRMsgBox=strERRMsgBox&"<li>请选择优先显示权"
  1883. else
  1884. numFirstShow=Request.Form("numFirstShow")
  1885. end if
  1886. if Request.Form("numMaxRate")<>"" then
  1887. if IsNumeric(Request.Form("numMaxRate"))=True then
  1888. numMaxRate=Request.Form("numMaxRate")
  1889. else
  1890. strERRMsgBox=strERRMsgBox&"<li>显示点击比率必须为数字形式"
  1891. end if
  1892. else
  1893. numMaxRate="0"
  1894. end if
  1895. if Request.Form("numMaxBig")="0" then
  1896. strERRMsgBox=strERRMsgBox&"<li>请选择广告条大小"
  1897. else
  1898. numMaxBig=Request.Form("numMaxBig")
  1899. end if
  1900. if strERRMsgBox="" then
  1901. select case Request.QueryString("post")
  1902. case "add"
  1903. conn.execute("insert into ad(strADurl,boolADjs,boolADtext,strImTeAD,strADTitle,numPlace,boolADmonth,numRate,numFirstShow,numMaxRate,dateAddTime,numSelect,numShow,numMaxBig) values('"& strADurl &"',"& Request.Form("boolADjs") &","& Request.Form("boolADtext") &",'"& strImTeAD &"','"& Request.Form("strADTitle") &"',"& numPlace &","& Request.Form("boolADmonth") &","& numRate &","& numFirstShow &","& numMaxRate &",'"& now() &"',0,0,"& numMaxBig &")")
  1904. case "edit"
  1905. conn.execute("update ad set strADurl='"& strADurl &"',boolADjs="& Request.Form("boolADjs") &",boolADtext="& Request.Form("boolADtext") &",strImTeAD='"& strImTeAD &"',strADTitle='"& Request.Form("strADTitle") &"',numPlace="& numPlace &",boolADmonth="& Request.Form("boolADmonth") &",numRate="& numRate &",numFirstShow="& numFirstShow &",numMaxRate="& numMaxRate &",numMaxBig="& numMaxBig &" where id="& Request.QueryString("id"))
  1906. case else
  1907. response.write("操作出现错误,请确认是否操作正确")
  1908. response.end
  1909. end select
  1910. Response.write("操作完成，2秒钟后返回<META HTTP-EQUIV=REFRESH CONTENT='2;URL=ad.asp'>")
  1911. response.end
  1912. else
  1913. response.write strERRMsgBox
  1914. response.end
  1915. end if
  1916. end if
  1917. %>
  1918. <form name="strADFrom" method="post" action="<%=strAction%>">
  1919.   <table width="100%" border="0" cellspacing="0" cellpadding="2">
  1920.     <tr> 
  1921.       <td width="35%">广告代码/点击地址</td>
  1922.       <td width="65%">
  1923.   <textarea name="strADurl" cols="35" rows="5" id="strADTitle"><%=strADurl%></textarea> *</td>                                      
  1924.     </tr>
  1925.     <tr> 
  1926.       <td width="35%">是否为JS/Flash</td>
  1927.       <td width="65%">
  1928. <input type="radio" name="boolADjs" value="True" <%=boolADjsa%>>
  1929.         是                                       
  1930.         <input name="boolADjs" type="radio" value="False" <%=boolADjsb%>>
  1931.         否</td>                                      
  1932.     </tr>
  1933.     <tr> 
  1934.       <td width="35%">文字广告</td>
  1935.       <td width="65%">
  1936. <input type="radio" name="boolADtext" value="True" <%=boolADtexta%>>
  1937.         是 
  1938.         <input name="boolADtext" type="radio" value="False" <%=boolADtextb%>>
  1939.         否</td>
  1940.     </tr>
  1941.     <tr> 
  1942.       <td width="35%">文字名称/图片地址</td>
  1943.       <td width="65%">
  1944. <input name="strImTeAD" type="text" id="strImTeAD" size="35" maxlength="255" value="<%=strImTeAD%>"> *</td>                                      
  1945.     </tr>
  1946.     <tr> 
  1947.       <td width="35%">广告介绍</td>
  1948.       <td width="65%">
  1949. <textarea name="strADTitle" cols="35" rows="5" id="strADTitle"><%=strADTitle%></textarea></td>
  1950.     </tr>
  1951.     <tr> 
  1952.       <td width="35%">广告位置</td>
  1953.       <td width="65%">
  1954. <select name="numPlace" size="1" id="numPlace">
  1955. <%
  1956. dim strPlaces(9)
  1957. strPlaces(0)="请选择广告所在位置"
  1958. strPlaces(1)="首页固定广告栏480*60"
  1959. strPlaces(2)="每页文本广告栏"
  1960. strPlaces(3)="160*70右边广告栏(首页特定)"
  1961. strPlaces(4)="页面滚动广告栏(100*100)"
  1962. strPlaces(5)="影片页左边160*70广告栏"
  1963. strPlaces(6)="影片页480*60广告栏"
  1964. strPlaces(7)="每页底部760*60夹层广告栏"
  1965. strPlaces(8)="顶端每页760*60夹层广告栏"
  1966. strPlaces(9)="跳窗式广告"
  1967. for i=0 to 9
  1968. if int(numPlace)=int(i) then
  1969. response.write("<option value="""& i &""" selected>"& strPlaces(i) &"</option>")
  1970. else
  1971. response.write("<option value="""& i &""">"& strPlaces(i) &"</option>")
  1972. end if
  1973. next
  1974. %>
  1975. </select></td>
  1976.     </tr>
  1977.     <tr> 
  1978.       <td width="35%">是否包月</td>
  1979.       <td width="65%">
  1980. <input type="radio" name="boolADmonth" value="True" <%=boolADmontha%>>
  1981.         是 
  1982.         <input name="boolADmonth" type="radio" value="False" <%=boolADmonthb%>>
  1983.         否</td>
  1984.     </tr>
  1985.     <tr> 
  1986.       <td width="35%">千次点击单价/包月费</td>
  1987.       <td width="65%">
  1988. <input name="numRate" type="text" id="numRate" size="5" maxlength="9" value="<%=numRate%>">
  1989.         RMB</td> 
  1990.     </tr>
  1991.     <tr> 
  1992.       <td width="35%">优先显示权</td>
  1993.       <td width="65%">
  1994. <select name="numFirstShow" size="1" id="numFirstShow">
  1995. <%
  1996. dim strFirstShow(5)
  1997. strFirstShow(0)="请选择优先显示权"
  1998. strFirstShow(1)="1.极少显示"
  1999. strFirstShow(2)="2.较少显示"
  2000. strFirstShow(3)="3.一般显示"
  2001. strFirstShow(4)="4.较多显示"
  2002. strFirstShow(5)="5.极多显示"
  2003. for i=0 to 5
  2004. if int(numFirstShow)=int(i) then
  2005. response.write("<option value="""& i &""" selected>"& strFirstShow(i) &"</option>")
  2006. else
  2007. response.write("<option value="""& i &""">"& strFirstShow(i) &"</option>")
  2008. end if
  2009. next
  2010. %>
  2011. </select></td>
  2012.     </tr>
  2013.     <tr> 
  2014.       <td width="35%">显示点击比率</td>
  2015.       <td width="65%"> <input name="numMaxRate" type="text" id="numMaxRate" size="5" maxlength="4" value="<%=numMaxRate%>">
  2016.         (小数表示,例如 .86/0.86 都可)</td> 
  2017.     </tr>
  2018.     <tr> 
  2019.       <td width="35%">广告条大小</td>
  2020.       <td width="65%">
  2021. <select name="numMaxBig" size="1" id="numMaxBig">
  2022. <%
  2023. dim strMaxBig(6)
  2024. strMaxBig(0)="请选择广告条大小"
  2025. strMaxBig(1)="文本"
  2026. strMaxBig(2)="100*100"
  2027. strMaxBig(3)="160*70"
  2028. strMaxBig(4)="480*60"
  2029. strMaxBig(5)="760*60"
  2030. strMaxBig(6)="跳窗"
  2031. for i=0 to 6
  2032. if int(numMaxBig)=int(i) then
  2033. response.write("<option value="""& i &""" selected>"& strMaxBig(i) &"</option>")
  2034. else
  2035. response.write("<option value="""& i &""">"& strMaxBig(i) &"</option>")
  2036. end if
  2037. next
  2038. %>
  2039. </select>(跳窗广告请在"是否为JS/Flash"选"是")</td>
  2040.     </tr>
  2041.     <tr align="center"> 
  2042.       <td colspan="2"> 
  2043.         <input type="submit" name="Submit" value="<%=strSubmit%>">
  2044.       </td>
  2045.     </tr>
  2046.   </table>
  2047. </form>
  2048. <%
  2049. end function
  2051. '------------------受限制IP禁止访问函数-----------------
  2052. function iperr()
  2054. IPaddress=Request.servervariables("remote_addr")
  2055. strIPaddress=Split(IPaddress,".")
  2057. Set ms =Server.CreateObject("ADODB.Recordset")
  2058. msql="select * from ip"
  2059. ms.open msql,conn,1,1
  2060. do while not ms.eof
  2061. numIP=int(ms("numIP")-1)
  2062. strAllIPaddress=""
  2063. for i=0 to UBound(strIPaddress)
  2064. if i>numIP then
  2065. if i=UBound(strIPaddress) then
  2066. strAllIPaddress=strAllIPaddress&"*"
  2067. else
  2068. strAllIPaddress=strAllIPaddress&"*."
  2069. end if
  2070. else
  2071. if i=UBound(strIPaddress) then
  2072. strAllIPaddress=strAllIPaddress+strIPaddress(i)
  2073. else
  2074. strAllIPaddress=strAllIPaddress+strIPaddress(i)&"."
  2075. end if
  2076. end if
  2077. next
  2078. if cstr(strAllIPaddress)=cstr(ms("strIPaddress")) then
  2079. Response.Redirect "../errip.htm"
  2080. end if
  2081. ms.movenext
  2082. loop
  2083. ms.close
  2084. set ms=nothing
  2086. end function
  2088. '--------------------显示待认证影片列表--------------------
  2090. function zhen_show()
  2092. if request.QueryString("page")<>"" then
  2093. absPageNum=request.QueryString("page")
  2094. else
  2095. absPageNum=1
  2096. end if
  2097. RecordPerPage = numSofts_1
  2098. Set rs3 = Server.CreateObject("ADODB.Recordset")
  2099. rs3.CursorType = adOpenStatic
  2100. rs3.CacheSize = cint(numSofts_1)
  2101. sql3="select * from download where boolZhen=True order by dateRtime desc"
  2102. rs3.open sql3, conn,1,1
  2103. rs3.PageSize = cint(numSofts_1)
  2104. Tol = rs3.PageCount
  2105. If Not(rs3.EOF) Then
  2106. rs3.AbsolutePage = absPageNum
  2107. End If
  2108. if rs3.eof then
  2109. response.write("<form name=""strZhenForm"" method=""post"" action=""zhen.asp"">该分类还没有影片")
  2110. else
  2111. For absRecordNum = 1 to rs3.PageSize
  2112. numRs3id=rs3("id")
  2113. strRs3name=rs3("name")
  2114. dateRs3time=rs3("dateRtime")
  2115. imgRs3commend=("<img src='../images/"&rs3("strCommend")&"'>")
  2116. if rs3("strDemo")<>"" then
  2117. strRs3demo=("<a href='"&rs3("strDemo")&"' target=_blank>演示</a>")
  2118. else
  2119. strRs3demo=("<font color='#C0C0C0'>演示</font>")
  2120. end if
  2121. strRs3big=rs3("strBig")
  2122. strRs3sort=rs3("strSort")
  2123. if len(rs3("strShow"))>numShows_1 then
  2124. strRs3show=left(rs3("strShow"),numShows_1) & "..."
  2125. else
  2126. strRs3show=rs3("strShow")
  2127. end if
  2128. strRs3count=("<a href='#' title='浏:"&rs3("numCounters")&" 总:"&rs3("numDowncount")&" 月:"&rs3("numMonthdown")&" 日:"&rs3("numDaydown")&"'>影片统计</a>")
  2129. if boolHide_1=true then
  2130. if rs3("boolHide")=true then
  2131. strRs3hide=(" <img align='absmiddle' border='0' src='../images/regsoft.gif' alt='观看资金"&rs3("numMoneys")&strMoneyname_1&"(虚拟币)'>")
  2132. else
  2133. strRs3hide=""
  2134. end if
  2135. end if
  2136. response.write("<form name=""strZhenForm"" method=""post"" action=""zhen.asp""><table width='90%' border='0' cellpadding='2' cellspacing='1' bgcolor='#000000'>"&_
  2137. "<tr bgcolor='#bcbcbc'>"&_ 
  2138. "<td colspan='2' bgcolor='#bcbcbc'>"&_
  2139. "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"&_
  2140. "<tr>"&_ 
  2141. "<td><input type=""checkbox"" name=""id"" value='"& numRs3id &"'><a href='../show.asp?id="&numRs3id&"' target=_blank>"&strRs3name&"</a> "&strRs3hide&"</td>"&_
  2142. "</tr>"&_
  2143. "</table></td>"&_
  2144. "<td colspan='2' align='right' bgcolor='#bcbcbc'>"&_
  2145. "<a href=""edit.asp?id="&numRs3id&"&post=edit"">编辑</a> ￤ "&_
  2146. "<a href=""edit.asp?id="&numRs3id&"&post=del"" onclick=""{if(confirm('您确定执行的操作吗?')){return true;}return false;}"">删除</a>"&_
  2147. "</td></tr>"&_
  2148. "<tr bgcolor='#DBDBDB'>"&_ 
  2149. "<td width='20%' align='center' bgcolor='#efefef'>更新日期</td>"&_
  2150. "<td width='30%'>"&dateRs3time&"</td>"&_
  2151. "<td width='20%' align='center' bgcolor='#efefef'>影片类别</td>"&_
  2152. "<td width='30%'>"&strRs3big&"┃"&strRs3sort&"</td>"&_
  2153. "</tr>"&_
  2154. "<tr bgcolor='white'>"&_ 
  2155. "<td colspan='4'><p style='text-indent: 40'>"&strRs3show&"</p></td>"&_
  2156. "</tr></table><br>")
  2157. rs3.movenext
  2158. if rs3.eof then
  2159. exit for
  2160. end if
  2161. next
  2162. end if
  2163. rs3.close
  2164. set rs3=nothing
  2165. numPagenext=absPageNum+1
  2166. numPageup=absPageNum-1
  2167. if numPageup<1 then
  2168. numPageup=1
  2169. end if
  2170. if numPagenext>Tol then
  2171. numPagenext=Tol
  2172. end if
  2173. strPageup=("[<a href='zhen.asp?page="&numPageup)
  2174. strPagenext=("[<a href='zhen.asp?page="&numPagenext)
  2175. if strType<>"" then
  2176. if strRang<>"" then
  2177. strPage=("&type="&strType&"&rang="&strRang)
  2178. else
  2179. strPage=("&type="&strType)
  2180. end if
  2181. else
  2182. if strRang<>"" then
  2183. if strSearch<>"" then
  2184. strPage=("&rang="&strRang&"&KEY="&strSearch&"&TTYPE="&strTch)
  2185. else
  2186. strPage=("&rang="&strRang)
  2187. end if
  2188. else
  2189. if strSearch<>"" then
  2190. strPage=("&KEY="&strSearch&"&TTYPE="&strTch)
  2191. else
  2192. strPage=""
  2193. end if
  2194. end if
  2195. end if
  2196. strPageup=(strPageup&strPage&"'>上一页</a>]")
  2197. strPagenext=(strPagenext&strPage&"'>下一页</a>]")
  2198. strSelectPage=("<option value='zhen.asp' selected>请选择</option>")
  2199. for i=1 to Tol
  2200. strSelectPage=(strSelectPage&"<option value='zhen.asp?page="&i&strPage&"'>第"&i&"页</option>")
  2201. next
  2202. response.write("<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"&_
  2203. "<tr>"&_ 
  2204. "<td align='right'><input type='radio' name='zhen' value='1'> 认证 <input type='radio' name='zhen' value='2'> 删 <input type='submit' name='Submit' value='提交'> "&_
  2205. "当前页:[<font color='#FF0000'><strong>"&absPageNum&"</strong></font>]"&_
  2206. " 共 <font color='#FF0000'><strong>"&Tol&"</strong></font>"&_
  2207. " 页 每页:[<font color='#FF0000'><strong>"&RecordPerPage&"</strong></font>]"&_
  2208. " "&strPageup&" "&strPagenext&" 转到"&_
  2209. " <select name='select2' onChange='window.location=form.select2.options[form.select2.selectedIndex].value' size=1>"&strSelectPage&"</select> 页 </td></table></form><br>")
  2210. end function
  2211. %>
  2212. <%
  2213. '如果你美化的漂亮或者修正了最多只可以同时添加5集和不能修改用户虚拟币的BUG记得联系一下网络游子哟~！我的QQ35325750或者1006389
  2214. %>