LT_HuiShou.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:2k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#Include File="../Inc/Head.Asp"--><%
  2. Private FangWen
  3. Set FangWen=New xkon_FangWen
  4. FangWen.FangWen()
  5. FangWen.A()
  6. Set FangWen=Nothing
  7. Private c,s
  8. Set c=New xkon_Response
  9. Set s=New xkon_Request
  10. Private Sub LieBiao()
  11. Dim p,i,Cn1
  12. p=s.QueryString("p")
  13. If p="" Then
  14. p=1
  15. Else
  16. p=Clng(p)
  17. End If
  18. Dim SQL
  19. SQL="Select * From TieZhi"
  20. SQL=SQL&" Where Shan='1' Order By ID Desc"
  21. c.Write("<form method=""post"" action=""LT_HuiShou.Asp""><table width=100% ><tr><td></td><td>ID</td><td>贴子名称</td><td>发贴人</td><td>点击数</td><td>回复数</td><td>状态</td><td></td><td></td></tr>")
  22. Call OpenData()
  23. Set Cn1=Server.CreateObject("Adodb.Recordset")
  24. Cn1.Open SQL,Conn,1,1
  25. Cn1.PageSize=20
  26. If Not Cn1.Eof Then
  27. Cn1.AbsolutePage=p
  28. End If
  29. For i=1 To 20
  30. If Cn1.Eof Then Exit For
  31. c.Write("<tr><td><input type=""checkbox"" name=""id"" value="""&Cn1("ID")&""" /></td><td>"&Cn1("ID")&"</td><td>"&Mid(Cn1("MingChen"),1,20)&"</td><td>"&Cn1("NiChen")&"</td><td>"&Cn1("DianJi")&"</td><td>"&Cn1("HuiFu")&"</td><td>"&Cn1("Qian")&"</td><td></td></tr>")
  32. Cn1.MoveNext
  33. Next
  34. c.Write("</table>")
  35. Call CPage(Cn1.PageCount,p,"LT_TieZhi.Asp")
  36. Cn1.Close
  37. Set Cn1=Nothing
  38. Call CloseData()
  39. c.Write("操作:<input type=""submit"" name=""submit"" value=""还原"" /><input type=""submit"" name=""submit"" value=""删除"" /></form>")
  40. End Sub
  41. Private Sub Submit1()
  42. Dim Submit,S_ID,ID,i,SQL
  43. Submit=s.Form("Submit")
  44. S_ID=Request.Form("ID")
  45. If S_ID="" Then
  46. Call xkon_Error("缺少操作对象")
  47. Else
  48. ID=Split(S_ID,",")
  49. For i=0 To Ubound(ID)
  50. If i=0 Then
  51. SQL=SQL&" ID="&Clng(ID(i))
  52. Else
  53. SQL=SQL&" Or ID="&Clng(ID(i))
  54. End If
  55. Next
  56. Call OpenData()
  57. Select Case Submit
  58. Case "还原"
  59. SQL="Update TieZhi Set Shan='0' Where"&SQL
  60. Conn.Execute(SQL)
  61. Call JiLu("还原贴子"&s.Form("ID"))
  62. Case "删除"
  63. SQL="Delete From TieZhi Where"&SQL
  64. Conn.Execute(SQL)
  65. Call JiLu("回收站删除贴子"&s.Form("ID"))
  66. End Select
  67. Call CloseData()
  68. End If
  69. End Sub
  70. Call H_Title("回收站")
  71. If s.Form("submit")<>"" Then
  72. Call Submit1()
  73. End If
  74. Call LieBiao()
  75. Call H_End()
  76. Set c=Nothing
  77. Set s=Nothing
  78. %>