xiaoxi.asp

来自「支持IE 手机同步访问的WAP论坛社区程序 很不错」· ASP 代码 · 共 50 行

<!--#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&"&amp;Z="&Z&"{(xkon.cn)链接}&amp;")
			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
%>