home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / channel.asp < prev    next >
Text File  |  2006-06-01  |  15KB  |  539 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║channel.asp
  4. '=╩╩╙├░µ▒╛ú║FeitecCMS AC V1.3 Free
  5. '=╣ª    ─▄ú║═°╒╛╞╡╡└
  6. '=╫≈    ╒▀ú║╙Ω│╟[From to FeitecStudio]
  7. '=╚╒    ╞┌ú║2006-2-19 18:09
  8. '=░µ    ╚¿ú║http://www.feitec.com/
  9. '=╝╝╩⌡╠╓┬█ú║6602510íó14040543ú¿╨┬╩╓╚║ú⌐
  10. '==================================
  11. %>
  12. <!--#include file="Ft_config.asp"-->
  13. <!--#include file="Ft_conn.asp"-->
  14. <!--#include file="Ft_format.asp"-->
  15. <!--#include file="Ft_lib.asp"-->
  16. <%
  17. if request.querystring("id")="" then
  18.     response.redirect("showerr.asp?errmsg=<br><li>╞╡╡└ID▓╗─▄╬¬┐╒ú¼╟δ╓╕╢¿▓┘╫≈╢╘╧≤úí</li>")
  19.     response.end
  20. else
  21.     channelid=checksql("╞╡╡└ID",request.querystring("id"),0,8)
  22.     sql="select * from Ft_channel where isadmin<>true and id="&channelid
  23.     set rs=server.createobject("adodb.recordset")
  24.     rs.open sql,conn,1,1
  25.     if rs.eof and rs.bof then
  26.         response.redirect("showerr.asp?errmsg=<br><li>├╗╙╨┤╦╞╡╡└╗≥╕├╞╡╡└╥╤╔╛│²úí</li>")
  27.         response.end
  28.     else
  29.     channel_title=replaceText(rs("channel_title"))
  30.     sub_title=channel_title
  31.     end if
  32.     rs.close
  33.     set rs=nothing
  34. end if
  35. call head()
  36. call body()
  37. call foot()
  38. sub body()
  39. '==================================
  40. '=╣ª    ─▄ú║╚í│÷─ú░σ
  41. '==================================
  42. StrTemp=split(mb_other,"|||@@@|||")
  43. sql="select * from Ft_channel where id="&channelid
  44. set rs=server.createobject("adodb.recordset")
  45. rs.open sql,conn,1,1
  46. '==================================
  47. '=╣ª    ─▄ú║╚¿╧▐╤Θ╓ñ
  48. '==================================
  49. if session("feitec_adminlogin")=feitec_sessionvar then
  50.     channelcontent=replace(ChangeEmot(rs("channel_content")),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
  51. elseif user_system<>0 and rs("user_view")<>0 then
  52.     if request.Cookies("userlogin")=user_session then
  53.         dim userarray,username
  54.         curarray=split(request.Cookies("userdata"),"||")
  55.         username=curarray(0)
  56.         sql="select * from Ft_user where lock=0 and name='"&username&"' and passed=1"
  57.         set rs2=server.createobject("adodb.recordset")
  58.         rs2.open sql,conn,1,3
  59.         if not rs2.eof then
  60.             if rs2("user_money")<0 then
  61.                 response.write"<script>alert('"&username&"ú¼─π╡─╜≡▒╥╩²╥╤▓╗╣╗ú¼╟δ╝░╩▒│Σ╓╡úí');history.go(-1);</script>"
  62.                 response.end
  63.             elseif rs("user_view")=2 then
  64.                 if rs2("user_type")<>2 then
  65.                     response.write"<script>alert('─·▓╗╩╟VIP╗ß╘▒ú¼╬▐╚¿▓Θ┐┤┤╦╥│');history.go(-1);</script>"
  66.                     response.end
  67.                 else
  68.                     rs2("user_money")=rs2("user_money")-rs("moneypay")
  69.                     rs2.update
  70.                 end if
  71.             elseif rs("user_view")=1 then
  72.                 rs2("user_money")=rs2("user_money")-rs("moneypay")
  73.                 rs2.update
  74.             end if
  75.         else
  76.             response.write"<script>alert('├╗╙╨┤╦╗ß╘▒╗≥┤╦╗ß╘▒╒²╘┌╔≤║╦╗≥┤╦╗ß╘▒╥╤▒╗╦°╢¿');location.href='index.asp';</script>"
  77.             response.end
  78.         end if
  79.         rs2.close
  80.         set rs2=nothing
  81.         channelcontent=replace(ChangeEmot(rs("channel_content")),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
  82.     else
  83.         if rs("user_view")="1" then
  84.             userview="╞╒═¿╗ß╘▒╥│├µ,"
  85.         elseif rs("user_view")="2" then
  86.             userview="VIP╗ß╘▒╥│├µ,"
  87.         end if
  88.         channelcontent="<table border=""0"" width=""98%""><tr><td height=""400""><p align=""center"" class=""disable_font"">"&userview&"─π├╗╙╨╚¿╧▐▓Θ┐┤┤╦╥│ú¼╟δ<a href=""index.asp"">╡╟┬╝</a>╗≥<a href=""user.asp"">╫ó▓ß</a>í¡í¡</p></td></tr></table>"
  89.     end if
  90. else
  91.     channelcontent=replace(ChangeEmot(rs("channel_content")),"<IMG","<IMG onload=""javascript:ContentImage(this);"" onmousewheel=""return cgimg(this);"" ")
  92. end if
  93. ShowContentPage=rs("ShowContentPage")
  94. if ShowContentPage=0 then
  95.     Ft_mbstr=replace(StrTemp(0),"$channelcontent$",channelcontent)
  96. elseif ShowContentPage=1 then
  97.     Ft_mbstr=replace(StrTemp(0),"$channelcontent$",AutoShowContentPage(channelid,channelcontent))
  98. elseif ShowContentPage=2 then
  99.     Ft_mbstr=replace(StrTemp(0),"$channelcontent$",FingerShowContentPage(channelid,channelcontent))
  100. else
  101.     Ft_mbstr=replace(StrTemp(0),"$channelcontent$",channelcontent)
  102. end if
  103. 'Ft_mbstr=replace(StrTemp(0),"$channelcontent$",channelcontent)
  104. Ft_mbstr=replace(Ft_mbstr,"$webname$",webname)
  105. Ft_mbstr=replace(Ft_mbstr,"$weburl$",weburl)
  106. Ft_mbstr=replace(Ft_mbstr,"$webboss$",webboss)
  107. Ft_mbstr=replace(Ft_mbstr,"$sitebuild$",sitebuild)
  108. Ft_mbstr=replace(Ft_mbstr,"$webemail$",webemail)
  109. '==================================
  110. '=╣ª    ─▄ú║╩Σ│÷
  111. '==================================
  112. response.write Ft_mbstr
  113. end sub
  114. rs.close
  115. set rs=nothing
  116. Function AutoShowContentPage(requestid,requestcontent)
  117. dim ChannelID,strContent,CurrentPage
  118. dim ContentLen,MaxPerPage,pages,i,lngBound
  119. dim BeginPoint,EndPoint,MaxPerPage_Content,ShowContentByPage
  120. ShowContentByPage="Yes"        '╞╡╡└─┌╚▌╩╟╖±╖╓╥│╧╘╩╛
  121. MaxPerPage_Content=2500        '├┐╥│╧╘╩╛┤≤╘╝╫╓╖√╩²
  122. ChannelID=requestid
  123. strContent=requestcontent
  124. ContentLen=len(strContent)
  125. CurrentPage=trim(request.querystring("showpage"))
  126. if ShowContentByPage="No" or ContentLen<=MaxPerPage_Content then
  127. str2=strContent
  128. if ShowContentByPage="Yes" then
  129. str2=str2+""
  130. end if
  131. else
  132. if CurrentPage="" then
  133. CurrentPage=1
  134. else
  135. CurrentPage=Cint(CurrentPage)
  136. end if
  137. pages=ContentLen\MaxPerPage_Content
  138. if MaxPerPage_Content*pages<ContentLen then
  139. pages=pages+1
  140. end if
  141. lngBound=MaxPerPage_Content          '╫ε┤≤╬≤▓ε╖╢╬º
  142. if CurrentPage<1 then CurrentPage=1
  143. if CurrentPage>pages then CurrentPage=pages
  144. dim lngTemp
  145. dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
  146. dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2
  147. dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2
  148. dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2
  149. dim lngTemp5,lngTemp5_1,lngTemp5_2
  150. dim lngTemp6,lngTemp6_1,lngTemp6_2
  151.  
  152. if CurrentPage=1 then
  153. BeginPoint=1
  154. else
  155. BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
  156. lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
  157. lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
  158. lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
  159. if lngTemp1_1_1>0 then
  160. lngTemp1_1=lngTemp1_1_1
  161. elseif lngTemp1_1_2>0 then
  162. lngTemp1_1=lngTemp1_1_2
  163. elseif lngTemp1_1_3>0 then
  164. lngTemp1_1=lngTemp1_1_3
  165. else
  166. lngTemp1_1=0
  167. end if
  168. lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
  169. lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
  170. lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
  171. if lngTemp1_2_1>0 then
  172. lngTemp1_2=lngTemp1_2_1
  173. elseif lngTemp1_2_2>0 then
  174. lngTemp1_2=lngTemp1_2_2
  175. elseif lngTemp1_2_3>0 then
  176. lngTemp1_2=lngTemp1_2_3
  177. else
  178. lngTemp1_2=0
  179. end if
  180. if lngTemp1_1=0 and lngTemp1_2=0 then
  181. lngTemp1=BeginPoint
  182. else
  183. if lngTemp1_1>lngTemp1_2 then
  184. lngtemp1=lngTemp1_2
  185. else
  186. lngTemp1=lngTemp1_1+8
  187. end if
  188. end if
  189. lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
  190. lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
  191. if lngTemp2_1_1>0 then
  192. lngTemp2_1=lngTemp2_1_1
  193. elseif lngTemp2_1_2>0 then
  194. lngTemp2_1=lngTemp2_1_2
  195. else
  196. lngTemp2_1=0
  197. end if
  198. lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
  199. lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
  200. if lngTemp2_2_1>0 then
  201. lngTemp2_2=lngTemp2_2_1
  202. elseif lngTemp2_2_2>0 then
  203. lngTemp2_2=lngTemp2_2_2
  204. else
  205. lngTemp2_2=0
  206. end if
  207. if lngTemp2_1=0 and lngTemp2_2=0 then
  208. lngTemp2=BeginPoint
  209. else
  210. if lngTemp2_1>lngTemp2_2 then
  211. lngtemp2=lngTemp2_2
  212. else
  213. lngTemp2=lngTemp2_1+4
  214. end if
  215. end if
  216. lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
  217. lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
  218. if lngTemp3_1_1>0 then
  219. lngTemp3_1=lngTemp3_1_1
  220. elseif lngTemp3_1_2>0 then
  221. lngTemp3_1=lngTemp3_1_2
  222. else
  223. lngTemp3_1=0
  224. end if
  225. lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
  226. lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
  227. if lngTemp3_2_1>0 then
  228. lngTemp3_2=lngTemp3_2_1
  229. elseif lngTemp3_2_2>0 then
  230. lngTemp3_2=lngTemp3_2_2
  231. else
  232. lngTemp3_2=0
  233. end if
  234.  
  235. if lngTemp3_1=0 and lngTemp3_2=0 then
  236. lngTemp3=BeginPoint
  237. else
  238. if lngTemp3_1>lngTemp3_2 then
  239. lngtemp3=lngTemp3_2
  240. else
  241. lngTemp3=lngTemp3_1+5
  242. end if
  243. end if
  244. if lngTemp1<lngTemp2 then
  245. lngTemp=lngTemp2
  246. else
  247. lngTemp=lngTemp1
  248. end if
  249. if lngTemp<lngTemp3 then
  250. lngTemp=lngTemp3
  251. end if
  252. if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
  253. BeginPoint=lngTemp
  254. else
  255. lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
  256. lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
  257. if lngTemp4_1_1>0 then
  258. lngTemp4_1=lngTemp4_1_1
  259. elseif lngTemp4_1_2>0 then
  260. lngTemp4_1=lngTemp4_1_2
  261. else
  262. lngTemp4_1=0
  263. end if
  264. lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
  265. lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
  266. if lngTemp4_2_1>0 then
  267. lngTemp4_2=lngTemp4_2_1
  268. elseif lngTemp4_2_2>0 then
  269. lngTemp4_2=lngTemp4_2_2
  270. else
  271. lngTemp4_2=0
  272. end if
  273. if lngTemp4_1=0 and lngTemp4_2=0 then
  274. lngTemp4=BeginPoint
  275. else
  276. if lngTemp4_1>lngTemp4_2 then
  277. lngtemp4=lngTemp4_2
  278. else
  279. lngTemp4=lngTemp4_1+5
  280. end if
  281. end if
  282.  
  283. if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
  284. BeginPoint=lngTemp4
  285. else
  286. lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
  287. lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
  288. if lngTemp5_1>0 then
  289. lngTemp5=lngTemp5_1
  290. elseif lngTemp5_2>0 then
  291. lngTemp5=lngTemp5_2
  292. else
  293. lngTemp5=BeginPoint
  294. end if
  295.  
  296. if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
  297. BeginPoint=lngTemp5
  298. else
  299. lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
  300. lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
  301. if lngTemp6_1>0 then
  302. lngTemp6=lngTemp6_1
  303. elseif lngTemp6_2>0 then
  304. lngTemp6=lngTemp6_2
  305. else
  306. lngTemp6=0
  307. end if
  308. if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
  309. BeginPoint=lngTemp6+4
  310. end if
  311. end if
  312. end if
  313. end if
  314. end if
  315. if CurrentPage=pages then
  316. EndPoint=ContentLen
  317. else
  318. EndPoint=MaxPerPage_Content*CurrentPage
  319. if EndPoint>=ContentLen then
  320. EndPoint=ContentLen
  321. else
  322. lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
  323. lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
  324. lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
  325. if lngTemp1_1_1>0 then
  326. lngTemp1_1=lngTemp1_1_1
  327. elseif lngTemp1_1_2>0 then
  328. lngTemp1_1=lngTemp1_1_2
  329. elseif lngTemp1_1_3>0 then
  330. lngTemp1_1=lngTemp1_1_3
  331. else
  332. lngTemp1_1=0
  333. end if
  334. lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
  335. lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
  336. lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
  337. if lngTemp1_2_1>0 then
  338. lngTemp1_2=lngTemp1_2_1
  339. elseif lngTemp1_2_2>0 then
  340. lngTemp1_2=lngTemp1_2_2
  341. elseif lngTemp1_2_3>0 then
  342. lngTemp1_2=lngTemp1_2_3
  343. else
  344. lngTemp1_2=0
  345. end if
  346. if lngTemp1_1=0 and lngTemp1_2=0 then
  347. lngTemp1=EndPoint
  348. else
  349. if lngTemp1_1>lngTemp1_2 then
  350. lngtemp1=lngTemp1_2-1
  351. else
  352. lngTemp1=lngTemp1_1+7
  353. end if
  354. end if
  355. lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
  356. lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
  357. if lngTemp2_1_1>0 then
  358. lngTemp2_1=lngTemp2_1_1
  359. elseif lngTemp2_1_2>0 then
  360. lngTemp2_1=lngTemp2_1_2
  361. else
  362. lngTemp2_1=0
  363. end if
  364. lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
  365. lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
  366. if lngTemp2_2_1>0 then
  367. lngTemp2_2=lngTemp2_2_1
  368. elseif lngTemp2_2_2>0 then
  369. lngTemp2_2=lngTemp2_2_2
  370. else
  371. lngTemp2_2=0
  372. end if
  373. if lngTemp2_1=0 and lngTemp2_2=0 then
  374. lngTemp2=EndPoint
  375. else
  376. if lngTemp2_1>lngTemp2_2 then
  377. lngTemp2=lngTemp2_2-1
  378. else
  379. lngTemp2=lngTemp2_1+3
  380. end if
  381. end if
  382. lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
  383. lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
  384. if lngTemp3_1_1>0 then
  385. lngTemp3_1=lngTemp3_1_1
  386. elseif lngTemp3_1_2>0 then
  387. lngTemp3_1=lngTemp3_1_2
  388. else
  389. lngTemp3_1=0
  390. end if
  391. lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
  392. lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
  393. if lngTemp3_2_1>0 then
  394. lngTemp3_2=lngTemp3_2_1
  395. elseif lngTemp3_2_2>0 then
  396. lngTemp3_2=lngTemp3_2_2
  397. else
  398. lngTemp3_2=0
  399. end if
  400. if lngTemp3_1=0 and lngTemp3_2=0 then
  401. lngTemp3=EndPoint
  402. else
  403. if lngTemp3_1>lngTemp3_2 then
  404. lngtemp3=lngTemp3_2-1
  405. else
  406. lngTemp3=lngTemp3_1+4
  407. end if
  408. end if
  409. if lngTemp1<lngTemp2 then
  410. lngTemp=lngTemp2
  411. else
  412. lngTemp=lngTemp1
  413. end if
  414. if lngTemp<lngTemp3 then
  415. lngTemp=lngTemp3
  416. end if
  417. if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
  418. EndPoint=lngTemp
  419. else
  420. lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
  421. lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
  422. if lngTemp4_1_1>0 then
  423. lngTemp4_1=lngTemp4_1_1
  424. elseif lngTemp4_1_2>0 then
  425. lngTemp4_1=lngTemp4_1_2
  426. else
  427. lngTemp4_1=0
  428. end if
  429. lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
  430. lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
  431. if lngTemp4_2_1>0 then
  432. lngTemp4_2=lngTemp4_2_1
  433. elseif lngTemp4_2_2>0 then
  434. lngTemp4_2=lngTemp4_2_2
  435. else
  436. lngTemp4_2=0
  437. end if
  438. if lngTemp4_1=0 and lngTemp4_2=0 then
  439. lngTemp4=EndPoint
  440. else
  441. if lngTemp4_1>lngTemp4_2 then
  442. lngtemp4=lngTemp4_2-1
  443. else
  444. lngTemp4=lngTemp4_1+4
  445. end if
  446. end if
  447. if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
  448. EndPoint=lngTemp4
  449. else
  450. lngTemp5_1=instr(EndPoint,strContent,"<img",1)
  451. lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
  452. if lngTemp5_1>0 then
  453. lngTemp5=lngTemp5_1-1
  454. elseif lngTemp5_2>0 then
  455. lngTemp5=lngTemp5_2-1
  456. else
  457. lngTemp5=EndPoint
  458. end if
  459. if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
  460. EndPoint=lngTemp5
  461. else
  462. lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
  463. lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
  464. if lngTemp6_1>0 then
  465. lngTemp6=lngTemp6_1+3
  466. elseif lngTemp6_2>0 then
  467. lngTemp6=lngTemp6_2+3
  468. else
  469. lngTemp6=EndPoint
  470. end if
  471. if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
  472. EndPoint=lngTemp6
  473. end if
  474. end if
  475. end if
  476. end if
  477. end if
  478. end if
  479. str2= mid(strContent,BeginPoint,EndPoint-BeginPoint)
  480. str2=str2+ "</p><p align='center'>"
  481. if CurrentPage>1 then
  482. str2=str2+  "<a href='channel.asp?id="&ChannelID&"&showpage="&CurrentPage-1&"'>╔╧╥╗╥│</a>  "
  483. end if
  484. for i=1 to pages
  485. if i=CurrentPage then
  486. str2=str2+  "<span class='key_font'>["&cstr(i)&"]</span> "
  487. else
  488. str2=str2+  "<a href='channel.asp?id="&ChannelID&"&showpage="&i&"'>["&i&"]</a> "
  489. end if
  490. next
  491. if CurrentPage<pages then
  492. str2=str2+  " <a href='channel.asp?id="&ChannelID&"&showpage="&CurrentPage+1&"'>╧┬╥╗╥│</a>"
  493. end if
  494. str2=str2+  "</p>"
  495. end if
  496. AutoShowContentPage=str2
  497. end function
  498.  
  499. function FingerShowContentPage(requestid,requestcontent)
  500. dim ChannelID,strContent,CurrentPage
  501. dim ContentLen,MaxPerPage,pages,i
  502. dim arrContent
  503. ChannelID=requestid
  504. strContent=requestcontent
  505. ContentLen=len(strContent)
  506. CurrentPage=trim(request.querystring("showpage"))
  507. if Instr(strContent,"[NextPage]")<=0 then
  508. str2=strContent
  509. else
  510. arrContent=split(strContent,"[NextPage]")
  511. pages=Ubound(arrContent)+1
  512. if CurrentPage="" then
  513. CurrentPage=1
  514. else
  515. CurrentPage=Cint(CurrentPage)
  516. end if
  517. if CurrentPage<1 then CurrentPage=1
  518. if CurrentPage>pages then CurrentPage=pages
  519. str2=arrContent(CurrentPage-1)
  520. str2=str2+"</p><p align='center'>"
  521. if CurrentPage>1 then
  522. str2=str2+"<a href='channel.asp?id="&ChannelID&"&showpage="&CurrentPage-1&"'>╔╧╥╗╥│</a>  "
  523. end if
  524. for i=1 to pages
  525. if i=CurrentPage then
  526. str2=str2+"<span class='key_font'>["&cstr(i)&"]</span> "
  527. else
  528. str2=str2+"<a href='channel.asp?id="&ChannelID&"&showpage="&i&"'>["&i&"]</a> "
  529. end if
  530. next
  531. if CurrentPage<pages then
  532. str2=str2+" <a href='channel.asp?id="&ChannelID&"&showpage="&CurrentPage+1&"'>╧┬╥╗╥│</a>"
  533. end if
  534. str2=str2+"</p>"
  535. end if
  536. FingerShowContentPage=str2
  537. end function
  538. %>
  539.