ASP过滤SQL非法字符并格式化html代码，不错的功能函数集

分类：程序开发 Tags： asp 函数评论：0 浏览：4268 最近更新时间：2009/7/23 13:27:43

<%
'过滤SQL非法字符并格式化html代码
function Replace_Text(fString)
if isnull(fString) then
Replace_Text=""
exit function
else
fString=trim(fString)
fString=replace(fString,"'","''")
fString=replace(fString,";","；")
fString=replace(fString,"--","—")
fString=server.htmlencode(fString)
Replace_Text=fString
end if
end function
'会员发布的各种信息过滤
'Function Replace_Text(fString)
'If Not IsNull(fString) Then
'fString = trim(fString)
'fString = replace(fString, ";", "；") '分号过滤
'fString = replace(fString, "--", "——") '--过滤
'fString = replace(fString, "%20", "") '特殊字符过滤
'fString = replace(fString, "==", "") '==过滤
'fString = replace(fString, ">", ">")
'fString = replace(fString, "<", "<")
'fString = Replace(fString, CHR(32), " ") ' 
'fString = Replace(fString, CHR(9), " ") ' 
'fString = Replace(fString, CHR(34), """)
'fString = Replace(fString, CHR(39), "'") '单引号过滤
'fString = Replace(fString, CHR(13), "")
'fString = Replace(fString, CHR(10) & CHR(10), " ")
'fString = Replace(fString, CHR(10), " ")
'Replace_Text = fString
'End If
'End Function
'过滤SQL非法字符
Function checkStr(Chkstr)
dim Str:Str=Chkstr
if isnull(Str) then
checkStr = ""
exit Function
else
Str=replace(Str,"'","")
Str=replace(Str,";","")
Str=replace(Str,"--","")
checkStr=Str
end if
End Function
'检测传递的参数是否为数字型
Function Chkrequest(Para)
Chkrequest=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
Chkrequest=True
End If
End Function
'检测传递的参数是否为日期型
Function Chkrequestdate(Para)
Chkrequestdate=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsDate(Para)) Then
Chkrequestdate=True
End If
End Function
'得到当前页面的地址
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & CheckStr(Trim(Request.QueryString))
GetUrl = strTemp
End Function
'Function CheckReferer() '检查用户是否在浏览器里输入了本页的地址
' Dim sReferer, Icheck
' CheckReferer = True
' sReferer = Request.ServerVariables("HTTP_REFERER")
' ServerIP = Request.ServerVariables("LOCAL_ADDR")
' Icheck = InStr(sReferer, "ServerIP")
' If Icheck = 0 Then
' CheckReferer = False
' End If
'End Function
'日期格式化
Function FormatDate(DT,tp)
dim Y,M,D
Y=Year(DT)
M=month(DT)
D=Day(DT)
if M<10 then M="0"&M
if D<10 then D="0"&D
select case tp
case 1 FormatDate=Y&"年"&M&"月"&D&"日"
case 2 FormatDate=Y&"-"&M&"-"&D
end select
End Function
'不允许外部提交数据的选择
Function ChkPost()
dim HTTP_REFERER,SERVER_NAME
dim server_v1,server_v2
chkpost=false
SERVER_NAME=CheckStr(Request.ServerVariables("SERVER_NAME"))
HTTP_REFERER=CheckStr(Request.ServerVariables("HTTP_REFERER"))
server_v1=Cstr(HTTP_REFERER)
server_v2=Cstr(SERVER_NAME)
if mid(server_v1,8,len(server_v2))<>server_v2 then
chkpost=false
else
chkpost=true
end if
End Function
'构造上传图片文件名随机数
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
'Email检测
function IsValidEmail(email)
dim names, name, i, c
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
'Jmail邮件发送
Function SendJmail(Email,Topic,MailBody)
Dim JMail
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true
JMail.silent = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.Sender = "wemaster@alibaba.info" '我们网站自己的邮箱
JMail.ReplyTo = "wemaster@alibaba.info" '我们网站自己的邮箱
JMail.SenderName = "阿里爸爸邮件发送"
JMail.Subject = Topic
JMail.SimpleLayout = true
JMail.Body = MailBody
JMail.Priority = 3
JMail.AddRecipient Email
JMail.AddHeader "Originating-IP", GBL_IPAddress
If JMail.Execute() = false Then
SendJmail = 0
Else
SendJmail = 1
End If
JMail.Close
Set JMail = Nothing
End Function
'分页
Function listPages(LinkFile)
if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1
' if instr(linkfile,"?page=")>0 or instr(linkfile,"&page=")>0 then
' pos=instr(linkfile,"page=")-2
' linkfile=left(linkfile,pos)
' end if
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then
if blockPage = 1 Then
Response.Write "【←前10页 "
Else
Response.Write("【<a href=" & LinkFile & "&page="&blockPage-10&">←前10页</a> ")
End If
i=1
Do Until i > 10 or blockPage > n
If blockPage=int(gopage) Then
Response.Write("["&blockPage&"]")
Else
Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">["&blockPage&"]</a> ")
End If
blockPage=blockPage+1
i = i + 1
Loop
if blockPage > totalpage Then
Response.Write " 后10页→】"
Else
Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">后10页→</a>】")
End If
response.write" 直接到第 "
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
response.write"<option value='" & LinkFile & "&page=" & i & "'"
if i=gopage then response.write"selected"
response.write">"&i&"</option>"
next
response.write"</select>"
response.write" 页 "
else
if blockPage = 1 Then
Response.Write "【←前10页 "
Else
Response.Write("【<a href=" & LinkFile & "?page="&blockPage-10&">←前10页</a> ")
End If
i=1
Do Until i > 10 or blockPage > n
If blockPage=int(gopage) Then
Response.Write("["&blockPage&"]")
Else
Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">["&blockPage&"]</a> ")
End If
blockPage=blockPage+1
i = i + 1
Loop
if blockPage > totalpage Then
Response.Write " 后10页→】"
Else
Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">后10页→</a>】")
End If
response.write" 直接到第 "
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
response.write"<option value='" & LinkFile & "?page=" & i & "'"
if i=gopage then response.write"selected"
response.write">"&i&"</option>"
next
response.write"</select>"
response.write" 页 "
End If
Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
Response.Write("  共 "&totalrec&" 条信息当前显示第 "&Startinfo&" - "&Endinfo&" 条每页 "&msg_per_page&" 条信息共 "&n&" 页")
end if
End Function
'分页2
Function listPages2(LinkFile)
if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then
if blockPage = 1 Then
Response.Write "前10页 "
Else
Response.Write("<a href=" & LinkFile & "&page="&blockPage-10&">前10页</a> ")
End If
i=1
Do Until i > 10 or blockPage > n
If blockPage=int(gopage) Then
Response.Write(""&blockPage&"")
Else
Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">"&blockPage&"</a> ")
End If
blockPage=blockPage+1
i = i + 1
Loop
if blockPage > totalpage Then
Response.Write " 后10页"
Else
Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">后10页</a>")
End If
response.write" 直接到第 "
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
response.write"<option value='" & LinkFile & "&page=" & i & "'"
if i=gopage then response.write"selected"
response.write">"&i&"</option>"
next
response.write"</select>"
response.write" 页 "
else
if blockPage = 1 Then
Response.Write "【←前10页 "
Else
Response.Write("【<a href=" & LinkFile & "?page="&blockPage-10&">←前10页</a> ")
End If
i=1
Do Until i > 10 or blockPage > n
If blockPage=int(gopage) Then
Response.Write("["&blockPage&"]")
Else
Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">["&blockPage&"]</a> ")
End If
blockPage=blockPage+1
i = i + 1
Loop
if blockPage > totalpage Then
Response.Write " 后10页→】"
Else
Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">后10页→</a>】")
End If
response.write" 直接到第 "
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
response.write"<option value='" & LinkFile & "?page=" & i & "'"
if i=gopage then response.write"selected"
response.write">"&i&"</option>"
next
response.write"</select>"
response.write" 页 "
End If
Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
Response.Write("  共 "&totalrec&" 条信息当前显示第 "&Startinfo&" - "&Endinfo&" 条每页 "&msg_per_page&" 条信息共 "&n&" 页")
end if
End Function
'判断文件类型是否合格
Function CheckFileExt(FileExt)
Dim ForumUpload,i
ForumUpload="gif,jpg,bmp,jpeg,png"
ForumUpload=Split(ForumUpload,",")
CheckFileExt=False
For i=0 to UBound(ForumUpload)
If LCase(FileExt)=Lcase(Trim(ForumUpload(i))) Then
CheckFileExt=True
Exit Function
End If
Next
End Function
'格式后缀
Function FixName(UpFileExt)
If IsEmpty(UpFileExt) Then Exit Function
FixName = Lcase(UpFileExt)
FixName = Replace(FixName,Chr(0),"")
FixName = Replace(FixName,".","")
FixName = Replace(FixName,"asp","")
FixName = Replace(FixName,"asa","")
FixName = Replace(FixName,"aspx","")
FixName = Replace(FixName,"cer","")
FixName = Replace(FixName,"cdx","")
FixName = Replace(FixName,"htr","")
End Function
'文件Content-Type判断
Function CheckFileType(FileType)
CheckFileType = False
If Left(Cstr(Lcase(Trim(FileType))),6)="image/" Then CheckFileType = True
End Function
%>

