复制代码 代码如下:% call getMyNumber(aa,bb,cc) response.write aa & " " & bb & "br /" & cc function getMyNumber(byref aa,byref bb,byref cc) aa=3 bb=4 cc =10 end function % ... [阅读全文]

复制代码 代码如下:Class XMLClass Private objXml Private xmlDoc Private xmlPath '//============================================================ ' Sub Class_initialize Set objXml = Server.CreateObject("MSXML2.D... [阅读全文]

以下保存成 App.xml , 与asp文件放在相同目录下! 复制代码 代码如下: ?xml version="1.0" encoding="utf-8"? Root About Version1.0 Beta/Version LatestVersion1.0 Beta/LatestVersion AuthorAuthor/Author PubDate2010/02/20/PubDate /Abo... [阅读全文]

复制代码 代码如下:function FSOlastline(filename) dim fso,f,temparray,tempcnt set fso = server.CreateObject("scripting.filesystemobject") if not fso.fileExists(server.mappath(filename)) then exit function set ... [阅读全文]

复制代码 代码如下:td=date() '此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期.. str="一二三四五六日" '生成具体是周几的串,根据位置来取就可以了.. for x=1 to 7 '这个循环主要是判断是最近的周一是哪天就可以了... if td-weekday(td)+1+x=td then '这个判断是要让当前日期显示红色,没什么特别的价值.. respons... [阅读全文]

只要不是HTTP_REFERER来源于（google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com）这些网址来源的请求，就通通转发至404复制代码 代码如下:% Dim a, reg a = Request.ServerVariables("HTTP_REFERER").Item Set reg = New RegExp ... [阅读全文]

好久没有写ASP代码了，今天在做一个简单的留言本时，出现了一下错误： Microsoft Office Access Database Engine 错误 '80040e14' Insert INTO 语句的语法错误。 上网查了一下资料，才知道该错误是由一下原因造成的： 1)将保留字用作名称。大多数数据库都有一组保留字。例如，"name"是保留字，因而不能用于数据库中的列名称。 2)名称中使用特殊... [阅读全文]

文章背景： 某天，我的一个同事给我看了CSDN上面的一篇关于编程语言排行榜的文章，里面我看到VB还是排名很不错的，我就说，asp（vbscript）确实挺不错。结果他就反驳我，说asp不好，很多东西很难实现。我说比如哪些东西？我开发了几年的asp都没有发现很难实现的东西，除非是属于非脚本语言范围内的，比如多线程的应用（当然，asp也可以模拟实现多线程任务）等。结果他说了什么多线程，还有编码转换等，... [阅读全文]

建个表:IP论坛封IP 建个表:IP 2个双精度字段 IP_start和IP_end 存伫代码形式如下: 存伫时候,将普通IP转成双精度数字.. 如果: ip_start=request("ip_start") ip_ary=split(ip_start,".") ip_start=ip_ary(0)*256*256*256+ip_ary(1)*256*256+ip_ary(2)*256+ip... [阅读全文]

要做移动梦网WAP些接口所以要用到这种方式接下来会有ASP.net版本这个是ASP版本利用了MSXML2.XMLHTTP对像 request.asp [response.write the_text 　　利用这种思路方法ASP里Servlet或Web Service都是很轻松！ ... [阅读全文]

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" html xmlns="http://www.w3.org/1999/xhtml" head meta http-equiv="Content-Type" co... [阅读全文]

% a="日本是中国个省|我们美丽中国张家界！" b="中国,我们,张家界,日本,美国,苹果" b=split(b,",") a=split(a,"|") for k=0 to ubound(a) s="" n="" for i=0 to ubound(b) instr(a(k),b(i))0 then s=s & instr(a(k),b(i)) & "," &instr(a(k),... [阅读全文]

MicrosoftVBScript(0x800A03E9)→内存不足 　　MicrosoftVBScript(0x800A03EA)→语句格式错误（只有else，缺少If或EndIf） 　　MicrosoftVBScript(0x800A03EB)→缺少 ':' 　　MicrosoftVBScript(0x800A03ED)→缺少 '(' 　　MicrosoftVBScript(0x800... [阅读全文]

[ft=#6600ff,3,宋体]. 将彻底屏蔽鼠标右键 　　table border (false)tdno/table 可用于Table [ft=#6600ff,3,宋体]　　2. body 取消选取、防止复制 [ft=#6600ff,3,宋体]　　3. 不准粘贴 [ft=#6600ff,3,宋体]　　4. 防止复制 [ft=#6600ff,3,宋体]　　5. li... [阅读全文]

. 将彻底屏蔽鼠标右键 table border (false)tdno/table 可用于Table 2. body 取消选取、防止复制 3. 不准粘贴 4. 防止复制 5. link rel="Shortcut Icon" href="favicon.ico" IE地址栏前换成自己的图标 6. link rel="Bookmark" href="favicon.ico" 可以在收藏夹... [阅读全文]

、数据库连接。 ASP与Access数据库连接： %@ language=VBs cript% % dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set c.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};... [阅读全文]

%@ Language=vbscript %%Option ExplicitDim strSubmit \'Form中用来保存提交按钮值Dim strPrerPath \'Form中保存网络打印机路径值Dim strUsername \'Form中用户名值Dim strPassword \'Form中密码值Dim strMessage \'Form打印内容值Di... [阅读全文]

1.oncontextmenu=\"window.event.value=false\"将彻底屏蔽鼠标右键tableborderoncontextmenu=(false)tdno/table可用于Table 2.bodyonselectstart=\"false\"取消选取、防止复制3.onpaste=\"false\"不准粘贴4.oncopy=\"false;... [阅读全文]

接着来希望大家也参和近来-------------------------------asp编程有用例子( 2)17. ASP和SQL数据库连接: %@ language=VBs cript% % dim conn conn=server.createobject(\"ADODB.connection\") con.open \"PROVIDER=SQLOLE... [阅读全文]

纯编码实现Access数据库建立或压缩 % \'#######以下是个类文件下面注解是类思路方法################################################ \'# 注意:如果系统不支持建立Scripting.FileObject对象那么数据库压缩功能将无法使用 \'# Access 数据库类 \'# CreateDbFile... [阅读全文]