ASP过滤特别字符（完整）VIP

本文格式为Word版，下载可任意编辑——ASP过滤特别字符（完整）'linkfile=left(linkfile,pos)'endif

IfLCase(Request.ServerVariables(\strTemp=\Else

strTemp=\EndIf

strTemp=strTemp}>\fori=1tototalpage

response.write\ifi=gopagethenresponse.write\

response.write\next

response.write\response.write\页\else

ifblockPage=1Then

Response.Write\\Else

Response.Write(\后10页→】\EndIf

response.write\直接到第\response.write\

onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>\fori=1tototalpage

response.write\ifi=gopagethenresponse.write\response.write\next

response.write\response.write\页\EndIf

Startinfo=((go1)*msg_per_page)+1Endinfo=gopage*msg_per_page

ifEndinfo>totalrecthenEndinfo=totalrec

Response.Write(\共\条信息当前显示第\-\条每页\条信息共\页\endif

EndFunction

'分页2

FunctionlistPages2(LinkFile)

ifnot(rs.eofandrs.bof)thengopage=currentpagetotalpage=n

blockPage=Int((go1)/10)*10+1

IfLCase(Request.ServerVariables(\strTemp=\

Else

strTemp=\EndIf

strTemp=strTemp}>\fori=1tototalpage

response.write\ifi=gopagethenresponse.write\response.write\next

response.write\response.write\页\else

ifblockPage=1Then

Response.Write\\Else

Response.Write(\后10页→】\EndIf

response.write\直接到第\response.write\

onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>\fori=1tototalpage

response.write\ifi=gopagethenresponse.write\

response.write\next

response.write\response.write\页\EndIf

Startinfo=((go1)*msg_per_page)+1Endinfo=gopage*msg_per_page

ifEndinfo>totalrecthenEndinfo=totalrec

Response.Write(\共\条信息当前显示第\-\条每页\条信息共\页\endif

EndFunction

'判断文件类型是否合格

FunctionCheckFileExt(FileExt)DimForumUpload,i

ForumUpload=\ForumUpload=Split(ForumUpload,\CheckFileExt=False

Fori=0toUBound(ForumUpload)

IfLCase(FileExt)=Lcase(Trim(ForumUpload(i)))ThenCheckFileExt=TrueExitFunctionEndIf

Next

EndFunction'格式后缀

FunctionFixName(UpFileExt)

IfIsEmpty(UpFileExt)ThenExitFunctionFixName=Lcase(UpFileExt)

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

FixName=Replace(FixName,\FixName=Replace(FixName,\EndFunction

'文件Content-Type判断

Fun