ASP過濾特別字符（完整）

本文格式為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(\共\條信息當(dāng)前顯示第\-\條每頁\條信息共\頁\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(\共\條信息當(dāng)前顯示第\-\條每頁\條信息共\頁\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