烟台云速互联:ASP问题？

<%
dim conn,connstr,startime,TimesDB,rs,UserAgent
startime=timer()
'数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase = 0
'数据库名称和路径
TimesDB="Data/#TimesShop.asp"
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
Response.Write "请不要采用teleport/Webzip/Flashget/Offline等工具来浏览商城！"
Response.End
End If

Function SafeRequest(ParaName,ParaType)
Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 then
If not isNumeric(ParaValue) then
Response.write "<center>参数" & ParaName & "必须为数字型，请正确操作！</center>"
Response.end
End if
Else
ParaValue=replace(ParaValue,"'","''")
End if
SafeRequest=ParaValue
End function
这是什么意思