⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 xkon.asp

📁 支持IE 手机同步访问的WAP论坛社区程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
End Function
Public Function Zhuan(X_Str)
	If X_Str="1" Then
		Zhuan="是"
	Else
		Zhuan="否"
	End If
End Function
Public Function null_Str(N_Str)
	If IsNull(N_Str) Then
		Null_Str=""
	Else
		Null_Str=N_Str
	End If
End Function
Public Function Checkstr(C_Str)
	If IsNull(C_Str) Then Exit Function
	C_Str=Trim(C_Str)
	C_Str=Replace(C_Str,"&","&")
	C_Str=Replace(C_Str,"'","'")
	C_Str=Replace(C_Str,">",">")
	C_Str=Replace(C_Str,"<","&lt;")
	C_Str=Replace(C_Str," ","&nbsp;")
	C_Str=Replace(C_Str,"""","&quot;")
	C_Str=Replace(C_Str,",","，")
	C_Str=Replace(C_Str,"xkon.cn","xkon.cn新空程序网")
	C_Str=Replace(C_Str,"(","（")
	C_Str=Replace(C_Str,")","）")
	Checkstr=C_Str
End Function
Public Function xkon_S(XX_xkon_S)
	xkon_s="{(xko"&"n.cn)"&XX_xkon_S&"}"
End Function
Public Function Readusip()
  Dim strIPAddr
  If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
      strIPAddr = Request.ServerVariables("REMOTE_ADDR")
  ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
      strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
  ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
      strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
  Else
      strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  End If
  Readusip = Trim(Mid(strIPAddr, 1, 30))
End Function
Public Function xkon_WeiZhi()
	Dim Str1,Str2,Str3,Str4,Num,Sip
	Sip=ReadUsip()
	If IsNumeric(Left(Sip,2)) Then
		If Sip="127.0.0.1" Then Sip="192.168.0.1"
			str1=Left(sip,InStr(sip,".")-1)
			sip=mid(sip,instr(sip,".")+1)
			str2=Left(sip,instr(sip,".")-1)
			sip=Mid(sip,InStr(sip,".")+1)
			str3=Left(sip,instr(sip,".")-1)
			str4=Mid(sip,instr(sip,".")+1)
			If isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 Then
			Else		
				num=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
				Call OpenData2()
				Dim Cn1,Cn2
				Set Cn1=Server.CreateObject("Adodb.Command")
				Cn1.ActiveConnection=Conn2
				Cn1.CommandType=1
				Cn1.CommandText="select * from ip where startip <="&num&" and endip >="&num&""
				Set Cn2=Cn1.Execute
				If Cn2.Eof Then
					xkon_WeiZhi="找不到该IP的具体位置"
				Else
					xkon_WeiZhi=Cn2("local")
				End If
				Set Cn2=Nothing
				Set Cn1=Nothing
				Call CloseData2()
			End If
		Else
			xkon_WeiZhi="未知地址"
	End If
End Function
Public Function Read_Text(Text_Name)
	Dim FSO,FS
	Set FSO=Server.CreateObject("Scripting.FileSystemObject")
	Set FS=FSO.OpenTextFile(Server.Mappath("Inc/"&Text_Name&".xkon.cn.Asp"))
	Read_Text=Replace(FS.ReadAll,"<%","")
	FS.Close
	Set FS=Nothing
	Set FSO=Nothing
End Function
Public Function xkon_FenXi(Str)
	Dim xkon_Str
	Dim xkon_URL,xkon_HouZui
	xkon_HouZui=LCase(Request.ServerVariables("Query_String"))
	xkon_HouZui=Replace(xkon_HouZui,"n=&","")
	xkon_HouZui=Replace(xkon_HouZui,"yuyan=fan","n=")
	xkon_HouZui=Replace(xkon_HouZui,"yuyan=jian","n=")
	xkon_HouZui=Replace(xkon_HouZui,"yuyan=","n=")
	Dim xkon_HouZui1
	If xkon_HouZui="" Then
		xkon_HouZui1=""
	Else
		xkon_HouZui1="&amp;"
	End If
	xkon_URL=Request.ServerVariables("URL")
	xkon_Str=Str
	If Instr(xkon_Str,xkon_S("标题"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("标题"),xkon_Title)
	If Instr(xkon_Str,xkon_S("地址"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("地址"),xkon_URL)
	If Instr(xkon_Str,xkon_S("论坛名称"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("论坛名称"),Read_SZ("LT_Name"))
	If Instr(xkon_Str,xkon_S("标识"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("标识"),xkon)
	If Instr(xkon_Str,"(ip)")>0 Then xkon_Str=Replace(xkon_Str,"(ip)",Readusip())
	Dim DenLu_Str
	If Zi_DenLu=False Then
		DenLu_Str="<a href=""DenLu.Asp?n={(xkon.cn)链接}"">登录</a>"
	Else
		DenLu_Str="<a href=""DiPan.Asp?n={(xkon.cn)链接}"">家园</a>"
	End If
	If Instr(xkon_Str,"(昵称)")>0 Then xkon_Str=Replace(xkon_Str,"(昵称)",Zi_NiChen)
	If Instr(xkon_Str,"(账号)")>0 Then xkon_Str=Replace(xkon_Str,"(账号)",Zi_ZhangHao)
	If Instr(xkon_Str,xkon_S("登陆"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("登陆"),DenLu_Str)
	If Instr(xkon_Str,xkon_S("昵称"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("昵称"),Zi_NiChen)
	If Instr(xkon_Str,xkon_S("账号"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("账号"),Zi_ZhangHao)
	If InStr(xkon_Str,xkon_S("广告"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("广告"),Ad())
	If Instr(xkon_Str,xkon_S("链接"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("链接"),Str_DiZhi)
	If Instr(xkon_Str,xkon_S("网站名称"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("网站名称"),Read_SZ("W_Name"))
	If Instr(xkon_Str,xkon_S("网站地址"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("网站地址"),Read_SZ("W_DiZhi"))
	If Instr(xkon_Str,xkon_S("账号名称"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("账号名称"),Read_SZ("ZhangHao_MingChen"))
	If Instr(xkon_Str,xkon_s("语言值"))>0 Then xkon_Str=Replace(xkon_Str,xkon_s("语言值"),Request.QueryString("YuYan"))
	If Instr(xkon_Str,xkon_s("博客名称"))>0 Then xkon_Str=Replace(xkon_Str,xkon_s("博客名称"),Read_SZ("BoKe_MingChen"))
	If Instr(xkon_Str,xkon_S("家族名称"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("家族名称"),Read_SZ("JiaZhu_MingChen"))
	If Instr(xkon_Str,xkon_S("消息名称"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("消息名称"),Read_SZ("XiaoXi_MingChen"))
	If Instr(xkon_Str,xkon_S("金币名称"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("金币名称"),Read_SZ("JingBi_Name"))
	If Instr(xkon_Str,xkon_S("在线数"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("在线数"),Application("ZaiXian"))
	If Instr(xkon_Str,xkon_S("语言"))>0 Then xkon_Str=Replace(xkon_Str,xkon_S("语言"),"语言:<a href="""&xkon_URL&"?"&xkon_HouZui&xkon_HouZui1&"YuYan="">原文</a>.<a href="""&xkon_URL&"?"&xkon_HouZui&xkon_HouZui1&"YuYan=Jian"">简体</a>.<a href="""&xkon_URL&"?"&xkon_HouZui&xkon_HouZui1&"YuYan=Fan"">繁体</a>")
	If Instr(xkon_Str,"(br)")>0 Then xkon_Str=Replace(xkon_Str,"(br)","<br/>")
	If Instr(xkon_Str,"(time)")>0 Then xkon_Str=Replace(xkon_Str,"(time)",Time())
	If Instr(xkon_Str,"(now)")>0 Then xkon_Str=Replace(xkon_Str,"(now)",Now())
	Dim Re
	Set Re=New RegExp
	Re.IgnoreCase=True
	Re.Global=True
	Re.Pattern="(\(img\))(.{5,50}?)(\(\/img\))"
	xkon_Str=Re.Replace(xkon_Str,"<img src=""$2"" alt=""图片"" />")
	Re.Pattern="(\(url\))([A-Za-z0-9\./=\?%\-&_&#x7E;`@':+!;*()#]+)(\(\/url\))"
	xkon_Str=Re.Replace(xkon_Str,"<a href=""$2"">$2</a>")
	Re.Pattern="(\(url=)([A-Za-z0-9\./=\?%\-&_&#x7E;`@':+!;*()#]+)\)(.+?)(\(\/url\))"
	xkon_Str=Re.Replace(xkon_Str,"<a href=""$2"">$3</a>")
	Re.Pattern="(\(b\))(.[^\[]*)(\(\/b\))"
	xkon_Str=Re.Replace(xkon_Str,"<big>$2</big>")
	Re.Pattern="(\(s\))(.[^\[]*)(\(\/s\))"
	xkon_Str=Re.Replace(xkon_Str,"<small>$2</small>")
	Set Re=Nothing
	xkon_FenXi=xkon_Str
