haoyou.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Function HaoYouLieBiao()
		Dim p,i,Cn1
		p=s.QueryString_Long("p")
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select U_ZhangHao,U_NiChen From HaoYou Where ZhangHao='"&Zi_ZhangHao&"'",Conn,1,1
		Cn1.PageSize=Const_Page_Ys
		If Cn1.Eof Then Call xkon_Error("杩樻病鏈夊