仓酷云

标题: ASP编程：初学者指南：ASP经常使用函数 [打印本页]

作者: 分手快乐 时间: 2015-1-16 22:10
标题: ASP编程：初学者指南：ASP经常使用函数
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。初学|函数*******************************************************************
获得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

*******************************************************************
弹出对话框
*******************************************************************
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
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天

作者: 第二个灵魂 时间: 2015-1-18 21:43
那么，ASP.Net有哪些改进呢？

作者: 不帅 时间: 2015-1-25 17:21
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 飘灵儿 时间: 2015-2-3 12:10
弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

作者: 谁可相欹 时间: 2015-2-8 21:39
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 海妖 时间: 2015-2-26 11:33
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 再现理想 时间: 2015-3-8 14:31
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

作者: 灵魂腐蚀 时间: 2015-3-16 02:54
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 只想知道 时间: 2015-3-22 19:11
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

欢迎光临仓酷云 (http://ckuyun.com/)