conn.asp

一个互联网络公司网站源码

<%
if instr(request.ServerVariables("URL"),"login.asp")<1 then
	if session("loginID")=""  then
%>
<script>
parent.location.href="login.asp";
</script>
<%	 
	response.End()
	end if
end if

	set conn=server.CreateObject("adodb.connection")
	if connbl=1 then
	ConnStr="server=.;driver={sql server};database=TTNet;uid=sa;pwd="
	Else
	connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/oa.asa") 
	connstr="provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("db/oa.asa")  

	end if
	conn.open connstr
	
	Function getIP()    '获取客户端IP
		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) 
			actforip=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)
			actforip=Request.ServerVariables("REMOTE_ADDR")
		Else 
			strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
			actforip=Request.ServerVariables("REMOTE_ADDR")
		End If 
		getIP = CheckStr(Trim(Mid(strIPAddr, 1, 30)))
	End Function 
	Function Checkstr(Str)    '字符串检测
		If Isnull(Str) Then
			CheckStr = ""
			Exit Function 
		End If
		Str = Replace(Str,Chr(0),"")
		CheckStr = Replace(Str,"'","''")
	End Function


	Function TxtShift(txt)
		if trim(txt)<>"" then
			txt=Replace(txt,chr(10),"<br>")
			txt=Replace(txt,chr(32),"&nbsp")
		end if
		TxtShift=txt
    End Function
	Function ReTxtShift(txt)
		if trim(txt)<>"" then
			txt=Replace(txt,"<br>",chr(10))
			txt=Replace(txt,"&nbsp",chr(32))
		end if
		ReTxtShift=txt
    End Function
%>