ASP网站制作之经常使用ASP自界说函数集
ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！函数|函数文章来历:视点计划8see.nethttp://blog.8see.net/
rem---表单提醒函数Being-----------------------------
CODECopy...
FunctionCheck_submit(str,restr)
ifstr=""then
response.write"<script>"
response.write"alert("&restr&");"
response.write"history.go(-1)"
response.write"</script>"
response.end
else
Check_submit=str
endif
EndFunction
CODECopy...
FunctionAlert_submit(str)
response.write"<script>"
response.write"alert("&str&");"
response.write"location.reload();"
response.write"</script>"
EndFunction
CODECopy...
Functionlocalhost_submit(str,urls)
response.write"<script>"
ifstr""then
response.write"alert("&str&");"
endif
response.write"location="&urls&";"
response.write"</script>"
EndFunction
rem---天生自界说位随机数Being-----------------------------
CODECopy...
Functionmakerndid(byValmaxLen)
DimstrNewPass
DimwhatsNext,upper,lower,intCounter
RANdomize
ForintCounter=1TomaxLen
whatsNext=int(2*Rnd)
IfwhatsNext=0Then
upper=80
lower=70
Else
upper=48
lower=39
EndIf
strNewPass=strNewPass&Chr(Int((upper-lower+1)*Rnd+upper))
Next
makerndid=strNewPass
EndFunction
rem---天生四位随机数Being-----------------------------
CODECopy...
Functionget_rand()
dimnum1
dimrndnum
Randomize
DoWhileLen(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
get_rand=rndnum
EndFunction
rem---判别数据是不是整型Being-----------------------------
CODECopy...
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
rem---数据库链接函数Being-----------------------------
CODECopy...
FunctionOpenCONN
Setconn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(DB_login)
conn.Openconnstr
EndFunction
rem---中笔墨符转Uncode代码函数Being-----------------------------
CODECopy...
FunctionURLEncoding(vstrIn)
strReturn=""
Fori=1ToLen(vstrIn)
ThisChr=Mid(vStrIn,i,1)
IfAbs(Asc(ThisChr))<&HFFThen
strReturn=strReturn&ThisChr
Else
innerCode=Asc(ThisChr)
IfinnerCode<0Then
innerCode=innerCode+&H10000
EndIf
Hight8=(innerCodeAnd&HFF00)&HFF
Low8=innerCodeAnd&HFF
strReturn=strReturn&"%"&Hex(Hight8)&"%"&Hex(Low8)
EndIf
Next
URLEncoding=strReturn
EndFunction
rem---Html过滤函数Being-----------------------------FunctionHtmlout(str)
CODECopy...
dimresult
diml
ifisNULL(str)then
Htmlout=""
exitfunction
endif
l=len(str)
result=""
dimi
fori=1tol
selectcasemid(str,i,1)
case"<"
result=result+"<"
case">"
result=result+">"
casechr(13)
ifsession("admin_system")=""then
result=result+"<br>"
endif
casechr(34)
result=result+"""
case"&"
result=result+"&"
casechr(32)
result=result+""
ifi+1<=landi-1>0then
ifmid(str,i+1,1)=chr(32)ormid(str,i+1,1)=chr(9)ormid(str,i-1,1)=chr(32)orm</p>SQLServer是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。
页:
[1]