XiaoXi_GuanLi.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:4k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#Include File="../Inc/Head.Asp"--><%
- Private FangWen
- Set FangWen=New xkon_FangWen
- FangWen.FangWen()
- FangWen.XiaoXi()
- Set FangWen=Nothing
- Private c,s
- Set c=New xkon_Response
- Set s=New xkon_Request
- Private Sub LieBiao()
- Dim Cn1,Cn2,SQL,p,Shou,Fa,a,i,ZhuangTai
- a=False
- Shou=s.QueryString_Str("Shou",1,250)
- Fa=s.QueryString_Str("Fa",1,250)
- ZhuangTai=s.QueryString_Str("ZhuangTai",1,1)
- p=s.QueryString_Long("p")
- SQL="Select * From XiaoXi"
- If Shou<>"" Then
- SQL=SQL&" Where Shou='"&Shou&"'"
- a=True
- End If
- If Fa<>"" Then
- If a=True Then
- SQL=SQL&" And Fa='"&Fa&"'"
- Else
- SQL=SQL&" Where Fa='"&Fa&"'"
- a=True
- End If
- End If
- If ZhuangTai<>"" Then
- If a=True Then
- SQL=SQL&" And ZhuangTai='"&ZhuangTai&"'"
- Else
- SQL=SQL&" Where ZhuangTai='"&ZhuangTai&"'"
- End If
- End If
- Call OpenData()
- Set Cn1=Server.CreateObject("Adodb.Recordset")
- Cn1.Open SQL,Conn,1,1
- Cn1.PageSize=20
- If Not Cn1.Eof Then
- Cn1.AbsolutePage=p
- End If
- c.Write("<form method=""post"" action=""XiaoXi_GuanLi.Asp?Fa="&Fa&"&Shou="&Shou&"&ZhuangTai="&ZhuangTai&"""><table width=100% ><tr><td></td><td>ID</td><td>发信人</td><td>收信人</td><td>发送内容</td><td>发送时间</td><td>已读</td><td>发信人昵称</td><td>延迟时间</td><td></td><td></td><td></td></tr>")
- For i=1 To 20
- If Cn1.Eof Then Exit For
- c.Write("<tr><td><input type=""checkbox"" name=""id"" value="""&Cn1("ID")&""" /></td><td>"&Cn1("ID")&"</td><td>"&Cn1("Fa")&"</td><td>"&Cn1("Shou")&"</td><td>"&Left(ReadTextFile(Cn1("ID"),Read_SZ("Folder_XiaoXi")),20)&"</td><td>"&Cn1("ShiJian")&"</td><td>"&Zhuan(Cn1("ZhuangTai"))&"</td><td>"&Cn1("NiChen")&"</td><td>"&Cn1("YanCi")&"</td><td><a href=""XiaoXi_GuanLi_CaoZuo.Asp?l=x&id="&Cn1("ID")&"&Shou="&Shou&"&Fa="&Fa&"&ZhuangTai="&ZhuangTai&""">查看</a></td><td><a href=""XiaoXi_GuanLi_CaoZuo.Asp?l=b&id="&Cn1("ID")&"&Shou="&Shou&"&Fa="&Fa&"&ZhuangTai="&ZhuangTai&""">编辑</a></td><td><a href=""XiaoXi_GuanLi_CaoZuo.Asp?l=s&id="&Cn1("ID")&"&Shou="&Shou&"&Fa="&Fa&"&ZhuangTai="&ZhuangTai&""" onClick=""if (confirm('确认操作')){return true;}else{return false;}"">删除</a></td></tr>")
- Cn1.MoveNext
- Next
- c.Write("</table>")
- Call CPage(Cn1.PageCount,p,"XiaoXi_GuanLi.Asp?Fa="&Fa&"&Shou="&Shou&"&")
- Cn1.Close
- Set Cn1=Nothing
- Call CloseData()
- c.Write("操作:<input type=""submit"" name=""Submit"" value=""删除"" onClick=""if (confirm('确认操作')){return true;}else{return false;}"" /></form>")
- End Sub
- Private Sub so()
- c.Write("<form method=""get"" action=""XiaoXi_GuanLi.Asp"">发信人:<input type=""text"" name=""fa"" />收信人:<input type=""text"" name=""Shou"" />状态:<select name=""ZhuangTai""><option value="""">全部</option><option value=""1"">已读</option><option value=""0"">未读</option></select><input type=""submit"" value=""搜索"" /></form>")
- End Sub
- Private Sub Delete()
- Dim SQL,ID,S_ID,i
- ID=Request.Form("ID")
- If ID="" Then
- Call xkon_Error("请先选中操作对象")
- Else
- S_ID=Split(ID,",")
- SQL="Delete From XiaoXi"
- For i=0 To Ubound(S_ID)
- If S_ID(i)="" Then Call xkon_Error("发生意外错误")
- If i=0 Then
- SQL=SQL&" Where ID="&Clng(S_ID(i))
- Else
- SQL=SQL&" Or ID="&Clng(S_ID(i))
- End If
- Next
- Call OpenData()
- Conn.Execute(SQL)
- Call JiLu("删除会员"&s.Form("ID"))
- Call CloseData()
- c.Writeln("删除成功")
- End If
- End Sub
- Call H_Title("消息管理")
- If s.Form("Submit")<>"" Then
- Call Delete()
- End If
- Call LieBiao()
- Call So()
- Call H_End()
- Set c=Nothing
- Set s=Nothing
- %>