|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。历程|技能|网页 择要:本文先容了用ASP举行网页计划过程当中的几个小技能,包含旧事栏的创立和主动更新,和通告栏的创立、利用和保护。指了然办理此类成绩的大抵办法。
Abstract:WeintroduceseveraltrickswhenusingActiveServerPagestodesignhomepages.Theseincludethecreationandautomaticupdatingofnewscolumns,aswellasthecreation,utilizationandmaintenanceofbulletins.Thegeneralsolutionstotheseproblemsarepointedout.
关头词:ASP、旧事栏、通告栏
ASP是Microsoft公司推出的一种用以代替通用网关接口的手艺,英文全称ActiveServerPages。它是一个Web服务器真个运转情况。ASP自己包括了VBScript和javascript引擎,使得剧本能够间接嵌进HTML中。现将我们在ASP使用过程当中的几个小技能与人人分享。
1、旧事栏
年夜多半网页上有旧事栏,用以显现比来旧事的主题,点击此主题便可检察具体报导。倘使天天都一条条写在网页上,再顺次创建链接太甚贫苦。怎样让其能够依据文件主动更新呢?
1.准备事情:
1)建一个文件夹,起名为"news",假定存于D:/ASP/目次下;
2)把每条旧事的具体内容写进文件,且此文件的定名情势为:x(newstime).htm。个中x为此条旧事的主题,newstime为此条旧事公布的工夫(按年-月-日按次写)。为何要如许写呢?看了上面的算法头脑和源程序就晓得了。
2.算法头脑:关于news文件夹中的文件,根据它们文件名中旧事公布的工夫(即括号内的内 容),从年夜到小排序。如许一来,最新的旧事排在最下面,只需在网页响应地位显现news文件夹中最下面的多少个文件名,由于文件名的定名体例如1中所述,就能够在旧事栏中显现最新旧事了。
3.源程序段(用VBScript编写的)
<%
Dimfs,f,f1,fc,filenum
dimcount
dimi,j,t1,t2
dimfile(100)
dimmystr(100)标记文件中日期的字符串
count=0
Setfs=CreateObject("Scripting.FileSystemObject")
Setf=fs.GetFolder("D:/ASP/news")
Setfc=f.Files
foreachf1infc
count=count+1计文件个数
file(count)=fs.getbasename(f1)标志文件基名
mypos=InStr(1,file(count),"("))在文件基名中的地位
文件基名中的日期字符串
mystr(count)=Mid(file(count),mypos+1,Len(file(count))-(mypos+1))
next
fori=1tocount
forj=1tocount-i
ifmystr(j)<mystr(j+1)then
t1=file(j)
file(j)=file(j+1
file(j+1)=t1
t2=mystr(j)
mystr(j)=mystr(j+1)
mystr(j+1)=t2
endif
next
next
j=1
ifcount<10then旧事栏中共显现10条旧事
temcount=count
else
temcount=10
endif
dowhilej<=temcount%>
<ahref="file:///D:/ASP/news/<%=file(j)%>.htm"target="new_window"><%=file(j)%></a>
<%
j=j+1
loop
%>
4.旧事栏内容更新:
只需养成优秀的誊写习气,使得旧事的称号依照1的请求,再把写好的文件存进news文件夹,旧事栏就会主动显现出最新的10条旧事了。
2、通告栏
除旧事栏以外,较经常使用的就是通告栏了,通告栏次要用来显现一些主要的关照。固然这些关照是要常常变更的。让用户每次变动通告内容时都到源程序里往修正吗?固然不可,我们必需供应一个保护的界面给用户,使得用户只需输出关照,网页上的通告栏里天然就会显现关照内容了。
1.办理这一成绩的关头在于天真使用FileSystemObject工具和TextStream工具。在实践使用中,你无需自行创建TextStream工具,由于只需使用FileSystemObject工具翻开了文件,体系便主动创建TextStream工具。也就是说,一旦挪用OpenTextFile或CreateTextFile办法,便会传回TextStream工具。
2.所需相干文件有三个:更新.asp、通告.asp、保护文本.txt,把它们存进d:/ASP/maintain目次下。
3.三个文件的次要功效和源程序段:
1)更新.asp
次要功效是让用户输出欲显现的通告,查验输出内容是不是为空,若不为空,则提交给”通告.asp”程序处置。
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<title>更新通告栏内容</title>
</head>
<body>
<scriptlanguage=vbscript>
functiondatacheck()
dimmsg,errflag
errflag=true
iflen(trim(maintain.t1.value))=0then
focusto(0)
errflag=false
msg="请输出需提交的通告内容"
endif
if(errflag=false)then
msgboxmsg,64,"ohno!"
exitfunction
endif
datacheck=errflag
maintain.submit
endfunction
subfocusto(x)
document.maintain.elements(x).focus()
endsub
</script>
①<formmethod="POST"action="通告.asp"name="maintain">
<p><inputtype="text"name="t1"size="84"><inputtype="reset"value="重写"name="B2">
<inputtype="button"value="提交"name="B1"></p>
<hrcolor=#FF99FFsize=1>
</form>
</body>
</html>
语句①中的action="通告.asp"部分,指出了在form提交后要启动的程序为“通告.asp”。
2)通告.asp
经由过程FileSystemObject工具和TextScream工具对"保护文本.txt"文件举行读写操纵,使得此文件最下面5行的内容为要在通告栏里显现的通告。
<%
dimstr
str=request.form(t1)
dims(5)
constforreading=1,forwriting=2
dimfso,myfile
setfso=server.createobject("scripting.FileSystemObject")
setmyfile=fso.opentextfile("保护文本.txt",forreading)以Reading形式翻开文件
fori=1to5通告栏共显现5条通告
s(i)=myfile.readline读取文件内容
next
myfile.close
setmyfile=fso.opentextfile("保护文本.txt",forwriting,true)以writing形式翻开文件
myfile.writelinestr
fori=1to4
myfile.writelines(i)将数据写回文件
next
myfile.close
%>
3)保护文本.txt
此文件入手下手为空,从”更新.asp”显现的界面输出通告后,此文件内容被主动写进。
4.在主页文件(一般是default.asp)欲显现通告地位的代码段中到场以下代码,便可显现出更新后的通告。
<marqueescrollamount="2"scrolldelay="50"direction="up"width="223"height="133"id="a">通告栏高低转动
<%
Dims(20)
Dimfso,MyFile
Setfso=CreateObject("Scripting.FileSystemObject")
SetMyFile=fso.OpenTextFile("D:/ASP/maintain/保护文本.txt",1,true)
fori=1to5
ReadLineTextFile=MyFile.ReadLine
s(i)=ReadLineTextFile
response.write"★ "&s(i)
response.write"<br>"
next
%>
</marquee>
上述两个小技能触类旁通,能够办理良多此类成绩。网页计划喜好者们无妨一试。
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。 |
|