ASP网页编程之ASP经常使用函数保藏

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.函数************************************
获得IP地点
************************************
FunctionUserip()
DimGetClientIP
假如客户端用了代办署理服务器，则应当用ServerVariables("HTTP_X_FORWARDED_FOR")办法
GetClientIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IfGetClientIP=""orisnull(GetClientIP)orisempty(GetClientIP)Then
假如客户端没用代办署理，应当用Request.ServerVariables("REMOTE_ADDR")办法
GetClientIP=Request.ServerVariables("REMOTE_ADDR")
endif
Userip=GetClientIP
Endfunction
************************************
转换IP地点
************************************
functioncip(sip)
tip=cstr(sip)
sip1=left(tip,cint(instr(tip,".")-1))
tip=mid(tip,cint(instr(tip,".")+1))
sip2=left(tip,cint(instr(tip,".")-1))
tip=mid(tip,cint(instr(tip,".")+1))
sip3=left(tip,cint(instr(tip,".")-1))
sip4=mid(tip,cint(instr(tip,".")+1))
cip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)
endfunction
************************************
弹出对话框
************************************
Subalert(message)
message=replace(message,"","")
Response.Write("<script>alert("&message&")</script>")
EndSub
************************************
前往上一页，一样平常用在判别信息提交是不是完整以后
************************************
SubGoBack()
Response.write("<script>history.go(-1)</script>")
EndSub
************************************
重定向别的的毗连
************************************
SubGo(url)
Response.write("<script>location.href("&url&")</script>")
EndSub
************************************
指定秒数重定向别的的毗连
************************************
subGoPage(url,s)
s=s*1000
Response.Write"<SCRIPTLANGUAGE=javascript>"
Response.Write"window.setTimeout("&chr(34)&"window.navigate("&url&")"&chr(34)&","&s&")"
Response.Write"</script>"
endsub
************************************
判别数字是不是整形
************************************
functionisInteger(para)
onerrorresumenext
dimstr
diml,i
ifisNUll(para)then
isInteger=false
exitfunction
endif
str=cstr(para)
iftrim(str)=""then
isInteger=false
exitfunction
endif
l=len(str)
fori=1tol
ifmid(str,i,1)>"9"ormid(str,i,1)<"0"then
isInteger=false
exitfunction
endif
next
isInteger=true
iferr.number0thenerr.clear
endfunction
************************************
取得文件扩大名
************************************
functionGetExtend(filename)
dimtmp
iffilename""then
tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
tmp=LCase(tmp)
ifinstr(1,tmp,"asp")>0orinstr(1,tmp,"php")>0orinstr(1,tmp,"php3")>0orinstr(1,tmp,"aspx")>0then
getextend="txt"
else
getextend=tmp
endif
else
getextend=""
endif
endfunction
*-------------------------------------------
*函数：CheckIn
*形貌：检测参数是不是有SQL伤害字符
*参数：str要检测的数据
*前往：FALSE：平安TRUE：不平安
*
*日期：
*-------------------------------------------
functionCheckIn(str)
ifinstr(1,str,chr(39))>0orinstr(1,str,chr(34))>0orinstr(1,str,chr(59))>0then
CheckIn=true
else
CheckIn=false
endif
endfunction
*-------------------------------------------
*函数：HTMLEncode
*形貌：过滤HTML代码
*参数：--
*前往：--
*
*日期：
*-------------------------------------------
functionHTMLEncode(fString)
ifnotisnull(fString)then
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),"</P><P>")
fString=Replace(fString,CHR(10),"<BR>")
HTMLEncode=fString
endif
endfunction
*-------------------------------------------
*函数：HTMLcode
*形貌：过滤表单字符
*参数：--
*前往：--
*
*日期：
*-------------------------------------------
functionHTMLcode(fString)
ifnotisnull(fString)then
fString=Replace(fString,CHR(13),"")
fString=Replace(fString,CHR(10)&CHR(10),"</P><P>")
fString=Replace(fString,CHR(34),"")
fString=Replace(fString,CHR(10),"<BR>")
HTMLcode=fString
endif
endfunction
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。