利用ASP技术可以开发出动态WAP页面,将ASP技术和数据库技术相结合,则可以开发更为复杂的WAP应用。有关ASP和Web数据库的知识请读者参考专门书籍,我们这里以WML为例,说明ASP和数据库技术在WAP开发中的应用。 11.2.1 在WML程序中使用ASP 在WML程序中使用ASP的规则很简单,只要做到以下5条即可: (1) 声明ASP采用的脚本语言。与ASP中声明的方式类似,格式为: <%@ Language=VBScript %> (2) 声明wml文件类型。这可采用ASP的Response对象,并将ContentType作为它的方法,书写时使用<%和%>包含起来,格式为: <% Response.ContentType=”text/vnd.wap.wml” %>...
如果我们知道一个静态文件的实际路径如:http://www.xx.com/download/51windows.pdf,如果服务器没有作特别的限制设置,我们就可以毫不费力的把它下载下来!当网站提供51windows.pdf下载时,怎么样才能让下载者无法得到他的实际路径呢!本文就来介绍如何使用Asp来隐藏文件的实际下载路径。 我们在管理网站文件时,可以把扩展名一样的文件放在同一个目录下,起一个比较特别名字,例如放pdf文件目录为the_pdf_file_s,把下面代码另存为down.asp,他的网上路径为http://www.xx.com/down.asp,我们就可以用http://www.xx.com/down.asp?FileName=51windows.pdf来下载这个文件了,而且下载者无法看到这个文件实际下载路径的!在down.asp中我们还可...
ASPJPEG是Persits出品的共享软件,试用期为30天,您可以在这里下载:http://www.persits.com/aspjpeg.exe。最新版本号是1.3ASPJPEG是一款功能相当强大的图象处理组件,用它可以轻松地做出图片的缩略图和为图片加上水印功能。下面简单介绍一下使用方法:您先要执行下载得到的exe文件,安装该组件1、为图片制作缩略图<% ' 建立实例Dim Jpeg,PathSet Jpeg = Server.CreateObject("Persits.Jpeg")' 图片所在位置Path = Server.MapPath("images") & "\clock.jpg"' 打开Jpeg.Open Path' 设置缩略图大小(这里比例设定为50%)Jpeg.Width = Jpeg.OriginalWidth / 2Jpeg.Hei...
Dim url, body, myCacheurl = Request.QueryString("url")Set myCache = new cachemyCache.name = "picindex"&urlIf myCache.valid Thenbody = myCache.valueElsebody = GetWebData(url)myCache.add body,dateadd("d",1,now)End IfIf Err.Number = 0 ThenResponse.CharSet = "gb2312"Response.ContentType = "application/octet-stream"Response.BinaryWrite bodyResponse.FlushElseWscript.Echo Err.DescriptionEnd if'取得数据Public Function GetWebData(ByVal strUrl)Dim curlpathcurlpath = Mid(strUrl,1,Instr(8,strUrl,&quo...
本例主要讲述如何应用Create、Drop和Alter语句增加、删除ACCESS表和字段,代码如下: 以下是ASP代码:【复制】 ''''''''''''''''''''''''''''''''''''' 增加、删除表和字段' ├Create Table 表名(field1 type[(size)] [null|not null] [default eExpression] [primary key][,field2...])' type:counter;text(num);char(num),varchart(num);memo;short;long;single;double;date/time;logical;currency;oleobject' ├Drop Table 表名' ├Alter Table 表名 Add Column field type[(size)][not null]' ├Alter Table 表名 Drop Column field''''''''''''''''''''''''''''''''''''Dim objConn,strsqlSet objConn = Serv...
分别保存下面两段代码,一个保存为readxml.asp另一个保存为test.xml,放在同一个目录下面,调试程序即可,在程序里面我已经做了解释,读取代码可以做成一个readxml的函数,通过使用输入的参数而读取xml不同数据记录的不同的值。这段程序的改编来自互联网,有什么出入请见谅。readxml.asp 以下是ASP代码:【复制】 <% dim xml,objNode,objAtr,nCntChd,nCntAtr Set xml=Server.CreateObject("Microsoft.XMLDOM") xml.Async=False xml.Load(Server.MapPath("test.xml")) Set objNode=xml.documentElement nCntChd=objNode.ChildNodes.length-1 '这个可以定义asp读取xml文件的那一个值,通...
****************************************************** Abs *******************************************************【名称】 Abs【类别】 数学函数【原形】 Abs(number)【参数】 必选的。Number参数是一个任何有效的数值型表达式【返回值】 同 number 的类型【异常/错误】 无【描述】返回参数number 的绝对值。一个数的绝对值是将正负号去掉以后的值。例如,ABS(-1) 和 ABS(1) 都返回 1。Abs(5.2)=5.2,Abs(-5)=5【示例】Dim MyNumberMyNumber = Abs(50.3) ' 返回 50.3。MyNumber = Abs(-50.3) ' 返回 50.3。【备注】如果 number 包含 Null,则返回 Null,如果 number 是未初始化的变量,则返回 0。***************...
Call robot()Sub robot()Dim robots:robots="Baiduspider@Baidu|Baiduspider+@Baidu|Google@Google|Googlebot@Google|
[email protected]|ia_archiver@Alexa|IAArchiver@Alexa|ASPSeek@ASPSeek|YahooSeeker@Yahoo|sohu-search@Sohu|help.yahoo.com/help/us/ysearch/slurp@Yahoo|sohu-search@SOHU|MSNBOT@MSN"dim I1,I2,l1,l2,l3,i,rsl2=falsel1=request.servervariables("http_user_agent")F1=request.ServerVariables("SCRIPT_NAME")I1=split(robots,chr(124))for i=0 to ubound(I1)I2=split(I1(i),"@")if instr(lcase(l1),lcase(I2(0))...
如果你有两个空间,一个大而慢,另外一个小而快,或者其中一个不支持FSO,那么跨服务器上传文件这个问题就摆在你面前了,下面就是我在解决ylog.net里面的跨服务器上传文件的日记,这个问题看似简单,里面的细节问题却是非常有趣 前提条件,空间都必须支持ASP,上传文件的服务器支持FSO,下面的叙述中,diygame.com为存上传文件的服务器,ylog.net为网站服务器,即显示用户界面的服务器... 实现功能,文件上传,上传后在网页的文本区域自动加上对于图片的UBB码,为了清楚,下面列出所有用到的文件服务器 文件名 用途diygame.com blog_upfile.asp 接收上传文件用ylog.net blog_add.asp 添加BLOG,上传文件功能在此出现ylog.net blog_upload.asp...
ASP是非常简单的,以至于许多的开发者不会去思考错误处理。错误处理能够让你的应用程序更加合理。我看到过很多个用ASP编写的商业网站,大多数都忽略了错误处理。 错误的类型 有三种主要的错误类型: 1.编译错误: 这种错误出现一般都是代码的语法问题。因为编译错误而导致辞ASP停止运行。 2.运行错误: 这个错误是发生在你准备运行ASP时的。例如:如果你试图给一个变量赋值,但是却超出了该变量允许的范围。 3.逻辑错误: 逻辑错误是最难被发现的,这种错误经常是一种结构错误,电脑是发现不了的。这就需要我们彻头彻尾地检查我们的代码。 因为编译错误一般是和逻辑错误一起发生的,一般都能显示出...
Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")On Error Resume NextDim thisurl,thistextthisurl=Request("thisurl") '定义文件地址(非Html格式文档)!if thisurl="" thenResponse.Write("<span>请先输入文件地址!</span>")Response.EndEnd ifFunction objxmlhttp(xmlurl)On Error Resume NextSet objxml = CreateObject("Microsoft.XMLHTTP")objxml.Open "get",xmlurl,falseobjxml.setrequestheader "content-type","application/x-www-form-urlencoded...