ziliao.asp

支持IE 手机同步访问的WAP论坛社区程序

<!--#Include File="Inc/xkon.Asp"--><%
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Public Function xkon_FenXi1(X_Str)
		Dim Xkon_FenXi_Str
		Xkon_FenXi_Str=X_Str
		Dim Z_NiChen,ZhangHao,Z_XingBie,Z_NianLin,Z_GeRenSuoMing,Z_JingBi,Z_ZhuCeShiJian,Z_ZuiHouDenLuShiJian,Z_JingYan,Z_JiBie,Z_ZuiHouShuaXin,Z_TouXiang,Z_DiQu,Z_XingZuo,Z_HunFou,Z_ShengGao,Z_TiZhong,Z_XingQu,Z_ZhiYe,Z_XueXiao,Z_YuanWang,Z_GeRenZhuYe,Z_LunTanQianMing,Z_XingMing,Z_ShouJiHao,Z_ShengFenZhengHao
		ZhangHao=s.QueryString("ZhangHao")
		Dim Cn1,Cn2
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select * From ZhangHao Where ZhangHao='"&ZhangHao&"'"
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then
			Call xkon_Error("鎵句笉鍒拌