End Function
Private Function Ad()
	If Application("Ad")="" Then Call Load_Ad()
	Dim Ads,i
	Ads=Split(Application("Ad"),"&xkon.cn&")
	If Ubound(Ads)>0 Then
		Randomize
		i=CLng((Rnd*(Ubound(Ads)-1))+1)
		Ad=Ads(i)
	End If
End Function
Private Sub Load_Ad()
	Application("Ad")=""
	Dim Cn1,i
	Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.RecordSet")
		Cn1.Open "Select Tu,WenZi,DiZhi From SZ_GG",Conn,1,1
		If Not Cn1.Eof Then
			For i=1 To Cn1.RecordCount
				If Cn1("Tu")="" Then
					Application("Ad")=Application("Ad")&"&xkon.cn&<a href="""&Cn1("DiZhi")&""">"&Cn1("WenZi")&"</a>"
				Else
					Application("Ad")=Application("Ad")&"&xkon.cn&<a href="""&Cn1("DiZhi")&"""><img src="""&Cn1("Tu")&""" alt="""&Cn1("WenZi")&""" /></a>"
				End If
				Cn1.MoveNext
			Next
		Else
			Application("Ad")="x"
		End If
	Call CloseData()
End Sub
Class xkon_Request
	Public Function Form(xkon_Request_Str)
		xkon_Request_Str=Request.Form(xkon_Request_Str)
		xkon_Request_Str=Checkstr(xkon_Request_Str)
		Form=xkon_Request_Str
	End Function
	Public Function QueryString_Form(xkon_Request_Str)
		QueryString_Form=Request.Form(xkon_Request_Str)
		If QueryString_Form="" Then QueryString_Form=Request.QueryString(xkon_Request_Str)
		QueryString_Form=CheckStr(QueryString_Form)
	End Function
	Public Function QueryString(xkon_QueryString_Str)
		xkon_QueryString_Str=Request.QueryString(xkon_QueryString_Str)
		xkon_QueryString_Str=Checkstr(xkon_QueryString_Str)
		QueryString=xkon_QueryString_Str
	End Function
	Public Function Form_long(xkon_Request_Str)
		xkon_Request_Str=Request.Form(xkon_Request_Str)
		If xkon_Request_Str="" Then
			xkon_Request_Str=1
		ElseIf IsNumeric(xkon_Request_Str) Then
			xkon_Request_Str=Clng(xkon_Request_Str)
		Else
			xkon_Request_Str=1
		End If
		Form_long=xkon_Request_Str
	End Function
	Public Function Form_Str(xkon_Request_Str,d,c)
		Dim xkon_Request_Str1
		xkon_Request_Str1=Checkstr(Request.Form(xkon_Request_Str))
		If xkon_Request_Str1<>"" Then
			If len(xkon_Request_Str1)<d Then
				Call xkon_Error("提交的长度不能小于"&d&"位<br/>参数:"&xkon_Request_Str)
			End If
			If Len(xkon_Request_Str1)>c Then
				Call xkon_Error("提交的长度不能小于"&c&"位<br/>参数:"&xkon_Request_Str)
			End If
			Form_Str=xkon_Request_Str1
		End If
	End Function
	Public Function QueryString_Str(xkon_Request_Str,d,c)
		Dim xkon_Request_Str1
		xkon_Request_Str1=Checkstr(Request.QueryString(xkon_Request_Str))
		If xkon_Request_Str1<>"" Then
			If len(xkon_Request_Str1)<d Then
				Call xkon_Error("提交的长度不能小于"&d&"位<br/>参数:"&xkon_Request_Str)
			End If
			If Len(xkon_Request_Str1)>c Then
				Call xkon_Error("提交的长度不能小于"&c&"位<br/>参数:"&xkon_Request_Str)
			End If
			Form_QueryString=xkon_Request_Str1
		End If
	End Function
	Public Function QueryString_long(xkon_Request_Str)
		xkon_Request_Str=Request.QueryString(xkon_Request_Str)
		If xkon_Request_Str="" Then
			xkon_Request_Str=1
		ElseIf IsNumeric(xkon_Request_Str) Then
			xkon_Request_Str=Clng(xkon_Request_Str)
		Else
			xkon_Request_Str=1
		End If
		QueryString_long=xkon_Request_Str
	End Function
	Public Function Form_aa(xkon_Request_Str,d,c)
		Dim xkon_Request_Str1
		xkon_Request_Str1=Request.Form(xkon_Request_Str)
		If xkon_Request_Str1<>"" Then
			If aa(xkon_Request_Str1)=False Then
				Call xkon_Error("字符只能是由字母或数字组成<br/>参数:"&xkon_Request_Str)
			End If
			If Len(xkon_Request_Str1)<d Then
				Call xkon_Error("提交的长度不能小于"&d&"位<br/>参数:"&xkon_Request_Str)
			End If
			If Len(xkon_Request_Str1)>c Then
				Call xkon_Error("提交的长度不能大于"&d&"位<br/>参数:"&xkon_Request_Str)
			End If
			Form_aa=xkon_Request_Str1
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -