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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
B;LieBiao.Asp
资源名称：4.rar　[点击查看]
上传用户：zhbanny
上传日期：2020-11-04
资源大小：161k
文件大小：5k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

B;LieBiao.Asp：源码内容
  1. <!--#Include File="Inc/xkon.Asp"--><%
  2. Private c,s
  3. Set c=New xkon_Response
  4. Set s=New xkon_Request
  5. Dim ID,Cn1,i,l
  6. l=s.QueryString("l")
  7. ID=S.QueryString_Long("ID")
  8. Call BanKuai_Du(ID)
  9. Private Function BanZhuLieBiao()
  10. If DuQu_BanKuai(ID,"XianShi_BanZhu")="0" Then BanZhuLieBiao="":Exit Function
  11. Call OpenData()
  12. Set Cn1=Server.CreateObject("Adodb.RecordSet")
  13. Cn1.Open "Select MingChen,HuiYuan From BanZhu Where BanKuai="&ID,Conn,1,1
  14. If Cn1.Eof Then BanZhuLieBiao="无<br/>":Cn1.Close:Set Cn1=Nothing:Call CloseData():Exit Function
  15. For i=1 To Cn1.RecordCount
  16. BanZhuLieBiao=BanZhuLieBiao&"<a href=""ZiLiao.Asp?ZhangHao="&Cn1("HuiYuan")&"{(xkon.cn)链接}"">"&Cn1("MingChen")&"</a>"
  17. Cn1.MoveNext
  18. Next
  19. Cn1.Close
  20. Set Cn1=Nothing
  21. Call CloseData()
  22. End Function
  23. Private Function LOGO()
  24. If DuQu_BanKuai(ID,"XianShi_LOGO")="0" Then LOGO="":Exit Function
  25. LOGO="<img src="""&DuQu_BanKuai(ID,"BanKuai_LOGO")&""" alt=""logo"" /><br/>"
  26. End Function
  27. Private Function XiaJi()
  28. If DuQu_BanKuai(ID,"XianShi_XiaJi")="0" Then Exit Function
  29. Call OpenData()
  30. Dim Cn1,i
  31. Set Cn1=Server.CreateObject("Adodb.RecordSet")
  32. Cn1.Open "Select BanKuai_MingChen,ID From BanKuai Where ShangJi_ID="&ID,Conn,1,1
  33. For i=1 To Cn1.RecordCount
  34. XiaJi=XiaJi&"<a href=""B;LieBiao.Asp?ID="&Cn1("ID")&"{(xkon.cn)链接}"">"&Cn1("MingChen")&"</a><br/>"
  35. Cn1.MoveNext
  36. Next
  37. Cn1.Close
  38. Set Cn1=Nothing
  39. Call CloseData()
  40. End Function
  41. Private Function Q(Q_Str)
  42. Dim Q_Jing,Q_Ding,Q_Suo,Q_Re
  43. Q_Jing=Read_SZ("TuBiao_Jing")
  44. Q_Ding=Read_SZ("TuBiao_Ding")
  45. Q_Suo=Read_SZ("TuBiao_Suo")
  46. Q_Re=Read_SZ("TuBiao_Re")
  47. If Q_Jing<>"" Then
  48. Q_Str=Replace(Q_Str,"[精]","<img src="""&Q_Jing&""" alt=""[精]"" />")
  49. End If
  50. If Q_Ding<>"" Then
  51. Q_Str=Replace(Q_Str,"[顶]","<img src="""&Q_Ding&""" alt=""[顶]"" />")
  52. End If
  53. If Q_Suo<>"" Then
  54. Q_Str=Replace(Q_Str,"[锁]","<img src="""&Q_Suo&""" alt=""[锁]"" />")
  55. End If
  56. If Q_Re<>"" Then
  57. Q_Str=Replace(Q_Str,"[热]","<img src="""&Q_Re&""" alt=""[热]"" />")
  58. End If
  59. Q=Q_Str
  60. End Function
  61. Private Function TieZhiLieBiao()
  62. Dim Cn1,p,i,SQL
  63. p=s.QueryString_Long("p")
  64. If l="" Then
  65. SQL="Select id,MingChen,NiChen,DianJi,HuiFu,Qian From TieZhi Where Shan='0' And BanKuai="&ID&" Order By ZuiHouHuiFu Desc"
  66. Else
  67. SQL="Select id,MingChen,NiChen,DianJi,HuiFu,Qian From TieZhi Where Shan='0' And BanKuai="&ID&" And Qian Like '%[精]%' Order By ZuiHouHuiFu Desc"
  68. End If
  69. Call OpenData()
  70. Set Cn1=Server.CreateObject("Adodb.RecordSet")
  71. Cn1.Open SQL,Conn,1,1
  72. Cn1.PageSize=Const_Page_Ys
  73. If Cn1.Eof Then TieZhiLieBiao="暂时没有贴子<br/>":Cn1.Close:Set Cn1=Nothing:Call CloseData():Exit Function
  74. Cn1.AbsolutePage=p
  75. For i=1 To Const_Page_Ys
  76. If Cn1.Eof Then Exit For
  77. TieZhiLieBiao=TieZhiLieBiao&Q(Cn1("Qian"))&(p-1)*Const_Page_Ys+i&".<a href=""B;NeiRong.Asp?tp="&p&"&amp;TID="&Cn1("ID")&"&amp;l="&l&"&amp;ID="&ID&"{(xkon.cn)链接}"">"&Cn1("MingChen")&"</a><br/>"&Cn1("NiChen")&"("&Cn1("DianJi")&"/"&Cn1("HuiFu")&")<br/>"
  78. Cn1.MoveNext
  79. Next
  80. TieZhiLieBiao=TieZhiLieBiao&CPage(Cn1.PageCount,P,"B;LieBiao.Asp?ID="&ID&"&amp;l="&l&"{(xkon.cn)链接}&amp;")
  81. Cn1.Close
  82. Set Cn1=Nothing
  83. Call CloseData()
  84. End Function
  85. Private Function ShangJi()
  86. If DuQu_BanKuai(ID,"ShangJi_ID")="0" Then Exit Function
  87. ShangJi="<a href=""B;LieBiao.Asp?ID="&Read_BanKuai(ID,"ShangJi_ID")&"{(xkon.cn)链接}"">返回"&DuQu_BanKuai(ID,"ShangJi_Str")&"</a>"
  88. End Function
  89. Private Function xkon_FenXi1(xkon_FenXi1_Str)
  90. xkon_FenXi1=xkon_FenXi1_Str
  91. Dim Jing
  92. If l="" Then
  93. Jing="<a href=""B;LieBiao.Asp?ID="&ID&"&amp;l=j{(xkon.cn)链接}"">精华</a>"
  94. Else
  95. Jing="<a href=""B;LieBiao.Asp?ID="&ID&"&amp;l={(xkon.cn)链接}"">普通</a>"
  96. End If
  97. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("管理员列表"),BanZhuLieBiao())
  98. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("LOGO"),LOGO())
  99. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("下级版面"),XiaJi())
  100. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("贴子列表"),TieZhiLieBiao())
  101. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("管理员账号"),DuQu_BanKuai(ID,"BanKuai_BanZhu"))
  102. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("管理员昵称"),DuQu_BanKuai(ID,"BanZhu_NiChen"))
  103. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("上级版面"),ShangJi())
  104. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("编号"),ID)
  105. xkon_FenXi1=Replace(xkon_FenXi1,xkon_S("精华"),Jing)
  106. End Function
  107. Call H_Title("{(xkon.cn)家族名称}-"&DuQu_BanKuai(ID,"BanKuai_MingChen"))
  108. c.Write(xkon_FenXi(xkon_FenXi1(Read_Text("B;LieBiao"))))
  109. Call H_End()
  110. Set c=Nothing
  111. Set s=Nothing
  112. %>