conn.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<!--#INCLUDE FILE="codeun.asp"-->
<%
'====================================数据库配置信息========================================================================

	dbpath = "/wz/data/sitesdata .asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.CommandTimeOut = 120
	connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.mappath(dbpath)
    conn.mode  =  3
    conn.Open connstr
	
'====================================站点基本配置信息======================================================================

'	Const SiteName = "泡泡联盟"            '站点名称
'	Const IndexCount = 12                  '首先显示记录数
'	Const Shield = True                    '是否屏蔽Opera等非手机浏览器的访问，True为是，False为否
'	Const ShieldRedirect = "alert.asp"     '屏蔽后，浏览器转向地址，当Shield = False时，此设置无效

	Dim mysiteinfo,logo,mywapname,mywaphost,mywapcatchword,mywaphome,mywapqq,myunionname,myuniontopsize,myunionpagesize,myunionfrom,myunionisviewsite,myunionautohideday,myunionautodelday,adminname
	If request.querystring("main") <>"" Then
		strtmp = "where adminname = '" & request.querystring("main") & "'"
	Else 
		strtmp = ""
	End If
	If session("admin") <> "" Then
		strtmp = " where adminname = '" & session("admin") & "'"
	End If
	Set rsTmp = Server.CreateObject("ADODB.RecordSet")
	sql = "select top 1 * from admin " '& strtmp
	rsTmp.open sql,conn,1,1
	mywapname = rsTmp("mywapname")
	mywapqq = rsTmp("mywapqq")
	mywaphost = rsTmp("mywaphost")
	mywaphome = rsTmp("mywaphome")
	mywapcatchword = rsTmp("mywapcatchword")
	myunionname = rsTmp("myunionname")
	myuniontopsize = rsTmp("myuniontopsize")
	myunionpagesize = rsTmp("myunionpagesize")
	myunionfrom = rsTmp("myunionfrom")
	myunionisviewsite = rsTmp("myunionisviewsite")
	myunionautohideday = rsTmp("myunionautohideday")
	myunionautodelday = rsTmp("myunionautodelday")
	purview = rsTmp("purview")
	If session("admin") <> "" Then
		adminname = session("admin")
	End If
	rsTmp.close
	Set rsTmp = Nothing	

'====================================公用函数==============================================================================
	
	'判断客户端是否通过手机访问；是否记录非移动手机IP
	Function isMobile(isRecord)
		isMobile = True
		Dim userua,browsers,uucun

		userua = Request.ServerVariables("HTTP_USER_AGENT")
		browsers = Lcase(Left(userua,4))
		uucun = Lcase(Left(userua,12))
		If browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="fetc" or browsers="r380" or browsers="mozi" or browsers="tdr/" or uucun="nec-n820 yes" Then
			isMobile = False
			'Response.Write "uerua=" & userua & "<br/>"
		End If
		
		'判断客户端是否移动手机IP
		Dim img,userip,useip,uatmp,tmp,siteid,ipaddr,forip,ipfor,frompage,sql
		forip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
		uatmp = Request.ServerVariables("HTTP_USER_AGENT")
		tmp = left(uatmp,28)
		useip = Request.ServerVariables("REMOTE_ADDR") 
		frompage = request.ServerVariables("HTTP_REFERER")
		frompage = left(frompage,75)
		ipaddr = Clng(left(trim(replace(useip,".","")),6))
		If (ipaddr<>211103 and ipaddr<211136) or (ipaddr>211143 and ipaddr<218200) or (ipaddr>218207 and ipaddr<221130) or (ipaddr>221131) Then			
			If isRecord Then '是否记录非移动手机IP
				'Response.Write "useip=" & useip & "<br/>"
				sql = "insert into ipbad(siteid,ipaddr,ipaddrx,ua,frompage) values("
				sql = sql & sqlstr(id) & ","
				sql = sql & sqlstr(useip) & ","
				sql = sql & sqlstr(forip) & ","
				sql = sql & sqlstr(tmp) & ","
				sql = sql & sqlstr(frompage) & ")"
				'Response.Write "sql=" & sql & "<br/>"
				conn.execute sql
			End If
			isMobile = False
		End If
	End Function
%>