<%

'过滤SQL非法字符并格式化html代码

function Replace_Text(fString)

if isnull(fString) then

Replace_Text=""

exit function

else

fString=trim(fString)

fString=replace(fString,"'","''")

fString=replace(fString,";","；")

fString=replace(fString,"--","—")

fString=server.htmlencode(fString)

Replace_Text=fString

end if 

end function

'会员发布的各种信息过滤

'Function Replace_Text(fString)

'If Not IsNull(fString) Then

'fString = trim(fString)

'fString = replace(fString, ";", "；")     '分号过滤

'fString = replace(fString, "--", "——") '--过滤

'fString = replace(fString, "%20", "")    '特殊字符过滤

'fString = replace(fString, "==", "")     '==过滤

'fString = replace(fString, ">", ">")

'fString = replace(fString, "<", "<")

'fString = Replace(fString, CHR(32), " ")   ' 

'fString = Replace(fString, CHR(9), " ")    ' 

'fString = Replace(fString, CHR(34), """)

'fString = Replace(fString, CHR(39), "'") '单引号过滤

'fString = Replace(fString, CHR(13), "")

'fString = Replace(fString, CHR(10) & CHR(10), "
 ")

'fString = Replace(fString, CHR(10), "
 ")

'Replace_Text = fString

'End If

