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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
CreateHtml.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：15k
源码类别：

外挂编程

开发平台：

ASP/ASPX

CreateHtml.asp：源码内容
  1. <!--#include file="setup.asp"-->
  2. <!--#include file="check.asp"-->
  3. <%
  4. If Not CheckAdmin("CreateHtml") Then
  5.     Server.Transfer("showerr.asp")
  6.     Response.End
  7. End If
  8. Dim UrlName, Fname
  9. Server.ScriptTimeOut = 999
  10. Admin_header
  11. Action = LCase(Request("action"))
  12. Select Case Trim(Action)
  13. Case "index"
  14. Call IndexHtml()
  15. Case "other"
  16. Call otherHtml()
  17. Case "allcontent"
  18. Call ContentHtml()
  19. Case "artcontent"
  20. Call artContentHtml()
  21. Case Else
  22. Call IndexHtml()
  23. End Select
  24. If Founderr = True Then
  25. ReturnError(ErrMsg)
  26. End If
  27. Admin_footer
  28. CloseConn
  29. Sub IndexHtml()
  30. Dim FileUrl, FolderPath, FileName, FilePath
  31. FileUrl    = tee5.WebUrl & "/Index.asp"
  32. FolderPath = tee5.ServerDir
  33. FileName   = "Index"
  34. FilePath   = FolderPath & FileName & ".html"
  35. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  36. Response.Write "<meta http-equiv=""refresh"" content=""60;url=CreateHtml.asp?action=index"">"
  37. Response.Write "<p align=center>"
  38. Response.Write "<font color=#0000FF>此页面一直开着，就可以享受首页静态HTML时时更新了</font><br><br><br>"
  39. Response.Write "生成首页HTML完成 <a href=" & FilePath & " target=_blank>"
  40. Response.Write Server.MapPath(FilePath)
  41. Response.Write "</a>"
  42. Response.Write "</p>"
  43. End Sub
  45. Sub otherHtml()
  46. Response.Write "<ol>"
  47. Call JzIndexHtml()
  48. Call DownHtml()
  49. Call ArticleHtml()
  50. Call sfHtml()
  51. Call sfAddHtml()
  52. Call JzAddHtml()
  53. Call JzpageHtml()
  54. Call artpageHtml()
  55. Call softpageHtml()
  56. Call AboutHtml()
  57. Call ContactsHtml()
  58. Call advertiseHtml()
  59. Call helpHtml()
  60. Response.Write "</ol>"
  61. End Sub
  63. Sub JzIndexHtml()
  64. Dim FileUrl, FolderPath, FileName, FilePath
  65. FileUrl    = tee5.WebUrl & "/Temp/3.asp"
  66. FolderPath = tee5.ServerDir
  67. FileName   = "JzIndex"
  68. FilePath   = FolderPath & FileName & ".html"
  69. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  70. Response.Write "<li>"
  71. Response.Write "生成家族首页HTML完成 <a href=" & FilePath & " target=_blank>"
  72. Response.Write Server.MapPath(FilePath)
  73. Response.Write "</a>"
  74. Response.Write "</li>"
  75. Response.Flush
  76. End Sub
  78. Sub DownHtml()
  79. Dim FileUrl, FolderPath, FileName, FilePath
  80. FileUrl    = tee5.WebUrl & "/Temp/4.asp"
  81. FolderPath = tee5.ServerDir
  82. FileName   = "Soft"
  83. FilePath   = FolderPath & FileName & ".html"
  84. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  85. Response.Write "<li>"
  86. Response.Write "生成下载首页HTML完成 <a href=" & FilePath & " target=_blank>"
  87. Response.Write Server.MapPath(FilePath)
  88. Response.Write "</a>"
  89. Response.Write "</li>"
  90. Response.Flush
  91. End Sub
  93. Sub ArticleHtml()
  94. Dim FileUrl, FolderPath, FileName, FilePath
  95. FileUrl    = tee5.WebUrl & "/Temp/5.asp"
  96. FolderPath = tee5.ServerDir
  97. FileName   = "Article"
  98. FilePath   = FolderPath & FileName & ".html"
  99. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  100. Response.Write "<li>"
  101. Response.Write "生成文章首页HTML完成 <a href=" & FilePath & " target=_blank>"
  102. Response.Write Server.MapPath(FilePath)
  103. Response.Write "</a>"
  104. Response.Write "</li>"
  105. Response.Flush
  106. End Sub
  108. Sub sfHtml()
  109. Dim FileUrl, FolderPath, FileName, FilePath
  110. FileUrl    = tee5.WebUrl & "/Temp/6.asp"
  111. FolderPath = tee5.ServerDir
  112. FileName   = "sf"
  113. FilePath   = FolderPath & FileName & ".html"
  114. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  115. Response.Write "<li>"
  116. Response.Write "生成小偷首页HTML完成 <a href=" & FilePath & " target=_blank>"
  117. Response.Write Server.MapPath(FilePath)
  118. Response.Write "</a>"
  119. Response.Write "</li>"
  120. Response.Flush
  121. End Sub
  124. Sub sfAddHtml()
  125. Dim FileUrl, FolderPath, FileName, FilePath
  126. FileUrl    = tee5.WebUrl & "/Temp/1.asp"
  127. FolderPath = tee5.ServerDir
  128. FileName   = "add"
  129. FilePath   = FolderPath & FileName & ".html"
  130. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  131. Response.Write "<li>"
  132. Response.Write "生成私服发布HTML完成 <a href=" & FilePath & " target=_blank>"
  133. Response.Write Server.MapPath(FilePath)
  134. Response.Write "</a>"
  135. Response.Write "</li>"
  136. Response.Flush
  137. End Sub
  139. Sub JzAddHtml()
  140. Dim FileUrl, FolderPath, FileName, FilePath
  141. FileUrl    = tee5.WebUrl & "/Temp/2.asp"
  142. FolderPath = tee5.ServerDir
  143. FileName   = "Jzadd"
  144. FilePath   = FolderPath & FileName & ".html"
  145. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  146. Response.Write "<li>"
  147. Response.Write "生成家族发布HTML完成 <a href=" & FilePath & " target=_blank>"
  148. Response.Write Server.MapPath(FilePath)
  149. Response.Write "</a>"
  150. Response.Write "</li>"
  151. Response.Flush
  152. End Sub
  154. Sub AboutHtml()
  155. Dim FileUrl, FolderPath, FileName, FilePath
  156. FileUrl    = tee5.WebUrl & "/Temp/a.asp"
  157. FolderPath = tee5.ServerDir
  158. FileName   = "About"
  159. FilePath   = FolderPath & FileName & ".html"
  160. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  161. Response.Write "<li>"
  162. Response.Write "生成关于我们HTML完成 <a href=" & FilePath & " target=_blank>"
  163. Response.Write Server.MapPath(FilePath)
  164. Response.Write "</a>"
  165. Response.Write "</li>"
  166. Response.Flush
  167. End Sub
  169. Sub ContactsHtml()
  170. Dim FileUrl, FolderPath, FileName, FilePath
  171. FileUrl    = tee5.WebUrl & "/Temp/a.asp?Gq=Contacts"
  172. FolderPath = tee5.ServerDir
  173. FileName   = "Contacts"
  174. FilePath   = FolderPath & FileName & ".html"
  175. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  176. Response.Write "<li>"
  177. Response.Write "生成联系我们HTML完成 <a href=" & FilePath & " target=_blank>"
  178. Response.Write Server.MapPath(FilePath)
  179. Response.Write "</a>"
  180. Response.Write "</li>"
  181. Response.Flush
  182. End Sub
  184. Sub advertiseHtml()
  185. Dim FileUrl, FolderPath, FileName, FilePath
  186. FileUrl    = tee5.WebUrl & "/Temp/a.asp?Gq=advertise"
  187. FolderPath = tee5.ServerDir
  188. FileName   = "advertise"
  189. FilePath   = FolderPath & FileName & ".html"
  190. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  191. Response.Write "<li>"
  192. Response.Write "生成广告合作HTML完成 <a href=" & FilePath & " target=_blank>"
  193. Response.Write Server.MapPath(FilePath)
  194. Response.Write "</a>"
  195. Response.Write "</li>"
  196. Response.Flush
  197. End Sub
  199. Sub helpHtml()
  200. Dim FileUrl, FolderPath, FileName, FilePath
  201. FileUrl    = tee5.WebUrl & "/Temp/a.asp?Gq=help"
  202. FolderPath = tee5.ServerDir
  203. FileName   = "help"
  204. FilePath   = FolderPath & FileName & ".html"
  205. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  206. Response.Write "<li>"
  207. Response.Write "生成网站帮助HTML完成 <a href=" & FilePath & " target=_blank>"
  208. Response.Write Server.MapPath(FilePath)
  209. Response.Write "</a>"
  210. Response.Write "</li>"
  211. Response.Flush
  212. End Sub
  214. Sub JzpageHtml()
  215. Dim totalnum, FileUrl, FolderPath, FileName, FilePath, N
  216. totalnum = tee5.Execute("SELECT COUNT(*) FROM [Gq_jzdata]")(0)
  217. N = totalnumtee5.maxperpage + 1
  218. If N=0 Then
  219. N = 1
  220. End If
  221. For i = 1 To N
  222. FileUrl    = tee5.WebUrl & "/Temp/3.asp?page=" & i
  223. FolderPath = tee5.ServerDir & "Html/JzList/"
  224. tee5.CreatPathEx (FolderPath)
  225. FileName   = "Jz_" & tee5.Supplemental(i,3)
  226. FilePath   = FolderPath & FileName & ".html"
  227. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  228. Response.Flush
  229. Response.Write "<li>"
  230. Response.Write "生成家族分页HTML完成 <a href=" & FilePath & " target=_blank>"
  231. Response.Write Server.MapPath(FilePath)
  232. Response.Write "</a>"
  233. Response.Write "</li>"
  234. Response.Flush
  235. Next
  236. End Sub
  238. Sub artpageHtml()
  239. Dim totalnum, FileUrl, FolderPath, FileName, FilePath, N
  240. totalnum = tee5.Execute("SELECT COUNT(*) FROM [Gq_Article]")(0)
  241. N = totalnumtee5.maxperpage + 1
  242. If N=0 Then
  243. N = 1
  244. End If
  245. For i = 1 To N
  246. FileUrl    = tee5.WebUrl & "/Temp/5.asp?page=" & i
  247. FolderPath = tee5.ServerDir & "wz/"
  248. tee5.CreatPathEx (FolderPath)
  249. FileName   = "News_" & tee5.Supplemental(i,3)
  250. FilePath   = FolderPath & FileName & ".html"
  251. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  252. Response.Flush
  253. Response.Write "<li>"
  254. Response.Write "生成文章分页HTML完成... <a href=" & FilePath & " target=_blank>"
  255. Response.Write Server.MapPath(FilePath)
  256. Response.Write "</a>"
  257. Response.Write "</li>"
  258. Response.Flush
  259. Next
  260. End Sub
  262. Sub softpageHtml()
  263. Dim totalnum, FileUrl, FolderPath, FileName, FilePath, N
  264. totalnum = tee5.Execute("SELECT COUNT(*) FROM [Gq_Soft]")(0)
  265. N = totalnumtee5.maxperpage + 1
  266. If N=0 Then
  267. N = 1
  268. End If
  269. For i = 1 To N
  270. FileUrl    = tee5.WebUrl & "/Temp/4.asp?page=" & i
  271. FolderPath = tee5.ServerDir & "Html/Soft/"
  272. tee5.CreatPathEx (FolderPath)
  273. FileName   = "Soft_" & tee5.Supplemental(i,3)
  274. FilePath   = FolderPath & FileName & ".html"
  275. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  276. Response.Flush
  277. Response.Write "<li>"
  278. Response.Write "生成软件分页HTML完成 <a href=" & FilePath & " target=_blank>"
  279. Response.Write Server.MapPath(FilePath)
  280. Response.Write "</a>"
  281. Response.Write "</li>"
  282. Response.Flush
  283. Next
  284. End Sub
  286. Sub ContentHtml()
  287. Dim totalnum, totalnumber, FileUrl, FolderPath, FileName, FilePath
  288. Dim maxperpage, Pcount, CurrentPage, totalpage, mm, nn, j
  289. If Trim(Request("p")) <> "" Then
  290. CurrentPage = CLng(Request("p"))
  291. Else
  292. CurrentPage = 1
  293. End If
  294. maxperpage = 100   '每页显示列表数
  295. totalnum = tee5.Execute("SELECT COUNT(*) FROM [Gq_sfData] WHERE Ulock <> 0")(0)
  296. If CurrentPage = 0 Then CurrentPage = 1
  297. SQL = "SELECT * FROM Gq_sfData WHERE Ulock <> 0 ORDER BY ID DESC"
  298. If Trim(Session("totalnumber")) = "" Then
  299. totalnumber = tee5.Execute("SELECT COUNT(ID) FROM [Gq_sfData] WHERE Ulock <> 0")(0)
  300. Session("totalnumber") = totalnumber
  301. Else
  302. totalnumber = Session("totalnumber")
  303. End If
  304. Pcount = CLng(totalnumber / maxperpage)  '得到总页数
  305. If Pcount < CLng(totalnumber / maxperpage) Then Pcount = Pcount + 1
  306. If CurrentPage < 1 Then CurrentPage = 1
  307. If CurrentPage > Pcount Then CurrentPage = Pcount
  308. Set Rs = Server.CreateObject("adodb.recordset")
  309. Set Rs = Conn.Execute(SQL)
  310. ShowGuage("admin_list.asp")
  311. mm = CLng(Pcount - 1) * maxperpage
  312. nn = CLng(totalnum - mm)
  313. If CurrentPage < Pcount then
  314. totalpage = maxperpage
  315. Else
  316. totalpage = nn
  317. End If
  318. If Not (Rs.EOF And Rs.BOF) Then
  319. Rs.MoveFirst
  320. If Pcount > 1 then Rs.Move (CurrentPage - 1) * maxperpage
  321. j = (CurrentPage - 1) * maxperpage + 1
  322. If Rs.Eof Then Exit Sub
  323. SQL=Rs.GetRows(maxperpage)
  324. Set Rs = Nothing
  325. Response.Write "<ol>"
  326. For i = 0 To UBound(SQL,2)
  327. If Not Response.IsClientConnected Then ResponseEnd
  328. FolderPath = tee5.ServerDir & "sf" & tee5.ServerDir
  329. tee5.CreatPathEx (FolderPath)
  330. FileUrl    = tee5.WebUrl & "/Temp/7.asp?ID=" & Clng(SQL(0,i))
  331. FileName   = year(SQL(5,i)) & month(SQL(5,i)) & day(SQL(5,i)) & SQL(0,i)
  332. FilePath   = FolderPath & FileName & ".html"
  333. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  334. Response.Flush
  335. ShowInnerHTML totalpage,totalnumber,SQL(0,i),i
  336. Response.Flush
  337. j = j + 1
  338. Next
  339. Response.Write "</ol>"
  340. SQL=Null
  341. Else
  342. Response.Write "<script>table2.style.width=500;txt1.innerHTML=""完成：100"";txt2.innerHTML=""本次生成已全部完成"";</script>"
  343. Response.Write "<meta http-equiv=""refresh"" content=""0;url='admin_list.asp'"">"
  344. Exit Sub
  345. End If
  346. If IsObject(Rs) Then Set Rs = Nothing
  347. If CurrentPage => Pcount Then
  348. Session("totalnumber") = ""
  349. Response.Write "<script>table2.style.width=500;txt1.innerHTML=""完成：100"";txt2.innerHTML=""本次生成已全部完成 <font color='#FFFF00'>3</font> 秒后自动转向首页"";</script>"
  350. Response.Write "<meta http-equiv=""refresh"" content=""3;url='admin_list.asp'"">"
  351. Else
  352. Response.Write "<script>table2.style.width=500;txt1.innerHTML=""完成：100"";txt2.innerHTML=""本次生成已完成 正在载入中 请稍后……"";</script>"
  353. Response.Write "<script language='JavaScript'>" & vbNewLine
  354. Response.Write "function build(){window.location.href='createhtml.asp?action=allcontent&p=" & CurrentPage + 1 & "';}" & vbNewLine
  355. Response.Write "setTimeout('build()',5000);" & vbNewLine
  356. Response.Write "</script>" & vbNewLine
  357. End If
  358. End Sub
  360. Sub artContentHtml()
  361. Dim totalnum, totalnumber, FileUrl, FolderPath, FileName, FilePath
  362. Dim maxperpage, Pcount, CurrentPage, totalpage, mm, nn, j
  363. If Trim(Request("p")) <> "" Then
  364. CurrentPage = CLng(Request("p"))
  365. Else
  366. CurrentPage = 1
  367. End If
  368. maxperpage = 100   '每页显示列表数
  369. totalnum = tee5.Execute("SELECT COUNT(*) FROM [Gq_Article]")(0)
  370. If CurrentPage = 0 Then CurrentPage = 1
  371. SQL = "SELECT * FROM Gq_Article ORDER BY ID DESC"
  372. If Trim(Session("totalnumber")) = "" Then
  373. totalnumber = tee5.Execute("SELECT COUNT(ID) FROM [Gq_Article]")(0)
  374. Session("totalnumber") = totalnumber
  375. Else
  376. totalnumber = Session("totalnumber")
  377. End If
  378. Pcount = CLng(totalnumber / maxperpage)  '得到总页数
  379. If Pcount < CLng(totalnumber / maxperpage) Then Pcount = Pcount + 1
  380. If CurrentPage < 1 Then CurrentPage = 1
  381. If CurrentPage > Pcount Then CurrentPage = Pcount
  382. Set Rs = Server.CreateObject("adodb.recordset")
  383. Set Rs = Conn.Execute(SQL)
  384. ShowGuage("admin_article.asp?action=cat")
  385. mm = CLng(Pcount - 1) * maxperpage
  386. nn = CLng(totalnum - mm)
  387. If CurrentPage < Pcount then
  388. totalpage = maxperpage
  389. Else
  390. totalpage = nn
  391. End If
  392. If Not (Rs.EOF And Rs.BOF) Then
  393. Rs.MoveFirst
  394. If Pcount > 1 then Rs.Move (CurrentPage - 1) * maxperpage
  395. j = (CurrentPage - 1) * maxperpage + 1
  396. If Rs.Eof Then Exit Sub
  397. SQL=Rs.GetRows(maxperpage)
  398. Set Rs = Nothing
  399. Response.Write "<ol>"
  400. For i = 0 To UBound(SQL,2)
  401. If Not Response.IsClientConnected Then ResponseEnd
  402. FolderPath = tee5.ServerDir & "wz/"
  403. tee5.CreatPathEx (FolderPath)
  404. FileUrl    = tee5.WebUrl & "/Temp/8.asp?ID=" & Clng(SQL(0,i))
  405. FileName   = "News_" & SQL(0,i)
  406. FilePath   = FolderPath & FileName & ".html"
  407. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  408. Response.Flush
  409. ShowInnerHTML totalpage,totalnumber,SQL(0,i),i
  410. Response.Flush
  411. j = j + 1
  412. Next
  413. Response.Write "</ol>"
  414. SQL=Null
  415. Else
  416. Response.Write "<script>table2.style.width=500;txt1.innerHTML=""完成：100"";txt2.innerHTML=""本次生成已全部完成"";</script>"
  417. Response.Write "<meta http-equiv=""refresh"" content=""0;url='admin_article.asp?action=cat'"">"
  418. Exit Sub
  419. End If
  420. If IsObject(Rs) Then Set Rs = Nothing
  421. If CurrentPage => Pcount Then
  422. Session("totalnumber") = ""
  423. Response.Write "<script>table2.style.width=500;txt1.innerHTML=""完成：100"";txt2.innerHTML=""本次生成已全部完成 <font color='#FFFF00'>3</font> 秒后自动转向首页"";</script>"
  424. Response.Write "<meta http-equiv=""refresh"" content=""3;url='admin_article.asp?action=cat'"">"
  425. Else
  426. Response.Write "<script>table2.style.width=500;txt1.innerHTML=""完成：100"";txt2.innerHTML=""本次生成已完成 正在载入中 请稍后……"";</script>"
  427. Response.Write "<script language='JavaScript'>" & vbNewLine
  428. Response.Write "function build(){window.location.href='createhtml.asp?action=allcontent&p=" & CurrentPage + 1 & "';}" & vbNewLine
  429. Response.Write "setTimeout('build()',5000);" & vbNewLine
  430. Response.Write "</script>" & vbNewLine
  431. End If
  432. End Sub
  433. %>