XiaoXi.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:2k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#Include File="Inc/xkon.Asp"--><%
- Call QuanXian("1",0)
- Private c,s
- Set c=New xkon_Response
- Set s=New xkon_Request
- Private Function XiaoXiLieBiao()
- Dim Cn1,l,SQL,Z,p,i
- p=s.QueryString_Long("p")
- l=s.QueryString_Form("l")
- Z=s.QueryString_Form("Z")
- If l="" Then
- l=0
- Else
- l=CLng(l)
- End If
- If l>3 Or l<0 Then l=0
- SQL="Select * From XiaoXi"
- Select Case l
- Case 0
- SQL=SQL&" Where Shou='"&Zi_ZhangHao&"' Or Fa='"&Zi_ZhangHao&"'"
- Case 1
- SQL=SQL&" Where Shou='"&Zi_ZhangHao&"' And Fa='"&Z&"'"
- Case 2
- SQL=SQL&" Where Shou='"&Z&"' And Fa='"&Zi_ZhangHao&"'"
- Case 3
- SQL=SQL&" Where (Shou='"&Zi_ZhangHao&"' And Fa='"&Z&"') Or (Shou='"&Z&"' And Fa='"&Zi_ZhangHao&"')"
- End Select
- SQL=SQL&" Order By ShiJian Desc"
- Call OpenData()
- Set Cn1=Server.CreateObject("Adodb.RecordSet")
- Cn1.Open SQL,Conn,1,1
- Cn1.PageSize=Const_Page_Ys
- If Cn1.Eof Then Call xkon_Error("未找到任何记录")
- Cn1.AbsolutePage=p
- For i=1 To Const_Page_Ys
- If Cn1.Eof Then Exit For
- XiaoXiLieBiao=XiaoXiLieBiao&"<a href=""ZiLiao.Asp?ZhangHao="&Cn1("Fa")&"{(xkon.cn)链接}"">"&Cn1("NiChen")&"</a>:"&ReadTextFile(Cn1("ID"),Read_SZ("Folder_XiaoXi"))&"<a href=""ZiLiao.Asp?ZhangHao="&Cn1("Shou")&"{(xkon.cn)链接}"">"&Cn1("Shou")&"</a><br/>"
- Cn1.MoveNext
- Next
- XiaoXiLieBiao=XiaoXiLieBiao&CPage(Cn1.PageCount,p,"XiaoXi.Asp?l="&l&"&Z="&Z&"{(xkon.cn)链接}&")
- Cn1.Close
- Set Cn1=Nothing
- Call CloseData()
- End Function
- Call H_Title("我的消息")
- c.Write(xkon_FenXi(Replace(Read_Text("XiaoXi"),xkon_S("消息列表"),XiaoXiLieBiao())))
- Call H_End()
- Set c=Nothing
- Set s=Nothing
- %>