'End Function

'过滤SQL非法字符

Function checkStr(Chkstr)

dim Str:Str=Chkstr

if isnull(Str) then

   checkStr = ""

   exit Function

else

   Str=replace(Str,"'","")

   Str=replace(Str,";","")

   Str=replace(Str,"--","")

   checkStr=Str

end if

End Function

'检测传递的参数是否为数字型

Function Chkrequest(Para)

Chkrequest=False

If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then

    Chkrequest=True

End If

End Function

'检测传递的参数是否为日期型

Function Chkrequestdate(Para)

Chkrequestdate=False

If Not (IsNull(Para) Or Trim(Para)="" Or Not IsDate(Para)) Then

    Chkrequestdate=True

End If

End Function

'得到当前页面的地址 

Function GetUrl() 

On Error Resume Next 

Dim strTemp 

If LCase(Request.ServerVariables("HTTPS")) = "off" Then 

strTemp = "http://" 

Else 

strTemp = "https://" 

End If 

strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) 

If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) 

strTemp = strTemp & CheckStr(Request.ServerVariables("URL")) 

If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & CheckStr(Trim(Request.QueryString)) 

GetUrl = strTemp  

End Function 

'Function CheckReferer()   '检查用户是否在浏览器里输入了本页的地址

'     Dim sReferer, Icheck

'     CheckReferer = True

'     sReferer = Request.ServerVariables("HTTP_REFERER")

'     ServerIP = Request.ServerVariables("LOCAL_ADDR")

'     Icheck = InStr(sReferer, "ServerIP")

'     If Icheck = 0 Then

'     CheckReferer = False

'     End If

'End Function

'日期格式化

Function FormatDate(DT,tp)

dim Y,M,D

Y=Year(DT)

M=month(DT)

D=Day(DT)

if M<10 then M="0"&M

if D<10 then D="0"&D

select case tp

case 1 FormatDate=Y&"年"&M&"月"&D&"日"

case 2 FormatDate=Y&"-"&M&"-"&D

end select

End Function

'不允许外部提交数据的选择

Function ChkPost()

     dim HTTP_REFERER,SERVER_NAME

dim server_v1,server_v2

chkpost=false

     SERVER_NAME=CheckStr(Request.ServerVariables("SERVER_NAME"))

HTTP_REFERER=CheckStr(Request.ServerVariables("HTTP_REFERER"))

server_v1=Cstr(HTTP_REFERER)

server_v2=Cstr(SERVER_NAME)

if mid(server_v1,8,len(server_v2))<>server_v2 then

   chkpost=false

else

   chkpost=true

end if

End Function

'构造上传图片文件名随机数

function MakedownName()

dim fname

fname = now()

fname = replace(fname,"-","")

fname = replace(fname," ","") 

fname = replace(fname,":","")

fname = replace(fname,"PM","")

fname = replace(fname,"AM","")

fname = replace(fname,"上午","")

fname = replace(fname,"下午","")

fname = int(fname) + int((10-1+1)*Rnd + 1)

