仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 424|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网页编程之ASP晋级程序

[复制链接]
谁可相欹 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:38:21 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。程序<%
文件名:updata.asp
远程地点
consturl="http://localhost/test/"

action=request("action")
ifaction="updata"then
download(url&"config.txt")
download(url&"pack.jpg")
response.Write("下载乐成<ahref=updata.asp?action=install>安装</a>")
elseifaction="install"then
str=openfile("config.txt")
ifstr=""then
response.write"短少当地设置文件config.txt"
else
size=RegExpTest("size",str)
callinstall("pack.jpg",size)
endif
else
str=getpage(url&"config.txt")
ifstr=""then
response.write"不存在可用更新大概当地设置不准确"
response.end
endif

str1=openfile("config.txt")
ifstr1=""then
response.write"短少当地设置文件config.txt没法获知当地程序的安装工夫"
response.end
endif

updatatime=RegExpTest("time",str)
updatatime1=RegExpTest("time",str1)

ifDateDiff("d",updatatime1,updatatime)>0then
response.Write("存在可用更新,更新日期:"&updatatime&"<ahref=updata.asp?action=updata>下载</a>")
else
response.write"您的程序是最新的了"
endif
endif

functionopenfile(filename)
setfso=server.CreateObject("scripting.filesystemobject")
iffso.fileexists(server.MapPath(filename))then
setf1=fso.opentextfile(server.mappath(filename),1,true)
openfile=f1.readall
f1.close
else
openfile=""
endif
setfso=nothing
endfunction

functiongetpage(url)
setxmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open"get",url,false
xmlhttp.send
ifxmlhttp.status200then
getpage=""
else
getpage=bytes2BSTR(xmlhttp.ResponseBody)
endif
endfunction

Functionbytes2BSTR(vIn)
dimstrReturn
dimi,ThisCharCode,NextCharCode
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction

FunctionRegExpTest(patrn,strng)
DimregEx,Match,Matches创建变量。
SetregEx=NewRegExp创建正则表达式。
regEx.Pattern=patrn&"=(.+?)
"设置形式。
regEx.IgnoreCase=True设置是不是辨别字符巨细写。
regEx.Global=True设置全局可用性。
SetMatches=regEx.Execute(strng)实行搜刮。
ForEachMatchinMatches遍历婚配汇合。
RetStr=Match.Value
Next
RegExpTest=replace(RetStr,patrn&"=","")
EndFunction

functiondownload(url)
temp=split(url,"/")
filename=temp(ubound(temp))
setxmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open"get",url,false
xmlhttp.send
ifxmlhttp.status200then
download=""
else
setfso=server.createobject("scripting.filesystemobject")
iffso.fileexists(server.mappath(filename))then
fso.deletefile(server.mappath(filename))
endif
setfso=nothing
img=xmlhttp.ResponseBody
setobjAdostream=server.createobject("ADODB.Stream")
objAdostream.Open
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath(filename))
objAdostream.SetEOS
setobjAdostream=nothing
download=filename
endif
setxmlhttp=nothing
endfunction


functioninstall(filename,size)
onerrorresumenext
path=server.mappath("./")

setfso=server.createobject("scripting.filesystemobject")

sets=server.createobject("adodb.stream")
sets1=server.createobject("adodb.stream")
sets2=server.createobject("adodb.stream")

s.open
s1.open
s2.open

s.type=1
s1.type=1
s2.type=1

s.loadfromfile(server.mappath(filename))
s.position=size
s1.write(s.read)
s1.position=0
s1.type=2
s1.charset="gb2312"
s1.position=0
a=split(s1.readtext,vbcrlf)
s.position=0

i=0
whi</p>缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。
灵魂腐蚀 该用户已被删除
沙发
发表于 2015-1-20 10:47:23 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
第二个灵魂 该用户已被删除
板凳
发表于 2015-1-24 06:45:58 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
深爱那片海 该用户已被删除
地板
发表于 2015-1-25 21:24:04 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
透明 该用户已被删除
5#
发表于 2015-1-30 11:15:06 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
精灵巫婆 该用户已被删除
6#
发表于 2015-2-2 20:18:39 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
谁可相欹 该用户已被删除
7#
 楼主| 发表于 2015-2-8 04:51:25 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
8#
发表于 2015-3-7 11:29:50 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
柔情似水 该用户已被删除
9#
发表于 2015-3-15 02:33:20 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
再现理想 该用户已被删除
10#
发表于 2015-3-21 16:20:09 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 10:54

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表