PageRenderTime 50ms CodeModel.GetById 0ms RepoModel.GetById 1ms app.codeStats 0ms

/ui.asp

https://github.com/74hu/74hujz
ASP | 1289 lines | 1252 code | 2 blank | 35 comment | 162 complexity | 7fc46ead62297a2282f2bd24fb017063 MD5 | raw file
    

  1. <%

    2. 

  2. '

    3. 

  3. '	七色虎建站系统

    4. 

  4. '	表现层文件Db.asp

    5. 

  5. '	用于展现网站

    6. 

  6. '	v1.2.4.143a

    7. 

  7. '	2011.9.3

    8. 

  8. 

    9. 

  9. ' 

    10. 

  10. ' 表现层函数，外部可以直接引用

    11. 

  11. ' 要求：共同属性写入底层，这部分只是用于展现

    12. 

  12. ' 函数命名：showMyName

    13. 

  13. 

    14. 

  14. 'Wap1.0首页

    15. 

  15. Sub showIndex()

    16. 

  16. 	w "<card title="""&waptitle&"""><p align="""&wapconst&""">"

    17. 

  17. 	if wapfavor="1" then w ""&getfavor&"<br/>"

    18. 

  18. 	if len(countdown) > 7 then w getDiff(countdown,countname)&"<br/>"

    19. 

  19. 	If Len(waplogo) > 7 Then w "<img src="""&waplogo&""" alt="""&waptitle&"""/><br/>"

    20. 

  20. 	if wapgonggao="1" then w "<a href=""?aid=gonggao""><img src=""images/msg.gif"" alt="".""/>网站发布最新公告!</a><br/>"

    21. 

  21. 	Dim rs,j

    22. 

  22. 	Set rs = Server.CreateObject("adodb.recordset")

    23. 

  23. 	rs.open "select lx,class,wmltxt,relid,br,num,classid from 74hu_class where parent=0 order by pid asc", conn, 1, 1

    24. 

  24. 	If rs.eOF Then

    25. 

  25. 		w "网站建设中..<br/>"

    26. 

  26. 	else

    27. 

  27. 		rs.Move (0)

    28. 

  28. 		j = 1

    29. 

  29. 		Do While Not rs.eOF

    30. 

  30. 			Select Case rs("lx")

    31. 

  31. 			Case 2 w ubbcode(rs("wmltxt"))

    32. 

  32. 			Case 9 w rs("wmltxt")

    33. 

  33. 			Case 8 Call adstr(1)

    34. 

  34. 			Case 10 Call newtitle(rs("num"), rs("relid"))

    35. 

  35. 			Case 11 Call hottitle(rs("num"), rs("relid"))

    36. 

  36. 			Case 12 Call wendtitle(rs("num"), rs("relid"))

    37. 

  37. 			Case 0 w "<a href=""?aid=class&amp;id="&rs("classid")&""">"&noubb(rs("class"))&"</a>"

    38. 

  38. 			Case 1 w "<a href=""?aid=list&amp;id="&rs("relid")&""">"&noubb(rs("class"))&"</a>"

    39. 

  39. 			Case 19 w "<input emptyok=""true"" name=""keyword"" value="""" title=""请输入关键词""/><br/>"&_

    40. 

  40. 				"搜<anchor>文章<go href=""search.asp"" method=""post""><postfield name=""keyword"" value=""$(keyword)""/>"&_

    41. 

  41. 				"<postfield name=""sear"" value=""0""/></go></anchor>"&_

    42. 

  42. 				"搜<anchor>网页<go href=""http://u.yicha.cn/union/x.jsp"" method=""post""><postfield name=""keyword"" value=""$(keyword)""/>"&_

    43. 

  43. 				"<postfield name=""site"" value=""2145930044""/><postfield name=""p"" value=""p""/></go></anchor>"

    44. 

  44. 			End Select

    45. 

  45. 			If rs("br") = "1" Then w "<br/>"

    46. 

  46. 			rs.MoveNext

    47. 

  47. 			j = j + 1

    48. 

  48. 		Loop

    49. 

  49. 	end If

    50. 

  50. 	rs.close

    51. 

  51. 	Set rs = nothing

    52. 

  52. 	If waplink = 1 Then

    53. 

  53. 		Dim Rslc,aaa

    54. 

  54. 		Set Rslc = Server.CreateObject("ADODB.Recordset")

    55. 

  55. 		Sqlink = "select ID,namt from 74hu_link Where active =0 order by HU_time desc"

    56. 

  56. 		Rslc.open Sqlink, conn, 1, 1

    57. 

  57. 		If Rslc.EOF Then w "暂无首链！<br/>"

    58. 

  58. 		aaa = 1

    59. 

  59. 		Do While ((Not Rslc.EOF) And aaa <= 8)

    60. 

  60. 			w "<a href=""?aid=link&amp;id=" & Rslc("id") & "&amp;act=view"">" & noubb(Rslc("NAMT")) & "</a> "

    61. 

  61. 			If aaa Mod 4 = 0 And aaa <> Rslc.RecordCount Then w "<br/>"

    62. 

  62. 			Rslc.MoveNext

    63. 

  63. 			aaa = aaa + 1

    64. 

  64. 		Loop

    65. 

  65. 		Rslc.Close

    66. 

  66. 		Set Rslc = Nothing

    67. 

  67. 	End If

    68. 

  68. End Sub

    69. 

  69. 'Wap2.0首页

    70. 

  70. Sub showsIndex()

    71. 

  71. 	w "<title>"&waptitle&"</title></head><body><div class=""main"">"

    72. 

  72. 	if wapfavor="1" then w getfavor&"<br/>"

    73. 

  73. 	if len(countdown) > 7 then w "<font color=""red"">"&getDiff(countdown,countname)&"</font><br/>"

    74. 

  74. 	If Len(waplogo) > 7 Then w "<img src='"&waplogo&"' alt='"&waptitle&"'/><br/>"

    75. 

  75. 	if wapgonggao="1" then w "<a href='?aid=gonggao'><img src='images/msg.gif' alt='.'/>网站发布最新公告!</a><br/>"

    76. 

  76. 	Dim rs,j

    77. 

  77. 	Set rs = Server.CreateObject("adodb.recordset")

    78. 

  78. 	rs.open "select lx,class,wmltxt,relid,br,num,classid from 74hu_class where parent=0 order by pid asc", conn, 1, 1

    79. 

  79. 	If rs.eOF Then

    80. 

  80. 	w "网站建设中..<br/>"

    81. 

  81. 	else

    82. 

  82. 	rs.Move (0)

    83. 

  83. 	j = 1

    84. 

  84. 	Do While Not rs.eOF

    85. 

  85. 		Select Case rs("lx")

    86. 

  86. 		Case 2 w ubbcode(rs("wmltxt"))

    87. 

  87. 		Case 9 w rs("wmltxt")

    88. 

  88. 		Case 8 Call adstr(1)

    89. 

  89. 		Case 10 Call newtitle(rs("num"), rs("relid"))

    90. 

  90. 		Case 11 Call hottitle(rs("num"), rs("relid"))

    91. 

  91. 		Case 12 Call wendtitle(rs("num"), rs("relid"))

    92. 

  92. 		Case 0 w "<a href=""?aid=class&amp;id="&rs("classid")&""">"&noubb(rs("class"))&"</a>"

    93. 

  93. 		Case 1 w "<a href=""?aid=list&amp;id="&rs("relid")&""">"&noubb(rs("class"))&"</a>"

    94. 

  94. 		Case 19 w "<form id=""sch"" method=""post"" action=""search.asp""><input emptyok=""true"" name=""keyword"" value="""" title=""请输入关键词""/><br/>"&_

    95. 

  95. 			"<input type=""submit"" value=""搜文章""/>&nbsp;<a href=""search.asp"">更多搜索</a></form>"

    96. 

  96. 		End Select

    97. 

  97. 	If rs("br") = "1" Then w "<br/>"

    98. 

  98. 	rs.MoveNext

    99. 

  99. 	j = j + 1

    100. 

  100. 	Loop

    101. 

  101. 	end If

    102. 

  102. 	rs.close

    103. 

  103. 	Set rs = nothing

    104. 

  104. 	If waplink = 1 Then

    105. 

  105. 	Dim Rslc,aaa

    106. 

  106. 	Set Rslc = Server.CreateObject("ADODB.Recordset")

    107. 

  107. 	Sqlink = "select ID,namt from 74hu_link Where active =0 order by HU_time desc"

    108. 

  108. 	Rslc.open Sqlink, conn, 1, 1

    109. 

  109. 	If Rslc.EOF Then w "暂无首链！<br/>"

    110. 

  110. 	aaa = 1

    111. 

  111. 	Do While ((Not Rslc.EOF) And aaa <= 8)

    112. 

  112. 	w "<a href=""?aid=link&amp;id=" & Rslc("id") & "&amp;act=view"">" & noubb(Rslc("NAMT")) & "</a>&nbsp;"

    113. 

  113. 	If aaa Mod 4 = 0 And aaa <> Rslc.RecordCount Then w "<br/>"

    114. 

  114. 	Rslc.MoveNext

    115. 

  115. 	aaa = aaa + 1

    116. 

  116. 	Loop

    117. 

  117. 	Rslc.Close

    118. 

  118. 	Set Rslc = Nothing

    119. 

  119. 	End If

    120. 

  120. End Sub

    121. 

  121. 'Wap1.0文章页

    122. 

  122. Sub showArticle()

    123. 

  123. 	Dim p,rs,sql

    124. 

  124. 	p=getN("p",1)

    125. 

  125. 	Set rs = Server.CreateObject("ADODB.Recordset")

    126. 

  126. 	sql="Select title,test,hit,smspin,classid,HU_author,HU_date from 74hu_article where id="&id

    127. 

  127. 	rs.open sql,conn,1,3

    128. 

  128. 	if rs.eof then

    129. 

  129. 	rs.close

    130. 

  130. 	set rs=Nothing

    131. 

  131. 	r "?aid=index"

    132. 

  132. 	end if

    133. 

  133. 	Dim ids,rss

    134. 

  134. 	ids=rs("classid")

    135. 

  135. 	Set rss = Server.CreateObject("ADODB.Recordset")

    136. 

  136. 	sql="Select class from 74hu_list where classid="&ids

    137. 

  137. 	rss.open sql,conn,3,1 

    138. 

  138. 	if rss.eof then

    139. 

  139. 	rss.close

    140. 

  140. 	set rss=Nothing

    141. 

  141. 	r "?aid=index"

    142. 

  142. 	end if

    143. 

  143. 	rs("hit")=rs("hit")+1

    144. 

  144. 	rs.update()

    145. 

  145. 	w "<card title='"&noubb(rs("title"))&"-"&rss("class")&"'><p>"

    146. 

  146. 	if wapgonggao="1" then w "<a href='?aid=gonggao'><img src='images/msg.gif' alt='.'/>网站发布最新公告!</a><br/>"

    147. 

  147. 	w "-<a href='?aid=index'>首页</a>-<a href='?aid=list&amp;id="&ids&"&amp;page="&p&"'>"&rss("class")&"</a>-正文<br/>"

    148. 

  148. 	Dim Counts,Content,pageWordNum,StartWord,Length,PageAll,page,i,ccc,sss

    149. 

  149. 	Counts=rs("smspin")

    150. 

  150. 	w ""&noubb(rs("title"))&"<br/>-----------<br/>"

    151. 

  151. 	if adsetkf("ads1")=1 then

    152. 

  152. 	call adstr(1)

    153. 

  153. 	w "<br/>"

    154. 

  154. 	end if

    155. 

  155. 	w "内容来源:"&rs("HU_author")&"<br/>["&fordate(rs("HU_date"))&"]<br/>"

    156. 

  156. 	Content=rs("test")

    157. 

  157. 	pageWordNum=viewtnums

    158. 

  158. 	StartWord = 1

    159. 

  159. 	Length=len(Content)

    160. 

  160. 	PageAll=(Length+PageWordNum-1)\PageWordNum

    161. 

  161. 	page=getN("page",1)

    162. 

  162. 	if page<1 then page=1

    163. 

  163. 	i=int(page-1)

    164. 

  164. 	if page>PageAll then page=PageAll

    165. 

  165. 	if isnull(i) or IsNumeric(i)=False then i=0

    166. 

  166. 	ccc=instr(content,"||")

    167. 

  167. 	if ccc>0 then

    168. 

  168. 	sss=split(content,"||")

    169. 

  169. 	PageAll=ubound(sss)+1

    170. 

  170. 	if i>PageAll-1 then i=PageAll-1

    171. 

  171. 	content = sss(i)

    172. 

  172. 	else

    173. 

  173. 	if clng(i)>int(PageAll) then i=PageAll-1

    174. 

  174. 	Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)

    175. 

  175. 	end if

    176. 

  176. 	w  ubbcode(content)

    177. 

  177. 	if 0<=i<PageAll then w "<br/>"

    178. 

  178. 	if cint(i)<cint(PageAll)-1 then w "<a href='?aid=art&amp;id=" & id & "&amp;page=" & i+2 & "&amp;p=" & p & "'>下页</a>"&"&nbsp;" 

    179. 

  179. 	if cint(i)>0 then w "<a href='?aid=art&amp;id=" & id & "&amp;page=" & i & "&amp;p=" & p & "'>上页</a>"

    180. 

  180. 	if PageAll>1 then w "(" & i+1 & "/" & PageAll & ")"&_

    181. 

  181. 		"<br/>第<input name=""i"" type=""text"" format=""*N"" emptyok=""true"" size=""2"" value="""" maxlength=""2""/>页"&_

    182. 

  182. 		"<anchor>跳转<go href=""?aid=art&amp;id="&id&"&amp;p="&p&""" accept-charset=""utf-8"">"&_

    183. 

  183. 		"<postfield name=""page"" value=""$(i)""/></go></anchor><br/>"

    184. 

  184. 	w "-----------<br/>※快速评论：<br/>"&_

    185. 

  185. 		"<input type=""text"" name=""pl"&Time_r&""" title=""输入内容"" value="""" maxlength=""200""/><br/>"&_

    186. 

  186. 		"<anchor title=""确定"">提交<go method=""get"" href=""?aid=diss&amp;id="&id&"&amp;p="&p&""">"&_

    187. 

  187. 		"<postfield name=""pl"" value=""$(pl"&Time_r&")""/>"&_

    188. 

  188. 		"</go></anchor>"&_

    189. 

  189. 		"<a href=""?aid=dis&amp;id="&id&"&amp;p="&p&""">网友评论("&Counts&")条</a><br/>"

    190. 

  190. 	Dim rs1,sql2,rs2

    191. 

  191. 	set rs1=server.createobject("adodb.recordset")

    192. 

  192. 	sql2="select top 1 id,test,title from 74hu_article where classid="&ids&" and id<"&id&" order by id desc"

    193. 

  193. 	rs1.open sql2,conn,3,1

    194. 

  194. 	if rs1.recordcount>0 then

    195. 

  195. 	w "<a href=""?aid=art&amp;id="&rs1("id")&"&amp;p="&p&""">&gt;&gt;"&noubb(rs1("title"))&"</a><br/>"

    196. 

  196. 	end if

    197. 

  197. 	rs1.close

    198. 

  198. 	set rs1=nothing

    199. 

  199. 	set rs2=server.createobject("adodb.recordset")

    200. 

  200. 	sql2="select top 1 id,test,title from 74hu_article where classid="&ids&" and id>"&id&" order by id asc"

    201. 

  201. 	rs2.open sql2,conn,3,1

    202. 

  202. 	if rs2.recordcount>0 then

    203. 

  203. 	w "<a href=""?aid=art&amp;id="&rs2("id")&"&amp;p="&p&""">&lt;&lt;"&noubb(rs2("title"))&"</a><br/>"

    204. 

  204. 	end if

    205. 

  205. 	w "[相关内容]<br/>"

    206. 

  206. 	call wendtitle(3,ids)

    207. 

  207. 	if adsetkf("ads2")=1 then

    208. 

  208. 	call adstr(2)

    209. 

  209. 	w "<br/>"

    210. 

  210. 	end if

    211. 

  211. 	rs.close

    212. 

  212. 	set rs=nothing

    213. 

  213. 	rss.close

    214. 

  214. 	set rss=nothing

    215. 

  215. 	rs2.close

    216. 

  216. 	set rs2=nothing

    217. 

  217. End Sub

    218. 

  218. 'Wap2.0文章页

    219. 

  219. Sub showsArticle()

    220. 

  220. 	Dim p,rs,sql

    221. 

  221. 	p=getN("p",1)

    222. 

  222. 	Set rs = Server.CreateObject("ADODB.Recordset")

    223. 

  223. 	sql="Select title,test,hit,smspin,classid,HU_author,HU_date from 74hu_article where id="&id

    224. 

  224. 	rs.open sql,conn,1,3

    225. 

  225. 	if rs.eof then

    226. 

  226. 	rs.close

    227. 

  227. 	set rs=Nothing

    228. 

  228. 	r "?aid=index"

    229. 

  229. 	end if

    230. 

  230. 	Dim ids,rss

    231. 

  231. 	ids=rs("classid")

    232. 

  232. 	Set rss = Server.CreateObject("ADODB.Recordset")

    233. 

  233. 	sql="Select class from 74hu_list where classid="&ids

    234. 

  234. 	rss.open sql,conn,3,1 

    235. 

  235. 	if rss.eof then

    236. 

  236. 	rss.close

    237. 

  237. 	set rss=Nothing

    238. 

  238. 	r "?aid=index"

    239. 

  239. 	end if

    240. 

  240. 	rs("hit")=rs("hit")+1

    241. 

  241. 	rs.update()

    242. 

  242. 	w "<title>"&noubb(rs("title"))&"-"&rss("class")&"</title></head><body><div class=""main"">"

    243. 

  243. 	if wapgonggao="1" then w "<a href='?aid=gonggao'><img src='images/msg.gif' alt='.'/>网站发布最新公告!</a><br/>"

    244. 

  244. 	w "<div class=""nav"">-<a href='?aid=index'>首页</a>-<a href='?aid=list&amp;id="&ids&"&amp;page="&p&"'>"&rss("class")&"</a>-正文</div>"

    245. 

  245. 	Dim Counts,Content,pageWordNum,StartWord,Length,PageAll,page,i,ccc,sss

    246. 

  246. 	Counts=rs("smspin")

    247. 

  247. 	w "<div class=""tle"">"&noubb(rs("title"))&"</div>-----------<br/>"

    248. 

  248. 	if adsetkf("ads1")=1 then

    249. 

  249. 	call adstr(1)

    250. 

  250. 	w "<br/>"

    251. 

  251. 	end if

    252. 

  252. 	w "内容来源:"&rs("HU_author")&"<br/>["&rs("HU_date")&"]<br/>"

    253. 

  253. 	Content=rs("test")

    254. 

  254. 	pageWordNum=viewtnums

    255. 

  255. 	StartWord = 1

    256. 

  256. 	Length=len(Content)

    257. 

  257. 	PageAll=(Length+PageWordNum-1)\PageWordNum

    258. 

  258. 	page=getN("page",1)

    259. 

  259. 	if page<1 then page=1

    260. 

  260. 	i=int(page-1)

    261. 

  261. 	if page>PageAll then page=PageAll

    262. 

  262. 	if isnull(i) or IsNumeric(i)=False then i=0

    263. 

  263. 	ccc=instr(content,"||")

    264. 

  264. 	if ccc>0 then

    265. 

  265. 	sss=split(content,"||")

    266. 

  266. 	PageAll=ubound(sss)+1

    267. 

  267. 	if i>PageAll-1 then i=PageAll-1

    268. 

  268. 	content = sss(i)

    269. 

  269. 	else

    270. 

  270. 	if clng(i)>int(PageAll) then i=PageAll-1

    271. 

  271. 	Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)

    272. 

  272. 	end if

    273. 

  273. 	w ubbcode(content)

    274. 

  274. 	if 0<=i<PageAll then w "<br/>"

    275. 

  275. 	if cint(i)<cint(PageAll)-1 then w "<a href='?aid=art&amp;id=" & id & "&amp;page=" & i+2 & "&amp;p=" & p & "'>下页</a>"&"&nbsp;" 

    276. 

  276. 	if cint(i)>0 then w "<a href='?aid=art&amp;id=" & id & "&amp;page=" & i & "&amp;p=" & p & "'>上页</a>"

    277. 

  277. 	if PageAll>1 then w "(" & i+1 & "/" & PageAll & ")" &"<br/>"&turnpage2("art","<input type=""hidden"" name=""id"" value="""&id&"""/><input type=""hidden"" name=""p"" value="""&p&"""/>")

    278. 

  278. 	w "<div class=""nav"">※快速评论：</div><form name=""f"&Time_r&""" action=""?"" method=""get""><input type=""text"" name=""pl"" value="""" maxlength=""200""/>"&_

    279. 

  279. 	  "<input type=""hidden"" name=""aid"" value=""diss""/><input type=""hidden"" name=""id"" value="""&id&"""/><input type=""hidden"" name=""p"" value="""&p&"""/>"&_

    280. 

  280. 	  "<br/><input type=""submit"" value=""提交""/></form><a href=""?aid=dis&amp;id="&id&"&amp;p="&p&""">网友评论("&Counts&")条</a><br/>"

    281. 

  281. 	Dim rs1,rs2

    282. 

  282. 	set rs1=server.createobject("adodb.recordset")

    283. 

  283. 	sql="select top 1 id,test,title from 74hu_article where classid="&ids&" and id<"&id&" order by id desc"

    284. 

  284. 	rs1.open sql,conn,3,1

    285. 

  285. 	if rs1.recordcount>0 then

    286. 

  286. 	w "<a href=""?aid=art&amp;id="&rs1("id")&"&amp;p="&p&""">&gt;&gt;"&noubb(rs1("title"))&"</a><br/>"

    287. 

  287. 	end if

    288. 

  288. 	rs1.close

    289. 

  289. 	set rs1=nothing

    290. 

  290. 	set rs2=server.createobject("adodb.recordset")

    291. 

  291. 	sql="select top 1 id,test,title from 74hu_article where classid="&ids&" and id>"&id&" order by id asc"

    292. 

  292. 	rs2.open sql,conn,3,1

    293. 

  293. 	if rs2.recordcount>0 then

    294. 

  294. 	w "<a href=""?aid=art&amp;id="&rs2("id")&"&amp;p="&p&""">&lt;&lt;"&noubb(rs2("title"))&"</a><br/>"

    295. 

  295. 	end if

    296. 

  296. 	w "<div class=""nav"">[相关内容]</div>"

    297. 

  297. 	call wendtitle(3,ids)

    298. 

  298. 	if adsetkf("ads2")=1 then

    299. 

  299. 	call adstr(2)

    300. 

  300. 	w "<br/>"

    301. 

  301. 	end if

    302. 

  302. 	rs.close

    303. 

  303. 	set rs=nothing

    304. 

  304. 	rss.close

    305. 

  305. 	set rss=nothing

    306. 

  306. 	rs2.close

    307. 

  307. 	set rs2=nothing

    308. 

  308. End Sub

    309. 

  309. 'Wap1.0 新页面页

    310. 

  310. Sub showClass()

    311. 

  311. 	Dim rs1,sql1

    312. 

  312. 	Set rs1 = Server.CreateObject("ADODB.Recordset")

    313. 

  313. 	sql1="Select class from 74hu_class where classid="&id

    314. 

  314. 	rs1.open sql1,conn,1,1 

    315. 

  315. 	if rs1.eof then r "?aid=index"

    316. 

  316. 	Dim classname,rs,j

    317. 

  317. 	classname=rs1("class")

    318. 

  318. 	rs1.close

    319. 

  319. 	set rs1=nothing

    320. 

  320. 	w "<card title='"&classname&"-"&waptitle&"'><p>"

    321. 

  321. 	set rs = server.createobject("adodb.recordset")

    322. 

  322. 	rs.open"select lx,class,classid,wmltxt,num,relid,br from 74hu_class where parent="&id&" order by pid asc",conn,1,1

    323. 

  323. 	if rs.eof then 

    324. 

  324. 	w "栏目建设中..<br/>"

    325. 

  325. 	else

    326. 

  326. 	rs.Move(0)

    327. 

  327. 	j=1

    328. 

  328. 	do while not rs.EOF 

    329. 

  329. 	Select Case rs("lx")

    330. 

  330. 	Case 2 w ubbcode(rs("wmltxt"))

    331. 

  331. 	Case 9 w rs("wmltxt")

    332. 

  332. 	Case 8 Call adstr(1)

    333. 

  333. 	Case 10 Call newtitle(rs("num"), rs("relid"))

    334. 

  334. 	Case 11 Call hottitle(rs("num"), rs("relid"))

    335. 

  335. 	Case 12 Call wendtitle(rs("num"), rs("relid"))

    336. 

  336. 	Case 0 w "<a href=""?aid=class&amp;id="&rs("classid")&""">"&noubb(rs("class"))&"</a>"

    337. 

  337. 	Case 1 w "<a href=""?aid=list&amp;id="&rs("relid")&""">"&noubb(rs("class"))&"</a>"

    338. 

  338. 	Case 19 w "<input emptyok=""true"" name=""keyword"" value="""" title=""请输入关键词""/><br/>"&_

    339. 

  339. 			"搜<anchor>文章<go href=""search.asp"" method=""post""><postfield name=""keyword"" value=""$(keyword)""/>"&_

    340. 

  340. 			"<postfield name=""sear"" value=""0""/></go></anchor>"&_

    341. 

  341. 			"搜<anchor>网页<go href=""http://u.yicha.cn/union/x.jsp"" method=""post""><postfield name=""keyword"" value=""$(keyword)""/>"&_

    342. 

  342. 			"<postfield name=""site"" value=""2145930044""/><postfield name=""p"" value=""p""/></go></anchor>"

    343. 

  343. 	End Select

    344. 

  344. 	if rs("br")="1" then w "<br/>"

    345. 

  345. 	rs.MoveNext

    346. 

  346. 	j=j+1

    347. 

  347. 	loop

    348. 

  348. 	end if

    349. 

  349. 	rs.close

    350. 

  350. 	set rs=nothing

    351. 

  351. 	w "-----------<br/>"

    352. 

  352. 	if adsetkf("ads3")=1 then call adstrs(3,2)

    353. 

  353. End Sub

    354. 

  354. 'Wap2.0 新页面页

    355. 

  355. Sub showsClass()

    356. 

  356. 	Dim rs1,sql1

    357. 

  357. 	Set rs1 = Server.CreateObject("ADODB.Recordset")

    358. 

  358. 	sql1="Select class from 74hu_class where classid="&id

    359. 

  359. 	rs1.open sql1,conn,1,1 

    360. 

  360. 	if rs1.eof then

    361. 

  361. 	r "?aid=index"

    362. 

  362. 	end if

    363. 

  363. 	Dim classname,rs,j

    364. 

  364. 	classname=rs1("class")

    365. 

  365. 	rs1.close

    366. 

  366. 	set rs1=nothing

    367. 

  367. 	w "<title>"&classname&"-"&waptitle&"</title></head><body><div class=""main"">"

    368. 

  368. 	set rs = server.createobject("adodb.recordset")

    369. 

  369. 	rs.open"select lx,class,classid,wmltxt,num,relid,br from 74hu_class where parent="&id&" order by pid asc",conn,1,1

    370. 

  370. 	if rs.eof then 

    371. 

  371. 	w "栏目建设中..<br/>"

    372. 

  372. 	else

    373. 

  373. 	rs.Move(0)

    374. 

  374. 	j=1

    375. 

  375. 	do while not rs.EOF 

    376. 

  376. 	Select Case rs("lx")

    377. 

  377. 	Case 2 w ubbcode(rs("wmltxt"))

    378. 

  378. 	Case 9 w rs("wmltxt")

    379. 

  379. 	Case 8 Call adstr(1)

    380. 

  380. 	Case 10 Call newtitle(rs("num"), rs("relid"))

    381. 

  381. 	Case 11 Call hottitle(rs("num"), rs("relid"))

    382. 

  382. 	Case 12 Call wendtitle(rs("num"), rs("relid"))

    383. 

  383. 	Case 0 w "<a href=""?aid=class&amp;id="&rs("classid")&""">"&noubb(rs("class"))&"</a>"

    384. 

  384. 	Case 1 w "<a href=""?aid=list&amp;id="&rs("relid")&""">"&noubb(rs("class"))&"</a>"

    385. 

  385. 	Case 19 w "<form id=""sch"" method=""post"" action=""search.asp""><input emptyok=""true"" name=""keyword"" value="""" title=""请输入关键词""/><br/>"&_

    386. 

  386. 		"<input type=""submit"" value=""搜文章""/>&nbsp;<a href=""search.asp"">更多搜索</a></form>"

    387. 

  387. 	End Select

    388. 

  388. 	if rs("br")="1" then w"<br/>"

    389. 

  389. 	rs.MoveNext

    390. 

  390. 	j=j+1

    391. 

  391. 	loop

    392. 

  392. 	end if

    393. 

  393. 	rs.close

    394. 

  394. 	set rs=nothing

    395. 

  395. 	w "-----------<br/>"

    396. 

  396. 	if adsetkf("ads3")=1 then call adstrs(3,2)

    397. 

  397. End Sub

    398. 

  398. ' Wap1.0评论页

    399. 

  399. Sub showDiscuss()

    400. 

  400. 	Dim p,rs

    401. 

  401. 	p=getN("p",1)

    402. 

  402. 	w "<card title=""网友跟贴""><p>-<a href=""?aid=index"">首页</a>-<a href=""?aid=art&amp;id="&id&"&amp;p="&p&""">查看原文</a>-跟贴"&_

    403. 

  403. 		"<br/>发表评论：<br/>"&_

    404. 

  404. 		"<input type=""text"" name=""pl"&Timer_r&""" title=""输入内容"" value="""" maxlength=""200""/><br/>"&_

    405. 

  405. 		"<anchor title=""确定"">提交"&_

    406. 

  406. 		"<go method=""get"" href=""?aid=diss&amp;id="&id&"&amp;p="&p&""">"&_

    407. 

  407. 		"<postfield name=""pl"" value=""$(pl"&Time_r&")""/>"&_

    408. 

  408. 		"</go></anchor><br/>【网友评论区】<br/>"

    409. 

  409. 	set rs=Server.CreateObject("ADODB.Recordset")

    410. 

  410. 	rs.open"select id,pl,pltime,ag,da from 74hu_pl where smsid="&id&" order by id desc",conn,3,1

    411. 

  411. 	If Not rs.eof Then

    412. 

  412. 	Dim PageSize,gopage,Count,page,pagecount,i

    413. 

  413. 	PageSize=8

    414. 

  414. 	gopage="?aid=dis&amp;id="&id&"&amp;p="&p&"&amp;"

    415. 

  415. 	Count=conn.execute("Select count(ID) from 74hu_pl where smsid="&id&"")(0)	

    416. 

  416. 	page=getN("page",1)

    417. 

  417. 	page=int(page)

    418. 

  418. 	if page<=0 then page=1

    419. 

  419. 	pagecount=(count+pagesize-1)\pagesize

    420. 

  420. 	if page>pagecount Then page=pagecount

    421. 

  421. 	rs.move(pagesize*(page-1))

    422. 

  422. 	For i=1 To PageSize

    423. 

  423. 	If rs.eof Then Exit For	

    424. 

  424. 	w fordate2(rs("pltime"))&"发表<br/>　　"   

    425. 

  425. 	w noubb(rs("pl"))&"<br/>-----------<br/>"

    426. 

  426. 	rs.moveNext

    427. 

  427. 	Next

    428. 

  428. 	if page>1 then w "<a href="""&gopage&"page=1"">首页</a>&nbsp;"

    429. 

  429. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&page+1&""">下页</a>&nbsp;"

    430. 

  430. 	if page>1 then w "<a href="""&gopage&"page="&page-1&""">上页</a>&nbsp;"

    431. 

  431. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&pagecount&""">末页</a>"

    432. 

  432. 	if pagecount>1 then w "<br/>第"&page&"页 共"&pagecount&"页<br/>第<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/>页 <a href="""&gopage&"page=$(page)"">跳转</a><br/>"

    433. 

  433. 	Else

    434. 

  434. 	w "暂时没有评论！<br/> "

    435. 

  435. 	end if

    436. 

  436. 	rs.close

    437. 

  437. 	set rs=nothing

    438. 

  438. 	w "<a href='?aid=art&amp;id="&id&"&amp;p="&p&">'>返回原文</a> <a href='?aid=list&amp;p="&p&">'>返回上级栏目</a><br/>"

    439. 

  439. End Sub

    440. 

  440. ' Wap2.0评论页

    441. 

  441. Sub showsDiscuss()

    442. 

  442. 	Dim p,rs

    443. 

  443. 	p=getN("p",1)

    444. 

  444. 	w "<title>网友跟贴</title></head><body><div class=""main""><div class=""nav"">-<a href=""?aid=index"">首页</a>-<a href=""?aid=art&amp;id="&id&"&amp;p="&p&""">查看原文</a>-跟贴</div>"&_

    445. 

  445. 	  "发表评论：<br/><form name="""&Time_r&""" action=""?"" method=""get""><input type=""text"" name=""pl"" value="""" maxlength=""200""/>"&_

    446. 

  446. 	  "<input type=""hidden"" name=""aid"" value=""diss""/><input type=""hidden"" name=""id"" value="""&id&"""/><input type=""hidden"" name=""p"" value="""&p&"""/>"&_

    447. 

  447. 	  "<br/><input type=""submit"" value=""提交""/></form><div class=""nav"">【网友评论区】</div>"

    448. 

  448. 	set rs=Server.CreateObject("ADODB.Recordset")

    449. 

  449. 	rs.open"select id,pl,pltime,ag,da from 74hu_pl where smsid="&id&" order by id desc",conn,3,1

    450. 

  450. 	If Not rs.eof Then

    451. 

  451. 	Dim PageSize,gopage,Count,page,i,pagecount

    452. 

  452. 	PageSize=8

    453. 

  453. 	gopage="?aid=dis&amp;id="&id&"&amp;p="&p&"&amp;"

    454. 

  454. 	Count=conn.execute("Select count(ID) from 74hu_pl where smsid="&id&"")(0)

    455. 

  455. 	page=getN("page",1)

    456. 

  456. 	page=int(page)

    457. 

  457. 	if page<=0 then page=1

    458. 

  458. 	pagecount=(count+pagesize-1)\pagesize

    459. 

  459. 	if page>pagecount Then page=pagecount

    460. 

  460. 	rs.move(pagesize*(page-1))

    461. 

  461. 	For i=1 To PageSize

    462. 

  462. 	If rs.eof Then Exit For	

    463. 

  463. 	w fordate2(rs("pltime"))&"发表<br/>　　"   

    464. 

  464. 	w noubb(rs("pl"))&"<br/>-----------<br/>"

    465. 

  465. 	rs.moveNext

    466. 

  466. 	Next

    467. 

  467. 	if page>1 then w "<a href="""&gopage&"page=1"">首页</a>&nbsp;"

    468. 

  468. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&page+1&""">下页</a>&nbsp;"

    469. 

  469. 	if page>1 then w "<a href="""&gopage&"page="&page-1&""">上页</a>&nbsp;"

    470. 

  470. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&pagecount&""">末页</a>"

    471. 

  471. 	if pagecount>1 then w "<br/>第"&page&"页 共"&pagecount&"页<br/>"&turnpage2("dis","<input name=""p"" type=""hidden"" value="""&p&"""/><input name=""id"" type=""hidden"" value="""&id&"""/>")&"<br/>"

    472. 

  472. 	Else

    473. 

  473. 	w "暂时没有评论！<br/> "

    474. 

  474. 	end if

    475. 

  475. 	rs.close

    476. 

  476. 	set rs=nothing

    477. 

  477. 	w "<a href='?aid=art&amp;id="&id&"&amp;p="&p&">'>返回原文</a> <a href='?aid=list&amp;p="&p&">'>返回上级栏目</a><br/>"

    478. 

  478. End Sub

    479. 

  479. ' Wap1.0 讨论页

    480. 

  480. Sub showComment()

    481. 

  481. 	Dim o,rs

    482. 

  482. 	w "<card title='发表评论'>"

    483. 

  483. 	o=getN("o",0)

    484. 

  484. 	if o=0 then

    485. 

  485. 	Dim pl,p

    486. 

  486. 	pl=getD("pl","")

    487. 

  487. 	p=getN("p",1)

    488. 

  488. 	if pl="" then wn "<p>评论内容不能为空！</p></card></wml>"

    489. 

  489. 	if len(pl)>100 Then wn"<p>评论内容最多100字！</p></card></wml>"

    490. 

  490. 	Dim Counts

    491. 

  491. 	set rs=Server.CreateObject("ADODB.Recordset")

    492. 

  492. 	rs.open"select * from 74hu_pl",conn,1,3

    493. 

  493. 	rs.addnew

    494. 

  494. 	rs("pl")=pl

    495. 

  495. 	rs("ip")=User_Ip

    496. 

  496. 	rs("smsid")=id

    497. 

  497. 	rs.update

    498. 

  498. 	'更新评论

    499. 

  499. 	Counts=conn.execute("Select count(ID) from 74hu_pl where smsid="&id&"")(0)

    500. 

  500. 	conn.execute("update 74hu_article Set smspin = "&Counts&" where ID="&id)

    501. 

  501. 	else

    502. 

  502. 	Dim ids

    503. 

  503. 	ids=getN("ids",1)

    504. 

  504. 	set rs=Server.CreateObject("ADODB.Recordset")

    505. 

  505. 	rs.open"select ag,da from 74hu_pl where id="&ids,conn,1,3

    506. 

  506. 	if o=1 then

    507. 

  507. 	rs("ag")=rs("ag")+1

    508. 

  508. 	else

    509. 

  509. 	rs("da")=rs("da")+1

    510. 

  510. 	end if

    511. 

  511. 	rs.update

    512. 

  512. 	end if

    513. 

  513. 	w "<onevent type='onenterforward'><go href='?aid=dis&amp;id="&id&"&amp;p="&p&"'/></onevent><p>评论发表成功！<br/>"

    514. 

  514. 	rs.close

    515. 

  515. 	Set rs=nothing

    516. 

  516. 	w "<a href='?aid=dis&amp;id="&id&"&amp;p="&p&"'>查看评论</a><br/><a href='?aid=art&amp;id="&id&"&amp;p="&p&">'>返回原文</a><br/>"

    517. 

  517. End Sub

    518. 

  518. ' Wap2.0讨论页

    519. 

  519. Sub showsComment()

    520. 

  520. 	w "<title>发表评论</title></head><body><div class=""main"">"

    521. 

  521. 	Dim o,rs

    522. 

  522. 	o=getN("o",0)

    523. 

  523. 	if o=0 then

    524. 

  524. 	Dim pl,p,Counts

    525. 

  525. 	pl=getD("pl","")

    526. 

  526. 	p=getN("p",1)

    527. 

  527. 	if pl="" then wn "评论内容不能为空！</div></body></html>"

    528. 

  528. 	if len(pl)>100 then wn "评论内容最多100字！</div></body></html>"

    529. 

  529. 	set rs=Server.CreateObject("ADODB.Recordset")

    530. 

  530. 	rs.open"select * from 74hu_pl",conn,1,3

    531. 

  531. 	rs.addnew

    532. 

  532. 	rs("pl")=pl

    533. 

  533. 	rs("ip")=User_Ip

    534. 

  534. 	rs("smsid")=id

    535. 

  535. 	rs.update

    536. 

  536. 	'更新评论

    537. 

  537. 	Counts=conn.execute("Select count(ID) from 74hu_pl where smsid="&id&"")(0)

    538. 

  538. 	conn.execute("update 74hu_article Set smspin = "&Counts&" where ID="&id)

    539. 

  539. 	else

    540. 

  540. 	Dim ids

    541. 

  541. 	ids=getN("ids",1)

    542. 

  542. 	set rs=Server.CreateObject("ADODB.Recordset")

    543. 

  543. 	rs.open"select ag,da from 74hu_pl where id="&ids,conn,1,3

    544. 

  544. 	if o=1 then

    545. 

  545. 	rs("ag")=rs("ag")+1

    546. 

  546. 	else

    547. 

  547. 	rs("da")=rs("da")+1

    548. 

  548. 	end if

    549. 

  549. 	rs.update

    550. 

  550. 	end if

    551. 

  551. 	w "评论发表成功！<br/>"

    552. 

  552. 	rs.close

    553. 

  553. 	Set rs=nothing

    554. 

  554. 	w "<a href='?aid=dis&amp;id="&id&"&amp;p="&p&"'>查看评论</a><br/><a href='?aid=art&amp;id="&id&"&amp;p="&p&"'>返回原文</a><br/>"

    555. 

  555. End Sub

    556. 

  556. ' Wap1.0留言页

    557. 

  557. Sub showGuest()

    558. 

  558. 	Dim p,act,rs

    559. 

  559. 	p=getN("p",1)

    560. 

  560. 	if p<1 then p=1

    561. 

  561. 	act=request.QueryString("act")

    562. 

  562. 	w "<card title=""客服留言"">"

    563. 

  563. 	if act="view" then

    564. 

  564. 	Dim rsn,rspr

    565. 

  565. 	set rs=Server.CreateObject("ADODB.Recordset")

    566. 

  566. 	rs.open"select * from 74hu_guest where ID=" & ID,conn,1,1

    567. 

  567. 	set rsn=Server.CreateObject("ADODB.Recordset")

    568. 

  568. 	rsn.open"select * from 74hu_guest where ID<"& ID &" order by id desc",conn,1,1

    569. 

  569. 	set rspr=Server.CreateObject("ADODB.Recordset")

    570. 

  570. 	rspr.open"select * from 74hu_guest where ID>"& ID &" order by id asc",conn,1,1

    571. 

  571. 	w "<p>-<a href='?aid=index'>首页</a>-<a href='?aid=guest'>客服</a>-查看留言<br/><br/>"

    572. 

  572. 	if rs.EOF then

    573. 

  573. 	w "无此留言！<br/>"

    574. 

  574. 	else

    575. 

  575. 	w "作者："&noubb(rs("name"))&"<br/>"&noubb(rs("text"))&"<br/>时间：" & fordate(rs("HU_time")) & "<br/>"

    576. 

  576. 	if rs("retext")<>"" then w "----------<br/>回复："&noubb(rs("retext"))&"<br/>时间："&fordate(rs("retime"))&"<br/>"

    577. 

  577. 	if rsn.recordcount>0 then w "<a href='?aid=guest&amp;act=view&amp;id=" & rsn("ID") & "&amp;p=" & p & "'>下条</a>&nbsp;"

    578. 

  578. 	if rspr.recordcount>0 then w "<a href='?aid=guest&amp;act=view&amp;id=" & rspr("ID") & "&amp;p=" & p & "'>上条</a>"

    579. 

  579. 	if rsn.recordcount>0 or rspr.recordcount>0 then w "<br/>"

    580. 

  580. 	rsn.close

    581. 

  581. 	set rsn=nothing

    582. 

  582. 	rspr.close

    583. 

  583. 	set rspr=nothing

    584. 

  584. 	end if

    585. 

  585. 	elseif act="add" then

    586. 

  586. 	Dim ss

    587. 

  587. 	randomize timer

    588. 

  588. 	ss=Int((9999)*Rnd +1000)

    589. 

  589. 	w "<p>-<a href='?aid=index'>首页</a>-<a href='?aid=guest'>客服</a>-发表留言<br/><br/>昵称：<br/>"&_

    590. 

  590. 		"<input name=""name"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""10""/><br/>"&_

    591. 

  591. 		"标题：<br/><input name=""title"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""20""/><br/>"&_

    592. 

  592. 		"内容：<br/><input name=""text"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""500""/><br/>"&_

    593. 

  593. 		"联系方式(不公开)：<br/><input name=""lianxi"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""50""/><br/>"&_

    594. 

  594. 		"验证码："&ss&"<br/><input name=""num"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""50""/><br/>"&_

    595. 

  595. 		"<anchor>[提交留言]<go href=""?aid=guest&amp;act=save"" method=""get"" accept-charset=""utf-8"">"&_

    596. 

  596. 		"<postfield name=""name"" value=""$(name)""/>"&_

    597. 

  597. 		"<postfield name=""title"" value=""$(title)""/>"&_

    598. 

  598. 		"<postfield name=""text"" value=""$(text)""/>"&_

    599. 

  599. 		"<postfield name=""lianxi"" value=""$(lianxi)""/>"&_

    600. 

  600. 		"<postfield name=""open"" value=""$(open)""/>"&_

    601. 

  601. 		"<postfield name=""num"" value=""$(num)""/>"&_

    602. 

  602. 		"<postfield name=""num1"" value="""&ss&"""/>"&_

    603. 

  603. 		"</go></anchor><br/>"

    604. 

  604. 	elseif act="save" then

    605. 

  605. 	Dim num,num1

    606. 

  606. 	num=request.QueryString("num")

    607. 

  607. 	num1=request.QueryString("num1")

    608. 

  608. 	if num<>num1 then wn "<p>验证码错误,请返回重试！</p></card></wml>"

    609. 

  609. 	Dim name,title,text,lianxi

    610. 

  610. 	name=getD("name","")

    611. 

  611. 	title=getD("title","")

    612. 

  612. 	text=getD("text","")

    613. 

  613. 	lianxi=getD("lianxi","")

    614. 

  614. 	if name="" or title="" or text="" then wn "<p>昵称或标题内容不能为空！</p></card></wml>"

    615. 

  615. 	w "<onevent type='onenterforward'><go href='?aid=guest'/></onevent><p>"

    616. 

  616. 	set rs=Server.CreateObject("ADODB.Recordset")

    617. 

  617. 	rs.open"select * from 74hu_guest",conn,1,2

    618. 

  618. 	rs.addnew

    619. 

  619. 	rs("name")=name

    620. 

  620. 	rs("title")=title

    621. 

  621. 	rs("text")=text

    622. 

  622. 	rs("HU_time")=now()

    623. 

  623. 	if lianxi<>"" then rs("lianxi")=lianxi

    624. 

  624. 	rs("agent")=User_Ip

    625. 

  625. 	rs.update

    626. 

  626. 	rs.close

    627. 

  627. 	set rs=Nothing

    628. 

  628. 	w "发表成功，正在返回！<br/>"

    629. 

  629. 	else

    630. 

  630. 	set rs=Server.CreateObject("ADODB.Recordset")

    631. 

  631. 	rs.open"select * from 74hu_guest order by id desc",conn,1,1

    632. 

  632. 	If Not rs.eof Then

    633. 

  633. 	Dim PageSize,gopage,Count,page,i,pagecount

    634. 

  634. 	PageSize=10

    635. 

  635. 	gopage="?aid=guest&amp;"

    636. 

  636. 	Count=rs.recordcount

    637. 

  637. 	page=getN("page",1)

    638. 

  638. 	page=int(page)

    639. 

  639. 	if page<=0 or page="" then page=1

    640. 

  640. 	pagecount=(count+pagesize-1)\pagesize

    641. 

  641. 	if page>pagecount then page=pagecount

    642. 

  642. 	rs.move(pagesize*(page-1))

    643. 

  643. 	w "<p>-<a href='?aid=index'>首页</a>-客服首页<br/><br/>共"&count&"条<a href=""?aid=guest&amp;act=add"">留言</a><br/>"

    644. 

  644. 	For i=1 To PageSize

    645. 

  645. 	If rs.eof Then Exit For

    646. 

  646. 	w "<a href='?aid=guest&amp;act=view&amp;id="&rs("ID")&"&amp;p="&p&"'>"&i+(page-1)*PageSize&"."&noubb(rs("title"))&_

    647. 

  647. 		"</a><br/>[网友:"&noubb(rs("name"))

    648. 

  648. 	if rs("retext")<>"" then 

    649. 

  649. 	w "/已回"

    650. 

  650. 	else

    651. 

  651. 	w "/未回"

    652. 

  652. 	end if

    653. 

  653. 	w "]<br/>"

    654. 

  654. 	rs.moveNext

    655. 

  655. 	Next

    656. 

  656. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&page+1&""">下页</a>&nbsp;"

    657. 

  657. 	if page>1 then w "<a href="""&gopage&"page="&page-1&""">上页</a>"

    658. 

  658. 	if pagecount>1 then w "<br/>"&page&"/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a>"

    659. 

  659. 	Else

    660. 

  660. 	w "<p>还没有留言！<br/>"

    661. 

  661. 	end if

    662. 

  662. 	rs.close

    663. 

  663. 	set rs=nothing

    664. 

  664. 	w "<br/><a href=""?aid=guest&amp;act=add"">我要发表留言</a><br/>"

    665. 

  665. 	end if

    666. 

  666. End Sub

    667. 

  667. ' Wap2.0留言页

    668. 

  668. Sub showsGuest()

    669. 

  669. 	Dim p,act,rs

    670. 

  670. 	p=getN("p",1)

    671. 

  671. 	if p<1 then p=1

    672. 

  672. 	act=request.QueryString("act")

    673. 

  673. 	w "<title>客服留言</title></head><body><div class=""main"">"

    674. 

  674. 	if act="view" then

    675. 

  675. 	Dim rsn,rspr

    676. 

  676. 	set rs=Server.CreateObject("ADODB.Recordset")

    677. 

  677. 	rs.open"select * from 74hu_guest where ID=" & ID,conn,1,1

    678. 

  678. 	set rsn=Server.CreateObject("ADODB.Recordset")

    679. 

  679. 	rsn.open"select * from 74hu_guest where ID<"& ID &" order by id desc",conn,1,1

    680. 

  680. 	set rspr=Server.CreateObject("ADODB.Recordset")

    681. 

  681. 	rspr.open"select * from 74hu_guest where ID>"& ID &" order by id asc",conn,1,1

    682. 

  682. 	w "<div class=""nav"">-<a href='?aid=index'>首页</a>-<a href='?aid=guest'>客服</a>-查看留言</div><br/>"

    683. 

  683. 	if rs.EOF then

    684. 

  684. 	w "无此留言！<br/>"

    685. 

  685. 	else

    686. 

  686. 	w "作者："&noubb(rs("name"))&"<br/>"&noubb(rs("text")) & "<br/>时间：" & fordate(rs("HU_time")) & "<br/>"

    687. 

  687. 	if rs("retext")<>"" then w "----------<br/>回复："&noubb(rs("retext"))&"<br/>时间："&fordate(rs("retime"))&"<br/>"

    688. 

  688. 	if rsn.recordcount>0 then w "<a href='?aid=guest&amp;act=view&amp;id=" & rsn("ID") & "&amp;p=" & p & "'>下条</a>&nbsp;"

    689. 

  689. 	if rspr.recordcount>0 then w "<a href='?aid=guest&amp;act=view&amp;id=" & rspr("ID") & "&amp;p=" & p & "'>上条</a>"

    690. 

  690. 	if rsn.recordcount>0 or rspr.recordcount>0 then w "<br/>"

    691. 

  691. 	rsn.close

    692. 

  692. 	set rsn=nothing

    693. 

  693. 	rspr.close

    694. 

  694. 	set rspr=nothing

    695. 

  695. 	end if

    696. 

  696. 	elseif act="add" then

    697. 

  697. 	Dim ss

    698. 

  698. 	randomize timer

    699. 

  699. 	ss=Int((9999)*Rnd +1000)

    700. 

  700. 	w "<div class=""nav"">-<a href='?aid=index'>首页</a>-<a href='?aid=guest'>客服</a>-发表留言</div><br/>昵称：<br/>"&_

    701. 

  701. 	 "<form name=""f"&Time_r&""" action=""?"" method=""get""><input name=""name"" type=""text"" /><br/>标题：<br/>"&_

    702. 

  702. 	 "<input name=""title"" type=""text""/><br/>内容：<br/><input name=""text"" type=""text"" /><br/>联系方式(不公开)：<br/>"&_

    703. 

  703. 	 "<input name=""lianxi"" type=""text""/><br/>验证码："&ss&"<br/><input name=""num"" type=""text""/>"&_

    704. 

  704. 	 "<input name=""aid"" type=""hidden"" value=""guest""/><input name=""act"" type=""hidden"" value=""save""/>"&_

    705. 

  705. 	 "<input name=""num1"" type=""hidden"" value="""&ss&"""/><br/><input type=""submit"" value=""提交留言""/></form>"

    706. 

  706. 	elseif act="save" then

    707. 

  707. 	Dim num,num1

    708. 

  708. 	num=request.QueryString("num")

    709. 

  709. 	num1=request.QueryString("num1")

    710. 

  710. 	if num<>num1 then wn "验证码错误,请返回重试！</div></body></html>"

    711. 

  711. 	Dim name,title,text,lianxi

    712. 

  712. 	name=getD("name","")

    713. 

  713. 	title=getD("title","")

    714. 

  714. 	text=getD("text","")

    715. 

  715. 	lianxi=getD("lianxi","")

    716. 

  716. 	if name="" or title="" or text="" then wn "昵称或标题内容不能为空！</div></body></html>"

    717. 

  717. 	set rs=Server.CreateObject("ADODB.Recordset")

    718. 

  718. 	rs.open"select * from 74hu_guest",conn,1,2

    719. 

  719. 	rs.addnew

    720. 

  720. 	rs("name")=name

    721. 

  721. 	rs("title")=title

    722. 

  722. 	rs("text")=text

    723. 

  723. 	rs("HU_time")=now()

    724. 

  724. 	if lianxi<>"" then rs("lianxi")=lianxi

    725. 

  725. 	rs("agent")=User_Ip

    726. 

  726. 	rs.update

    727. 

  727. 	rs.close

    728. 

  728. 	set rs=Nothing

    729. 

  729. 	r "?aid=guest"

    730. 

  730. 	else

    731. 

  731. 	set rs=Server.CreateObject("ADODB.Recordset")

    732. 

  732. 	rs.open"select * from 74hu_guest order by id desc",conn,1,1

    733. 

  733. 	If Not rs.eof Then

    734. 

  734. 	Dim PageSize,gopage,Count,page,i,pagecount

    735. 

  735. 	PageSize=10

    736. 

  736. 	gopage="?aid=guest&amp;"

    737. 

  737. 	Count=rs.recordcount

    738. 

  738. 	page=getN("page",1)

    739. 

  739. 	page=int(page)

    740. 

  740. 	if page<=0 or page="" then page=1

    741. 

  741. 	pagecount=(count+pagesize-1)\pagesize

    742. 

  742. 	if page>pagecount then page=pagecount

    743. 

  743. 	rs.move(pagesize*(page-1))

    744. 

  744. 	w "<div class=""nav"">-<a href='?aid=index'>首页</a>-客服首页</div><br/>共"&count&"条<a href=""?aid=guest&amp;act=add"">留言</a><br/>"

    745. 

  745. 	For i=1 To PageSize

    746. 

  746. 	If rs.eof Then Exit For

    747. 

  747. 	w "<a href='?aid=guest&amp;act=view&amp;id="&rs("ID")&"&amp;p="&p&"'>"&i+(page-1)*PageSize&"."&noubb(rs("title"))&"</a><br/>"&_

    748. 

  748. 		"[网友:"&noubb(rs("name"))

    749. 

  749. 	if rs("retext")<>"" then 

    750. 

  750. 	w "/已回"

    751. 

  751. 	else

    752. 

  752. 	w "/未回"

    753. 

  753. 	end if

    754. 

  754. 	w "]<br/>"

    755. 

  755. 	rs.moveNext

    756. 

  756. 	Next

    757. 

  757. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&page+1&""">下页</a>&nbsp;"

    758. 

  758. 	if page>1 then w "<a href="""&gopage&"page="&page-1&""">上页</a>"

    759. 

  759. 	if pagecount>1 then w "<br/>"&page&"/"&pagecount&"页"&turnpage2("guest","")

    760. 

  760. 	Else

    761. 

  761. 	w "<p>还没有留言！<br/>"

    762. 

  762. 	end if

    763. 

  763. 	rs.close

    764. 

  764. 	set rs=nothing

    765. 

  765. 	w "<br/><a href=""?aid=guest&amp;act=add"">我要发表留言</a><br/>"

    766. 

  766. 	end if

    767. 

  767. End Sub

    768. 

  768. ' Wap1.0公告页

    769. 

  769. Sub showReport()

    770. 

  770. 	Dim rs

    771. 

  771. 	IF  Request.QueryString("action")="view" Then

    772. 

  772. 	w "<card id=""index"" title=""查看公告""><p>"

    773. 

  773. 	Set rs=Server.CreateObject("Adodb.Recordset")

    774. 

  774. 	rs.open "select  * from 74hu_gonggao where id="&id&" order by id desc",conn,1,1

    775. 

  775. 	If Not rs.eof Then

    776. 

  776. 	w "标题:"&noubb(rs("name"))&"<br/>["&fordate(rs("HU_time"))&"]<br/>内容:"&ubbcode(rs("title"))&"<br/>"

    777. 

  777. 	Else

    778. 

  778. 	w "没有这个公告！"

    779. 

  779. 	end if

    780. 

  780. 	w "<br/><a href=""?aid=gonggao"">返回公告中心</a><br/>"

    781. 

  781. 	Rs.close

    782. 

  782. 	set Rs=nothing

    783. 

  783. 	else

    784. 

  784. 	w "<card title=""最新公告""><p>"

    785. 

  785. 	Set Rs = Server.CreateObject("Adodb.Recordset")

    786. 

  786. 	Sql = "SELECT * FROM 74hu_gonggao order by id desc"

    787. 

  787. 	Rs.Open Sql,conn,1,1

    788. 

  788. 	If Not rs.eof Then

    789. 

  789. 	Dim PageSize,i,Count,page,pagecount,gopage

    790. 

  790. 	PageSize=10

    791. 

  791. 	gopage="?aid=gonggao&amp;"

    792. 

  792. 	Count=rs.recordcount

    793. 

  793. 	page=getN("page",1)

    794. 

  794. 	if page<1 then page=1

    795. 

  795. 	page=int(page)

    796. 

  796. 	if page<=0 or page="" then page=1

    797. 

  797. 	pagecount=(count+pagesize-1)\pagesize

    798. 

  798. 	if page>pagecount then page=pagecount

    799. 

  799. 	rs.move(pagesize*(page-1))

    800. 

  800. 	w "共:"&count&"条公告<br/>"

    801. 

  801. 	For i=1 To PageSize

    802. 

  802. 	If rs.eof Then Exit For

    803. 

  803. 	w "<a href=""?aid=gonggao&amp;action=view&amp;id="&rs("id")&""">"&(i+(page-1)*PageSize)&"."&noubb(Rs("name"))&"</a><br/>"

    804. 

  804. 	rs.moveNext

    805. 

  805. 	Next

    806. 

  806. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&page+1&""">下页</a>"

    807. 

  807. 	if page>1 then w "<a href="""&gopage&"page="&page-1&""">上页</a>"

    808. 

  808. 	if pagecount>1 then w "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">[GO]</a><br/>"

    809. 

  809. 	Else

    810. 

  810. 	w "暂时没有公告！<br/>"

    811. 

  811. 	end if

    812. 

  812. 	Rs.close

    813. 

  813. 	set Rs=nothing

    814. 

  814. 	end if

    815. 

  815. End Sub

    816. 

  816. ' Wap2.0公告页

    817. 

  817. Sub showsReport()

    818. 

  818. 	Dim rs

    819. 

  819. 	IF  Request.QueryString("action")="view" Then

    820. 

  820. 	w "<title>查看公告</title></head><body><div class=""main""><div class=""nav"">-<a href=""?aid=index"">首页</a>-<a href=""?aid=gonggao"">公告</a>-正文</div>"

    821. 

  821. 	Set rs=Server.CreateObject("Adodb.Recordset")

    822. 

  822. 	rs.open "select  * from 74hu_gonggao where id="&id&" order by id desc",conn,1,1

    823. 

  823. 	If Not rs.eof Then

    824. 

  824. 	w "<div class=""tle"">"&noubb(rs("name"))&"</div>["&fordate(rs("HU_time"))&"]<br/>"&ubbcode(rs("title"))&"<br/>"

    825. 

  825. 	Else

    826. 

  826. 	w "没有这个公告！"

    827. 

  827. 	end if

    828. 

  828. 	w "<br/><a href=""?aid=gonggao"">返回公告中心</a><br/>"

    829. 

  829. 	Rs.close

    830. 

  830. 	set Rs=nothing

    831. 

  831. 	else

    832. 

  832. 	w "<title>最新公告</title></head><body><div class=""main"">"

    833. 

  833. 	Set Rs = Server.CreateObject("Adodb.Recordset")

    834. 

  834. 	Sql = "SELECT * FROM 74hu_gonggao order by id desc"

    835. 

  835. 	Rs.Open Sql,conn,1,1

    836. 

  836. 	If Not rs.eof Then

    837. 

  837. 	Dim PageSize,gopage,Count,page,i,pagecount

    838. 

  838. 	PageSize=10

    839. 

  839. 	gopage="?aid=gonggao&amp;"

    840. 

  840. 	Count=rs.recordcount

    841. 

  841. 	page=getN("page",1)

    842. 

  842. 	if page<1 then page=1

    843. 

  843. 	page=int(page)

    844. 

  844. 	if page<=0 or page="" then page=1

    845. 

  845. 	pagecount=(count+pagesize-1)\pagesize

    846. 

  846. 	if page>pagecount then page=pagecount

    847. 

  847. 	rs.move(pagesize*(page-1))

    848. 

  848. 	w "<div class=""nav"">-<a href=""?aid=index"">首页</a>-公告中心</div>共:"&count&"条公告<br/>"

    849. 

  849. 	For i=1 To PageSize

    850. 

  850. 	If rs.eof Then Exit For

    851. 

  851. 	w "<a href=""?aid=gonggao&amp;action=view&amp;id="&rs("id")&""">"&(i+(page-1)*PageSize)&"."&noubb(Rs("name"))&"</a><br/>"

    852. 

  852. 	rs.moveNext

    853. 

  853. 	Next

    854. 

  854. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&page+1&""">下页</a>"

    855. 

  855. 	if page>1 then w "<a href="""&gopage&"page="&page-1&""">上页</a>"

    856. 

  856. 	if pagecount>1 then w "<br/><b>"&page&"</b>/"&pagecount&"页"&turnpage2("gonggao","")&"<br/>"

    857. 

  857. 	Else

    858. 

  858. 	w "暂时没有公告！<br/>"

    859. 

  859. 	end if

    860. 

  860. 	Rs.close

    861. 

  861. 	set Rs=nothing

    862. 

  862. 	end if

    863. 

  863. End Sub

    864. 

  864. ' wap1.0列表页

    865. 

  865. Sub showList()

    866. 

  866. 	Dim act,rs

    867. 

  867. 	act=request.QueryString("act")

    868. 

  868. 	if act<>"" then

    869. 

  869. 	w "<card title='站内排行榜'><p>"

    870. 

  870. 	if act="top" then

    871. 

  871. 	w "-<a href='?aid=index'>首页</a>-站内排行-<a href='?aid=list&amp;act=new'>最新</a><br/>-----------<br/>"

    872. 

  872. 	else

    873. 

  873. 	w "-<a href='?aid=index'>首页</a>-站内最新-<a href='?aid=list&amp;act=top'>排行</a><br/>-----------<br/>"

    874. 

  874. 	end if

    875. 

  875. 	else

    876. 

  876. 	Set rs = Server.CreateObject("ADODB.Recordset")

    877. 

  877. 	sql="Select class from 74hu_list where classid="&id

    878. 

  878. 	rs.open sql,conn,3,1 

    879. 

  879. 	if rs.eof then

    880. 

  880. 	rs.close

    881. 

  881. 	set rs=Nothing

    882. 

  882. 	r "?aid=index"

    883. 

  883. 	end if

    884. 

  884. 	Dim classname,sql,PageSize,Count,gopage,page,i,pagecount

    885. 

  885. 	classname=rs("class")

    886. 

  886. 	rs.close

    887. 

  887. 	set rs=Nothing

    888. 

  888. 	w "<card title='"&classname&"-"&waptitle&"'><p>-<a href='?aid=index'>首页</a>-"&classname&"-<a href='?aid=list&amp;act=top'>排行</a><br/>-----------<br/>"

    889. 

  889. 	end if

    890. 

  890. 	Set rs = Server.CreateObject("ADODB.Recordset")

    891. 

  891. 	if act<>"" then

    892. 

  892. 	if act="top" then

    893. 

  893. 	sql="Select top 100 id,title from 74hu_article order by hit*1000+id desc"

    894. 

  894. 	else

    895. 

  895. 	sql="Select top 100 id,title from 74hu_article order by id desc"

    896. 

  896. 	end if

    897. 

  897. 	else

    898. 

  898. 	sql="Select id,title from 74hu_article where classid="&id&" order by id desc"

    899. 

  899. 	end if

    900. 

  900. 	rs.open sql,conn,3,1

    901. 

  901. 	If Not rs.eof then

    902. 

  902. 	if adsetkf("ads1")=1 then

    903. 

  903. 	call adstr(1)

    904. 

  904. 	w "<br/>"

    905. 

  905. 	end if

    906. 

  906. 	PageSize=listnums

    907. 

  907. 	if act<>"" then

    908. 

  908. 	if act="top" then

    909. 

  909. 	gopage="?aid=list&amp;act=top&amp;"

    910. 

  910. 	else

    911. 

  911. 	gopage="?aid=list&amp;act=new&amp;"

    912. 

  912. 	end if

    913. 

  913. 	else

    914. 

  914. 	gopage="?aid=list&amp;id="&id&"&amp;"

    915. 

  915. 	end if

    916. 

  916. 	Count=rs.recordcount

    917. 

  917. 	page=getN("page",1)

    918. 

  918. 	if page<=0 or page="" then page=1

    919. 

  919. 	pagecount=(count+pagesize-1)\pagesize

    920. 

  920. 	if page>pagecount then page=pagecount

    921. 

  921. 	rs.move(pagesize*(page-1))

    922. 

  922. 	For i=1 To PageSize

    923. 

  923. 	If rs.eof Then Exit For

    924. 

  924. 	w "<a href='?aid=art&amp;id="&rs("id")&"'>"&i+(page-1)*PageSize&"."&noubb(rs("title"))&"</a><br/>"

    925. 

  925. 	rs.moveNext

    926. 

  926. 	Next

    927. 

  927. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&page+1&""">下页</a>&nbsp;"

    928. 

  928. 	if page>1 then w "<a href="""&gopage&"page="&page-1&""">上页</a>"

    929. 

  929. 	if pagecount>1 then w "(<b>"&page&"</b>/"&pagecount&")"&"<br/><input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/>页 <a href="""&gopage&"page=$(page)"">翻页</a><br/>"

    930. 

  930. 	w "[相关内容]<br/>"

    931. 

  931. 	call wendtitle(4,id)

    932. 

  932. 	if adsetkf("ads2")=1 then

    933. 

  933. 	call adstr(2)

    934. 

  934. 	w "<br/>"

    935. 

  935. 	end if

    936. 

  936. 	Else

    937. 

  937. 	w "暂时没有文章！<br/>"

    938. 

  938. 	end if

    939. 

  939. 	rs.close

    940. 

  940. 	set rs=nothing

    941. 

  941. End Sub

    942. 

  942. ' wap2.0列表页

    943. 

  943. Sub showsList()

    944. 

  944. 	Dim act,rs

    945. 

  945. 	act=request.QueryString("act")

    946. 

  946. 	if act<>"" then

    947. 

  947. 	w "<title>站内排行榜</title></head><body><div class=""main"">"

    948. 

  948. 	if act="top" then

    949. 

  949. 	w "-<a href='?aid=index'>首页</a>-站内排行-<a href='?aid=list&amp;act=new'>最新</a><br/>-----------<br/>"

    950. 

  950. 	else

    951. 

  951. 	w "-<a href='?aid=index'>首页</a>-站内最新-<a href='?aid=list&amp;act=top'>排行</a><br/>-----------<br/>"

    952. 

  952. 	end if

    953. 

  953. 	else

    954. 

  954. 	Set rs = Server.CreateObject("ADODB.Recordset")

    955. 

  955. 	sql="Select class from 74hu_list where classid="&id

    956. 

  956. 	rs.open sql,conn,3,1 

    957. 

  957. 	if rs.eof then

    958. 

  958. 	rs.close

    959. 

  959. 	set rs=Nothing

    960. 

  960. 	r "?aid=index"

    961. 

  961. 	end if

    962. 

  962. 	Dim classname,sql

    963. 

  963. 	classname=rs("class")

    964. 

  964. 	rs.close

    965. 

  965. 	set rs=Nothing

    966. 

  966. 	w "<title>"&classname&"-"&waptitle&"</title></head><body>"&_

    967. 

  967. 	  "<div class=""main"">"&_

    968. 

  968. 	  "<div class=""nav"">-<a href='?aid=index'>首页</a>-"&classname&"-<a href='?aid=list&amp;act=top'>排行</a></div>-----------<br/>"

    969. 

  969. 	end if

    970. 

  970. 	Set rs = Server.CreateObject("ADODB.Recordset")

    971. 

  971. 	if act<>"" then

    972. 

  972. 	if act="top" then

    973. 

  973. 	sql="Select top 100 id,title from 74hu_article order by hit*1000+id desc"

    974. 

  974. 	else

    975. 

  975. 	sql="Select top 100 id,title from 74hu_article order by id desc"

    976. 

  976. 	end if

    977. 

  977. 	else

    978. 

  978. 	sql="Select id,title from 74hu_article where classid="&id&" order by id desc"

    979. 

  979. 	end if

    980. 

  980. 	rs.open sql,conn,3,1

    981. 

  981. 	If Not rs.eof then

    982. 

  982. 	if adsetkf("ads1")=1 then

    983. 

  983. 	call adstr(1)

    984. 

  984. 	w "<br/>"

    985. 

  985. 	end if

    986. 

  986. 	Dim PageSize,gopage,Count,page,i,pagecount

    987. 

  987. 	PageSize=listnums

    988. 

  988. 	if act<>"" then

    989. 

  989. 	if act="top" then

    990. 

  990. 	gopage="?aid=list&amp;act=top&amp;"

    991. 

  991. 	else

    992. 

  992. 	gopage="?aid=list&amp;act=new&amp;"

    993. 

  993. 	end if

    994. 

  994. 	else

    995. 

  995. 	gopage="?aid=list&amp;id="&id&"&amp;"

    996. 

  996. 	end if

    997. 

  997. 	Count=rs.recordcount

    998. 

  998. 	page=getN("page",1)

    999. 

  999. 	if page<=0 or page="" then page=1

    1000. 

  1000. 	pagecount=(count+pagesize-1)\pagesize

    1001. 

  1001. 	if page>pagecount then page=pagecount

    1002. 

  1002. 	rs.move(pagesize*(page-1))

    1003. 

  1003. 	For i=1 To PageSize

    1004. 

  1004. 	If rs.eof Then Exit For

    1005. 

  1005. 	w "<a href='?aid=art&amp;id="&rs("id")&"'>"&i+(page-1)*PageSize&"."&noubb(rs("title"))&"</a><br/>"

    1006. 

  1006. 	rs.moveNext

    1007. 

  1007. 	Next

    1008. 

  1008. 	if page-pagecount<0 then w "<a href="""&gopage&"page="&page+1&""">下页</a>&nbsp;"

    1009. 

  1009. 	if page>1 then w "<a href="""&gopage&"page="&page-1&""">上页</a>"

    1010. 

  1010. 	if pagecount>1 then w "(<b>"&page&"</b>/"&pagecount&")"&"<br/>"&turnpage2("list","<input name=""id"" type=""hidden"" value="""&id&"""/>")&"<br/>"

    1011. 

  1011. 	w "<div class=""nav"">[相关内容]</div>"

    1012. 

  1012. 	call wendtitle(4,id)

    1013. 

  1013. 	if adsetkf("ads2")=1 then

    1014. 

  1014. 	call adstr(2)

    1015. 

  1015. 	w "<br/>"

    1016. 

  1016. 	end if

    1017. 

  1017. 	Else

    1018. 

  1018. 	w "暂时没有文章！<br/>"

    1019. 

  1019. 	end if

    1020. 

  1020. 	rs.close

    1021. 

  1021. 	set rs=nothing

    1022. 

  1022. End Sub

    1023. 

  1023. ' Wap1.0地图页

    1024. 

  1024. Sub showMap()

    1025. 

  1025. 	Dim rs,sql

    1026. 

  1026. 	w "<card title="""&waptitle&"网站地图""><p>"

    1027. 

  1027. 	Set rs = Server.CreateObject("ADODB.Recordset")

    1028. 

  1028. 	sql="Select * from 74hu_list"

    1029. 

  1029. 	rs.open sql,conn,1,1 

    1030. 

  1030. 	if not rs.eof then

    1031. 

  1031. 	Dim i

    1032. 

  1032. 	For i=1 to rs.recordcount

    1033. 

  1033. 	w "<a href=""?aid=list&amp;id="&rs("classid")&""">"&i&"."&rs("class")&"</a><br/>"

    1034. 

  1034. 	rs.moveNext

    1035. 

  1035. 	Next

    1036. 

  1036. 	rs.close

    1037. 

  1037. 	set rs=nothing

    1038. 

  1038. 	else

    1039. 

  1039. 	w "暂时没有<br/> "

    1040. 

  1040. 	end if

    1041. 

  1041. End Sub

    1042. 

  1042. ' Wap2.0地图页

    1043. 

  1043. Sub showsMap()

    1044. 

  1044. 	w "<title>"&waptitle&"网站地图</title></head><body><div class=""main""><div class=""nav"">-<a href=""?aid=index"">首页</a>-网站地图</div>"

    1045. 

  1045. 	Set rs = Server.CreateObject("ADODB.Recordset")

    1046. 

  1046. 	sql="Select * from 74hu_list"

    1047. 

  1047. 	rs.open sql,conn,1,1 

    1048. 

  1048. 	if not rs.eof then

    1049. 

  1049. 	Dim i

    1050. 

  1050. 	For i=1 to rs.recordcount

    1051. 

  1051. 	w "<a href=""?aid=list&amp;id="&rs("classid")&""">"&i&"."&rs("class")&"</a><br/>"

    1052. 

  1052. 	rs.moveNext

    1053. 

  1053. 	Next

    1054. 

  1054. 	rs.close

    1055. 

  1055. 	set rs=nothing

    1056. 

  1056. 	else

    1057. 

  1057. 	w "暂时没有<br/> "

    1058. 

  1058. 	end if

    1059. 

  1059. End Sub

    1060. 

  1060. ' Wap1.0书签页

    1061. 

  1061. Sub showBookmark()

    1062. 

  1062. w "<card title=""保存书签""><p>您可以按以下步骤收藏本站。<br/><br/>1.诺基亚:依次选""操作""-""增加书签"" <br/>"&_

    1063. 

  1063. 	"2.摩托罗拉:依次选""菜单键""-""书签""-""标记站点""-""保存"" <br/>3.索爱:依次选""更多""-""书签""-""添加书签""-""确定""<br/>"&_

    1064. 

  1064. 	"4.三星:依次选""上网键""-""收藏夹""-选择一个空的收藏夹地址-确认url地址-输入"""&waptitle&""" <br/>"&_

    1065. 

  1065. 	"5.松下:选择页面左上角的""菜单""-""书签""-""标记站点""-""保存"" <br/>6.西门子:依次选""上网键""-""收藏夹""-""储存"" <br/>"&_

    1066. 

  1066. 	"7.NEC:依次选""菜单""-""书签""-""标记站点""-""保存"" <br/>8.LG:依次选""菜单""-""书签""-""标记站点""-""保存"" <br/>"&_

    1067. 

  1067. 	"9.三菱:按左功能键-""书签""-""添加新书签""-""保存"" <br/>10.海尔:网页浏览状态下长按""*""键-""书签""-""新建""-""编辑""-输入"""&_

    1068. 

  1068. 	waptitle&"""-""保存"" <br/>11.夏新:访问网站时选中页面左上角-""书签""-""保存"" <br/>12.联想:依次选""网络""-""输入网址""-输入"""&_

    1069. 

  1069. 	waptitle&"""-""保存"" <br/>13.东信:依次选""选项""-""保存书签"" <br/>14.CECT:依次选""菜单""-""保存书签""-""保存""<br/>"

    1070. 

  1070. End Sub

    1071. 

  1071. ' Wap2.0书签页

    1072. 

  1072. Sub showsBookmark()

    1073. 

  1073. w "<title>保存书签</title></head><body><div class=""main""><div class=""nav""><a href=""?aid=index"">首页</a>-收藏本站</div>"&_

    1074. 

  1074. 	"您可以按以下步骤收藏本站。<br/><br/>1.诺基亚:依次选""操作""-""增加书签"" <br/>"&_

    1075. 

  1075. 	"2.摩托罗拉:依次选""菜单键""-""书签""-""标记站点""-""保存"" <br/>3.索爱:依次选""更多""-""书签""-""添加书签""-""确定""<br/>"&_

    1076. 

  1076. 	"4.三星:依次选""上网键""-""收藏夹""-选择一个空的收藏夹地址-确认url地址-输入"""&waptitle&""" <br/>"&_

    1077. 

  1077. 	"5.松下:选择页面左上角的""菜单""-""书签""-""标记站点""-""保存"" <br/>6.西门子:依次选""上网键""-""收藏夹""-""储存"" <br/>"&_

    1078. 

  1078. 	"7.NEC:依次选""菜单""-""书签""-""标记站点""-""保存"" <br/>8.LG:依次选""菜单""-""书签""-""标记站点""-""保存"" <br/>"&_

    1079. 

  1079. 	"9.三菱:按左功能键-""书签""-""添加新书签""-""保存"" <br/>10.海尔:网页浏览状态下长按""*""键-""书签""-""新建""-""编辑""-输入"""&_

    1080. 

  1080. 	waptitle&"""-""保存"" <br/>11.夏新:访问网站时选中页面左上角-""书签""-""保存"" <br/>12.联想:依次选""网络""-""输入网址""-输入"""&_

    1081. 

  1081. 	waptitle&"""-""保存"" <br/>13.东信:依次选""选项""-""保存书签"" <br/>14.CECT:依次选""菜单""-""保存书签""-""保存""<br/>"

    1082. 

  1082. End Sub

    1083. 

  1083. ' Wap1.0 链接页

    1084. 

  1084. Sub showUrl()

    1085. 

  1085. 	Dim rs

    1086. 

  1086. 	set rs=Server.CreateObject("ADODB.Recordset")

    1087. 

  1087. 	rs.open"select * from 74hu_gogo Where id="&id,conn,1,1

    1088. 

  1088. 	if not (rs.bof and rs.eof) then

    1089. 

  1089. 	Dim tid,url

    1090. 

  1090. 	tid=rs("id")

    1091. 

  1091. 	url=noubburl(rs("url"))

    1092. 

  1092. 	conn.Execute("update 74hu_gogo set tid=tid+1 Where id=" & tid)

    1093. 

  1093. 	else

    1094. 

  1094. 	url="?aid=index"

    1095. 

  1095. 	end if

    1096. 

  1096. 	rs.close

    1097. 

  1097. 	set rs=nothing

    1098. 

  1098. 	w "<card title='正在进入...'><onevent type='onenterforward'><go href='"&noubburl(url)&"'/></onevent>"&_

    1099. 

  1099. 		"<p align=""left"" mode=""wrap"">如果网页没有自动跳转，请点击<a href="""&noubb(url)&">"">快速进入</a><br/>"

    1100. 

  1100. End Sub

    1101. 

  1101. ' Wap2.0 链接页

    1102. 

  1102. Sub showsUrl()

    1103. 

  1103. 	Dim rs

    1104. 

  1104. 	set rs=Server.CreateObject("ADODB.Recordset")

    1105. 

  1105. 	rs.open"select * from 74hu_gogo Where id="&id,conn,1,1

    1106. 

  1106. 	if not (rs.bof and rs.eof) then

    1107. 

  1107. 	Dim tid,url

    1108. 

  1108. 	tid=rs("id")

    1109. 

  1109. 	url=noubburl(rs("url"))

    1110. 

  1110. 	conn.Execute("update 74hu_gogo set tid=tid+1 Where id=" & tid)

    1111. 

  1111. 	else

    1112. 

  1112. 	url="?aid=index"

    1113. 

  1113. 	end if

    1114. 

  1114. 	rs.close

    1115. 

  1115. 	set rs=nothing

    1116. 

  1116. 	r url

    1117. 

  1117. End Sub

    1118. 

  1118. ' Wap1.0友链页

    1119. 

  1119. Sub showLink()

    1120. 

  1120. 	Dim act,rs,sql,rss,sqll

    1121. 

  1121. 	act=request.QueryString("act")

    1122. 

  1122. 	if act="add" then

    1123. 

  1123. 	w "<card title=""申请友链""><p>"&_

    1124. 

  1124. 		"网站名称:(3-6字)<br/><input name=""name"&Time_r&""" maxlength=""7"" value=""""/><br/>"&_

    1125. 

  1125. 		"网站简称:(2汉字)<br/><input name=""namt"&Time_r&""" maxlength=""2"" value=""""/><br/>"&_

    1126. 

  1126. 		"网址:(需http://)<br/><input name=""url"&Time_r&""" value=""http://""/><br/>"&_

    1127. 

  1127. 		"网站分类：<select name=""classid"&Time_r&""">"

    1128. 

  1128. 	Set Rs=server.createobject("adodb.recordset")

    1129. 

  1129. 	Sql = "select classid,class from 74hu_linkc"

    1130. 

  1130. 	Rs.open Sql,conn,1,1

    1131. 

  1131. 	do while not Rs.eof

    1132. 

  1132. 	w "<option value='"&rs("classid")&"'>"&rs("class")&"</option>"

    1133. 

  1133. 	rs.movenext

    1134. 

  1134. 	Loop

    1135. 

  1135. 	w "</select><br/>"&_

    1136. 

  1136. 		"网站简介：(50字内)<br/><input name=""jian"&Time_r&""" title=""简介""  value=""暂时没有介绍…"" maxlength=""100""/><br/>"&_

    1137. 

  1137. 		"<anchor>确定提交<go href=""?aid=link&amp;act=post"" method=""get"" accept-charset=""utf-8"">"&_

    1138. 

  1138. 		"<postfield name=""name"" value=""$(name"&Time_r&")""/>"&_

    1139. 

  1139. 		"<postfield name=""namt"" value=""$(namt"&Time_r&")""/>"&_

    1140. 

  1140. 		"<postfield name=""url"" value=""$(url"&Time_r&")""/>"&_

    1141. 

  1141. 		"<postfield name=""classid"" value=""$(classid"&Time_r&")""/>"&_

    1142. 

  1142. 		"<postfield name=""jian"" value=""$(jian"&Time_r&")""/>"&_

    1143. 

  1143. 		"</go></anchor><br/>"&_

    1144. 

  1144. 		"<br/>欢迎优秀WAP网站交换链接。"&_

    1145. 

  1145. 		"<br/>1.合作原则:流量互补,双赢发展,10天没流量首页自动隐藏。"&_

    1146. 

  1146. 		"<br/>2.流程: "&_

    1147. 

  1147. 		"<br/>1)提交网站，获取链接地址; "&_

    1148. 

  1148. 		"<br/>2)将我站的链接放到贵站明显位置。"&_

    1149. 

  1149. 		"<br/>3)我站人员3个工作日内审核网站，合适网站即可收录。"&_

    1150. 

  1150. 		"<br/>"&_

    1151. 

  1151. 		"<br/>申请友情链接前请先在您的网站上做好本站的链接："&_

    1152. 

  1152. 		"<br/>网站名称："&waptitle&_

    1153. 

  1153. 		"<br/>做好我站链接后，我们会及时进行审核。<br/>"&_

    1154. 

  1154. 		"<a href='?aid=link'>返回友链首页</a><br/>"

    1155. 

  1155. 	rs.close

    1156. 

  1156. 	set rs=nothing

    1157. 

  1157. 	elseif act="go" then

    1158. 

  1158. 	Dim yourip,sss,ips,cache_ip,one_ip,all_s,k_ip,i_ip,del_time,ip_time,temp_s

    1159. 

  1159. 	On Error Resume Next

    1160. 

  1160. 	Server.ScriptTimeOut=9999999

    1161. 

  1161. 	yourip=Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID")

    1162. 

  1162. 	if yourip="" then yourip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 

    1163. 

  1163. 	if yourip="" then yourip=Request.ServerVariables("REMOTE_ADDR")

    1164. 

  1164. 	sss=180

    1165. 

  1165. 	ips=500

    1166. 

  1166. 	cache_ip=Application("cache_ip")

    1167. 

  1167. 	if cache_ip="" then cache_ip="|"

    1168. 

  1168. 	one_ip=split(cache_ip,"|")

    1169. 

  1169. 	all_s=ubound(one_ip)

    1170. 

  1170. 	for k_ip=0 to all_s

    1171. 

  1171. 	if yourip=one_ip(k_ip) then

    1172. 

  1172. 	i_ip=k_ip:ip_time=one_ip(k_ip+1):Exit for

    1173. 

  1173. 	else

    1174. 

  1174. 	i_ip=0:ip_time="2000-10-10 10:10:10"

    1175. 

  1175. 	end if

    1176. 

  1176. 	next

    1177. 

  1177. 	del_time=DATEDIFF("s",ip_time,now())

    1178. 

  1178. 	if i_ip<all_s and sss>del_time then

    1179. 

  1179. 	r "?aid=index"

    1180. 

  1180. 	end if

    1181. 

  1181. 	if all_s>ips*2 Then

    1182. 

  1182. 	Application.Lock

    1183. 

  1183. 	Application("cache_ip")="|"

    1184. 

  1184. 	Application.UnLock

    1185. 

  1185. 	else

    1186. 

  1186. 	if i_ip=0 then

    1187. 

  1187. 	temp_s=cache_ip&yourip&"|"&now()&"|"

    1188. 

  1188. 	else

    1189. 

  1189. 	Dim text_1,num_1,num_2,num_3,num_4,text_2,text_3,text_4

    1190. 

  1190. 	text_1="|"&yourip&"|"&ip_time&"|"

    1191. 

  1191. 	num_1=len(cache_ip)

    1192. 

  1192. 	num_2=len(text_1)

    1193. 

  1193. 	num_3=instr(cache_ip,text_1)

    1194. 

  1194. 	num_4=num_1-num_2-num_3+1

    1195. 

  1195. 	text_2=left(cache_ip,num_3)

    1196. 

  1196. 	text_3=right(cache_ip,num_4)

    1197. 

  1197. 	text_4=yourip&"|"&now()&"|"

    1198. 

  1198. 	temp_s=text_2&text_4&text_3

    1199. 

  1199. 	end if

    1200. 

  1200. 	Application.Lock

    1201. 

  1201. 	Application("cache_ip")=temp_s

    1202. 

  1202. 	Application.UnLock

    1203. 

  1203. 	end if

    1204. 

  1204. 	set Rs=Server.CreateObject("ADODB.Recordset")

    1205. 

  1205. 	Sql="select ID,HU_in,HU_time from 74hu_link Where ID="&ID

    1206. 

  1206. 	Rs.open Sql,conn,1,3

    1207. 

  1207. 	Rs("HU_in")=Rs("HU_in")+1

    1208. 

  1208. 	Rs("HU_time")=now()

    1209. 

  1209. 	Rs.update()

    1210. 

  1210. 	rs.close

    1211. 

  1211. 	set rs=nothing

    1212. 

  1212. 	r "?aid=index"

    1213. 

  1213. 	elseif act="view" then

    1214. 

  1214. 	set Rs=Server.CreateObject("ADODB.Recordset")

    1215. 

  1215. 	Sql="select * from 74hu_link Where id="&id

    1216. 

  1216. 	Rs.open Sql,conn,1,3

    1217. 

  1217. 	If Not rs.eof	Then

    1218. 

  1218. 	Rs("HU_out")=Rs("HU_out")+1

    1219. 

  1219. 	Rs("OUTtime")=now()

    1220. 

  1220. 	Rs.update()

    1221. 

  1221. 	Else

    1222. 

  1222. 	w "?aid=index"

    1223. 

  1223. 	End If

    1224. 

  1224. 	w "<card title='"&noubb(rs("name"))&"' ontimer='"&noubburl(rs("url"))&"'><timer value='1'/><p>"&_

    1225. 

  1225. 		"正在跳转到“"&noubb(rs("name"))&"”,<br/>请稍候...<a href='"&noubburl(rs("url"))&"'>快速进入</a><br/>"&_

    1226. 

  1226. 		"网站介绍："&noubb(rs("jian"))&"<br/><br/>"

    1227. 

  1227. 	rs.close

    1228. 

  1228. 	set rs=nothing

    1229. 

  1229. 	elseif act="post" then

    1230. 

  1230. 	Dim classid,name,namt,url,jian

    1231. 

  1231. 	classid=Request.QueryString("classid")

    1232. 

  1232. 	name=getD("name","")

    1233. 

  1233. 	namt=getD("namt","")

    1234. 

  1234. 	url=LCase(getD("url",""))

    1235. 

  1235. 	jian=getD("jian","")

    1236. 

  1236. 	if session("name")=1 then

    1237. 

  1237. 	wn "<card title=""重复申请""><p>你刚才已申请过了！请不要重复申请！<br/>"

    1238. 

  1238. 	else

    1239. 

  1239. 	if name="" or namt="" or url="" or jian="" or classid="" or isnumeric(classid)=false then

    1240. 

  1240. 	wn "<card title=""出错了吧""><p>各项都要填写,不能为空！<br/>"

    1241. 

  1241. 	else

    1242. 

  1242. 	Set RSS=server.createobject("adodb.recordset")

    1243. 

  1243. 	Sqll="select * from 74hu_ad"

    1244. 

  1244. 	RSS.open sqll,conn,1,1

    1245. 

  1245. 	active=rss("active")

    1246. 

  1246. 	rss.close

    1247. 

  1247. 	set rss=nothing

    1248. 

  1248. 	Set RS=server.createobject("adodb.recordset")

    1249. 

  1249. 	Sql="select * from 74hu_link"

    1250. 

  1250. 	RS.open sql,conn,1,3

    1251. 

  1251. 	RS.addnew

    1252. 

  1252. 	RS("name")=name

    1253. 

  1253. 	RS("namt")=namt

    1254. 

  1254. 	RS("url")=url

    1255. 

  1255. 	RS("classid")=classid

    1256. 

  1256. 	RS("jian")=jian

    1257. 

  1257. 	RS("active")=active

    1258. 

  1258. 	RS.update

    1259. 

  1259. 	session.timeout=1

    1260. 

  1260. 	session("name")=1

    1261. 

  1261. 	end if

    1262. 

  1262. 	end if

    1263. 

  1263. 	w "<card title='申请友链成功' ontimer='?aid=link&amp;act=you'><timer value='1'/><p>申请友链成功<br/>"

    1264. 

  1264. 	rs.close

    1265. 

  1265. 	set rs=nothing

    1266. 

  1266. 	elseif act="list" then

    1267. 

  1267. 	Dim add

    1268. 

  1268. 	add=request.QueryString("class")

    1269. 

  1269. 	if add="" or IsNumeric(add)=false then

    1270. 

  1270. 	r "?aid=index"

    1271. 

  1271. 	else

    1272. 

  1272. 	Set rss=Server.CreateObject("ADODB.Recordset")

    1273. 

  1273. 	sqll="Select * from 74hu_linkc where classid="&add

    1274. 

  1274. 	rss.open sqll,conn,1,1 

    1275. 

  1275. 	if not rss.eof then

    1276. 

  1276. 	Dim classname

    1277. 

  1277. 	classname=rss("class")

    1278. 

  1278. 	end if

    1279. 

  1279. 	rss.close

    1280. 

  1280. 	set rss=nothing

    1281. 

  1281. 	w "<card title="""&classname&"网站""><p>=" &classname&"网站=<br/>"

    1282. 

  1282. 	Dim PageSize,gopage,Count,page,i,pagecount

    1283. 

  1283. 	Set rs = Server.CreateObject("ADODB.Recordset")

    1284. 

  1284. 	sql="Select * from 74hu_link where classid="&add&" And Active=0 and del=0  order by HU_time desc"

    1285. 

  1285. 	rs.open sql,conn,1,1 

    1286. 

  1286. 	If Not rs.eof Then

    1287. 

  1287. 	PageSize=15

    1288. 

  1288. 	gopage="?aid=link&amp;act=list&amp;class="&ADD&"&amp;"

    1289. 

  1289. 	Count=conn.execute("Select count(ID) from 74hu_link wher
    1290.