MakedownName=fname

end function

'Email检测

function IsValidEmail(email)

dim names, name, i, c

IsValidEmail = true

names = Split(email, "@")

if UBound(names) <> 1 then

    IsValidEmail = false

    exit function

end if

for each name in names

    if Len(name) <= 0 then

      IsValidEmail = false

      exit function

    end if

    for i = 1 to Len(name)

      c = Lcase(Mid(name, i, 1))

      if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then

        IsValidEmail = false

        exit function

      end if

    next

    if Left(name, 1) = "." or Right(name, 1) = "." then

       IsValidEmail = false

       exit function

    end if

next

if InStr(names(1), ".") <= 0 then

    IsValidEmail = false

    exit function

end if

i = Len(names(1)) - InStrRev(names(1), ".")

if i <> 2 and i <> 3 then

    IsValidEmail = false

    exit function

end if

if InStr(email, "..") > 0 then

    IsValidEmail = false

end if

end function

'Jmail邮件发送

Function SendJmail(Email,Topic,MailBody)

Dim JMail

on error resume next

Set JMail = Server.CreateObject("JMail.SMTPMail")

JMail.LazySend             = true

JMail.silent             = true

JMail.Charset             = "gb2312"

JMail.ContentType       = "text/html"

JMail.Sender             = "wemaster@alibaba.info" '我们网站自己的邮箱

JMail.ReplyTo             = "wemaster@alibaba.info" '我们网站自己的邮箱

JMail.SenderName       = "阿里爸爸邮件发送"

JMail.Subject             = Topic

JMail.SimpleLayout       = true

JMail.Body             = MailBody

JMail.Priority             = 3

JMail.AddRecipient Email

JMail.AddHeader "Originating-IP", GBL_IPAddress

If JMail.Execute() = false Then

   SendJmail = 0

Else

   SendJmail = 1

End If

JMail.Close

Set JMail = Nothing

End Function

'分页

Function listPages(LinkFile) 

    if not (rs.eof and rs.bof) then

gopage=currentpage

totalpage=n

blockPage=Int((gopage-1)/10)*10+1

' if instr(linkfile,"?page=")>0 or instr(linkfile,"&page=")>0 then

' pos=instr(linkfile,"page=")-2

' linkfile=left(linkfile,pos)

' end if

If LCase(Request.ServerVariables("HTTPS")) = "off" Then 

     strTemp = "http://" 

     Else 

     strTemp = "https://" 

     End If 

     strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) 

     If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) 

     strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))

     lenstrTemp=len(strTemp)+1 

if instr(left(linkfile,lenstrTemp),"?")>0 then 

if blockPage = 1 Then

   Response.Write "【←前10页 "

Else

   Response.Write("【←前10页 ")

End If

    i=1

    Do Until i > 10 or blockPage > n

     If blockPage=int(gopage) Then

   Response.Write("["&blockPage&"]")

Else

   Response.Write(" ["&blockPage&"] ")

     End If

     blockPage=blockPage+1

     i = i + 1

     Loop

if blockPage > totalpage Then

   Response.Write " 后10页→】"

Else

   Response.Write(" 后10页→】")

End If 

response.write" 直接到第 "

response.write""

     response.write" 页

"

else

if blockPage = 1 Then

   Response.Write "【←前10页 "

Else

   Response.Write("【←前10页 ")

End If

    i=1

    Do Until i > 10 or blockPage > n

     If blockPage=int(gopage) Then

   Response.Write("["&blockPage&"]")

Else

   Response.Write(" ["&blockPage&"] ")

     End If

     blockPage=blockPage+1

     i = i + 1

     Loop

if blockPage > totalpage Then

   Response.Write " 后10页→】"

Else

   Response.Write(" 后10页→】")

End If 

response.write" 直接到第 "

response.write""

     response.write" 页

"

End If

Startinfo=((gopage-1)*msg_per_page)+1

Endinfo=gopage*msg_per_page

if Endinfo>totalrec then Endinfo=totalrec

   Response.Write("  共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")

end if

End Function

'分页2

Function listPages2(LinkFile) 

    if not (rs.eof and rs.bof) then

gopage=currentpage

totalpage=n

blockPage=Int((gopage-1)/10)*10+1

If LCase(Request.ServerVariables("HTTPS")) = "off" Then 

     strTemp = "http://" 

     Else 

     strTemp = "https://" 

     End If 

     strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) 

     If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) 

     strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))

     lenstrTemp=len(strTemp)+1 

if instr(left(linkfile,lenstrTemp),"?")>0 then 

if blockPage = 1 Then

   Response.Write "前10页 "

Else

   Response.Write("前10页 ")

End If

    i=1

    Do Until i > 10 or blockPage > n

     If blockPage=int(gopage) Then

   Response.Write(""&blockPage&"")

Else

   Response.Write(" "&blockPage&" ")

     End If

     blockPage=blockPage+1

     i = i + 1

     Loop

if blockPage > totalpage Then

   Response.Write " 后10页"

Else

   Response.Write(" 后10页")

End If 

response.write" 直接到第 "

response.write""

     response.write" 页

"

else

if blockPage = 1 Then

   Response.Write "【←前10页 "

Else

   Response.Write("【←前10页 ")

End If

    i=1

    Do Until i > 10 or blockPage > n

     If blockPage=int(gopage) Then

   Response.Write("["&blockPage&"]")

Else

   Response.Write(" ["&blockPage&"] ")

     End If

     blockPage=blockPage+1

     i = i + 1

     Loop

if blockPage > totalpage Then

   Response.Write " 后10页→】"

Else

   Response.Write(" 后10页→】")

End If 

response.write" 直接到第 "

response.write""

     response.write" 页

"

End If

Startinfo=((gopage-1)*msg_per_page)+1

Endinfo=gopage*msg_per_page

if Endinfo>totalrec then Endinfo=totalrec

   Response.Write("  共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")

end if

End Function

'判断文件类型是否合格

Function CheckFileExt(FileExt)

Dim ForumUpload,i

ForumUpload="gif,jpg,bmp,jpeg,png"

ForumUpload=Split(ForumUpload,",")

CheckFileExt=False

For i=0 to UBound(ForumUpload)

   If LCase(FileExt)=Lcase(Trim(ForumUpload(i))) Then

    CheckFileExt=True

    Exit Function

   End If

Next

End Function

'格式后缀

Function FixName(UpFileExt)

If IsEmpty(UpFileExt) Then Exit Function

FixName = Lcase(UpFileExt)

FixName = Replace(FixName,Chr(0),"")

FixName = Replace(FixName,".","")

FixName = Replace(FixName,"asp","")

FixName = Replace(FixName,"asa","")

FixName = Replace(FixName,"aspx","")

FixName = Replace(FixName,"cer","")

FixName = Replace(FixName,"cdx","")

FixName = Replace(FixName,"htr","")

End Function

'文件Content-Type判断

Function CheckFileType(FileType)

CheckFileType = False

If Left(Cstr(Lcase(Trim(FileType))),6)="image/" Then CheckFileType = True

End Function

%>

本文地址：/425/

相关文章
推荐文章
最新文章

• ASP多个关键词搜索代码,关键词以+号或空格隔开
• js兼容IE、谷歌Chrome、火狐Firefox的上传图片预览代码
• 忽略JS错误代码,网页屏蔽js错误代码
• ASP将汉字转为拼音代码
• ASP保存远程图片文件到本地代码
• ASP搜索关键词时结果用红色显示代码
• ASP如何获取当前网站地址，网页地址代码及div+css菜单应用
• ASP按字段中首字母输出所有数据代码
• rs.open sql,conn,1,1和rs.open sql,conn,1,3的意思
• opencart 3.0 PayPal Payments Standard支付没有传递收货地址解决办法

• 手把手教你如何开通163邮箱和QQ邮箱的POP3/SMTP服务
• 该如何赚钱?如何赚大钱的13个步骤!
• 搭建一个好的网站内部结构
• 交谊舞视频教程大全,免费下载，泡妞必学(狐步、慢四、华尔兹、快三、伦巴、恰恰)
• 2009胡润百富榜榜单1-100名
• 访问网站时出现Service Unavailable问题及解决方法
• 使用Aspjpeg组件，自动按宽高比例生成产品缩略图ASP代码
• 如何去掉网页的横向滚动条，竖向滚动条？
• 如何有效增加网站外链？
• 去除windows 2003系统的登录界面

• Google Workspace gmail企业邮箱老板监控员工邮件操作方法
• zoho企业邮箱开启手机验证码双重认证教程
• 外贸网站如何使用Google Search Console谷歌管理员工具
• 腾讯企业邮箱开启安全登录后，如何登录foxmail收发信
• 获取小红书无水印图片的原理
• iis如何支持.webp图片格式访问
• FireFox火狐浏览器有用的设置方法记录
• 最新政策 Google免费版企业邮箱个人用途可以继续保留免费版
• MySQL报Field‘***’doesn’t have a default value错误的解决办法
• 抖音国际版TikTok注册过程记录