预览模式: 普通 | 列表

解决IIS的“Server Application Error”故障的终极办法

作者:admin 日期:2008-09-18

在http://localhost/ 下能正常访问图片文件与.htm 页面，但唯独访问.asp 文件的时候提示：

 

引用
Server Application Error

The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance.

 


自己已经就是Administrator 了，我还能Contact 谁啊？当然是Contact the Google for assistance……

下面是我找到的几个方法和步骤，是结合了数个有关文章之精华而成的，我也不确定到底那一步是有用，反正照着下面来，到最后还是成功的看到了“欢迎使用 Windows XP Server Internet 服务”页面。


一、启动MSDTC 服务

WIN+R，运行cmd 后输入：net start msdtc
如果显示“distributed transaction coordinator 服务不能启动”，就把C:\WINDOWS\system32\dtclog 这个目录重命名（如果有的话，没有就直接省去这一步），然后重新建立该目录。
然后在命令行下输入：msdtc -resetlog，再输入net start msdtc，显示服务启动成功。

二、设置“IUSR_”和“IWAM_”密码

打开开始－所有程序－管理工具－计算机管理－本地用户和组，分别给“IUSR_机器名”和“IWAM_机器名”两个用户设置密码，两个要是一样的，这里简单点比较好。

三、同步IIS配置数据库密码

为了确认第二步的密码是否一致，这里需要分别查看“IUSR_”和“IWAM_”的密码。

WIN+R，运行cmd后输入：cd c:\inetpub\adminscripts
获取IWAM 帐户密码命令：cscript.exe adsutil.vbs get w3svc/wamuserpass
获取IUSR 帐户密码命令：cscript.exe adsutil.vbs get w3svc/anonymoususerpass

输入以上命令，按回车就可查看IWAM 和IUSR 各自的密码，确认是否一致，如果两个密码不一致，则修改之：
修改IWAM 帐户密码：cscript.exe adsutil.vbs set w3svc/wamuserpass "password"
修改IUSR 帐户密码：cscript.exe adsutil.vbs set w3svc/anonymoususerpass "password"
其中“password” 设置为你想修改的密码，即与第二步中设置的“IWAM_”密码相同，按回车即可修改完成。

这里应该注意的是，修改密码前请一定停止所有的Internet 信息服务，否则后面可能会出错，并且IWAM 帐户可能会被锁定。

四、更改组件服务中的密码

WIN+R，运行cmd 后输入：cd c:\inetpub\adminscripts
然后输入：cscript.exe synciwam.vbs -v
最后重启IIS：iisreset

到了第四步操作后基本就OK了，到http://localhost/ 去试试？如果依然不行的话，还有

第五步：在cmd 下运行（每行分别为单独命令，分三次输入并回车执行）：

cd %windir%\system32\inetsrv
rundll32 wamreg.dll, CreateIISPackage
regsvr32 asptxn.dll

关闭所有的IE窗口后再试一下，OK 否？应该OK 了吧，如果还不行就没办法了……

提示：上面各步骤的具体操作并没有详细列出，估计大部分会用IIS的用户都应该能看得懂了吧；另外，上面涉及到的DOS 命令貌似很复杂，不要抱怨难得输入，其实XP 中的命令提示符是支持粘贴复制操作的，但不是Ctrl+V ，而是点击鼠标的右键来进行操作。

分类:IIS | 固定链接 | 评论: 0 | 引用: 1 | 查看次数: 128

产生随机滚动信息

作者:admin 日期:2008-08-06

本页演示了通过产生随机数的方式实现出现随机滚动信息的方法

RND函数

INT函数

Select CASE

代码randomadvice.asp演示了当每次页面被刷新时，上面的会随机出现不同的信息

 

代码
  1. <html><head>   
  2. <TITLE>randomadvice.asp</TITLE>   
  3. </head>   
  4. <body bgcolor="#FFFFFF">   
  5. <%    
  6. ' generate a random number 1-6   
  7. randomize   
  8. randomnum=int(rnd*6)+1   
  9. Select CASE randomnum   
  10. CASE 1,2,3%>   
  11. Plant your crops early this year<br>   
  12. No frost expected<br>   
  13. <%CASE 4%>   
  14. Never play cards<br>with a man named after a city<br>   
  15. <%CASE 5%>   
  16. You can never be too rich, too thin or backup too often<br>   
  17. <%CASE 6%>   
  18. A swallow keeps away the stork<br>   
  19. <%END Select%>   
  20. </body></html>   

查看更多...

分类:ASP | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 152

简单的ASP生成HTM静态页面程序示例

作者:admin 日期:2008-08-06

 

代码
  1. <%   
  2. filename="test.htm"  
  3. if request("body")<>"" then   
  4. set fso = Server.createObject("Scripting.FileSystemObject")   
  5. set fout = fso.createTextFile(server.mappath(""&filename""))   
  6. fout.write "标题(title):" & request.form("title") & "<br>"  
  7. fout.write "内容(body):" & request.form("body")   
  8. fout.close   
  9. set fout=nothing   
  10. set fso=nothing   
  11. end if   
  12. %>   
  13. <form name="form1" method="post" action="">   
  14. <input name="title" size=18><br>   
  15. <textarea name="body"></textarea>   
  16. <br>   
  17. <br>   
  18. <input type="submit" name="Submit" value="生成">   
  19. </form>   

 

分类:ASP | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 133

网页设计常用代码荟萃

作者:admin 日期:2008-08-06

网页设计常用代码荟萃

禁止页面正文选取
<body oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false"onmouseup="document.selection.empty()">

消除ie6自动出现的图像工具栏，设置 GALLERYIMG属性为false或no .
<IMG SRC="mypicture.jpg" HEIGHT="100px" WIDTH="100px" GALLERYIMG="no">

防止点击空链接时，页面往往重置到页首端。
代码“javascript:void(null)”代替原来的“#”标记

如何避免别人把你的网页放在框架中
<script language=“javascript”> <!--if (self!=top){top.location=self.location;} --> < /script>

查看更多...

Tags: 网页设计常用代码荟萃

分类:Html | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 125

关于页面局部刷新例程

作者:admin 日期:2008-08-06

RS技术的一个具体例子
在前面的帖子中，我介绍了RS的基本工作原理，显然如果将RS技术运用在一个
网站的设计中将会有很多非凡的作用（尤其是它的那个最大的优点，可以在不刷新
页面的情况下调用服务端的代码）。正是因为这个特点，你就可以象在编写一个
传统的C/S模式的程序一样，对数据库的数据进行处理了(我想大家一定很想知道具体应该如何来实现了，下面将给出一个具体的例子，调试这个破程序几乎快把我给累死，呵呵。)
从前面的描述可以看到，要使用RS技术就需要客户端和服务端满足下面两个条件：
1。客户端只需要支持Java applet即可
2。而服务端只需要支持ASP即可
换句话说，就是RS技术是完全独立与浏览器的（当然浏览器至少需要满足支持Java
和JavaScript），你可以在IE中使用，也可以完全在
NC中使用，这也是区别与RDS技术的一个显著特点。
在能够灵活运用RS技术前，先要说明一个问题，就是前面也曾经提到过的“异步调用”
的问题。也正是因为有异步调用，才能够实现你只刷新页面的某一部分而不用刷新
整个页面。
由于它的这个特点，你可以让服务端来实现在你浏览页面的同时
对你输入数据的合法性检查（当然这可以是一系列很复杂的合法性检查，例如需要
将用户输入的数据和数据库内已有的数据进行对比等，这个可不是客户端的JS能够解决的）
然后当服务端返回检查结果后，你再进行相应的操作（例如弹出一个对话框告诉用户
输入出错等等）
异步调用时的语法如下：
RSExecute(serverURL, functionname, param_list)
第一个参数是你想调用的asp页面的完整的URL路径
第二个参数是你想调用函数的名称
后面的就是该函数需要的输入参数了
如果你想调用的函数需要两个输入参数的话，就是这样的写法：
RSExecute(serverURL, functionname, f_arg_1, f_arg_2)
当进行调用时有两种写法，
一种是有返回结果的调用方式：
objResult = RSExecute(serverURL, functionname, f_arg_1, f_arg_2);
另外一种则是没有返回结果的调用方式：
RSExecute(url, func_name, f_arg_1, f_arg_2, CallbackFunction);
这种调用方式要特别的注意，其中的CallbackFunction是客户端的一个JS函数
它表示一但RS执行完毕服务端上的调用，就会马上调用这个函数，并把结果返回到这个
函数中去。
一个典型的CallbackFunction函数应该是这样的结构：
function CallbackFunction(objResult) {
//你自己的处理过程
}
其中唯一的输入参数objResult就是RS调用的返回值.
下面我们假设这样一种情况：
用户在浏览器中输入了用户的e-mail地址，然后用户离开了e-mail地址输入框
进入接下来的输入过程，这个时候就是RS该上场了，它根据用户输入的地址在
服务端的数据库中查询这个地址，就可以判断出这个用户是否已经存在，然后
把结果返回给客户端，在客户端再使用DHTML技术在一个叫"ShowResult"的输入框
里面提示用户以前输入的信息。
function CallbackFunc(objResult) {
// 提示用户的信息
window[objResult.context].value = objResult.return_value;
}
而RSExecute()应该这么调用
RSExecute(serverURL, functionname, f_arg_1, CallbackFunc, "ShowResult");
不说了，不说了，上面罗嗦了这么多，我想大家也都看得头大了，下面还是
让具体的代码来发言把：
(请在使用代码前在你的服务器上建立一个叫NW的系统DSN文件，该文件使用了
Northworld即中文ACCESS97自带的示例数据库)
下面的例子是这么进行的，default.htm中分为两祯，在
main.html页面中使用了RS技术，大家可以注意到在main.html中没有使用到submit
所以如果你在该页面中直接敲回车键的话什么都不会出现，你必须通过鼠标单击
那个"获取信息"按扭来使用这个局部页面刷新技术。在单击完该按扭后，页面会有
一段小小的延迟（这段时间内java applet在后台建立了和服务端的连接）
然后马上页面回复正常的鼠标，你可以在该页面中继续进行其他的操作。
而不必象普通页面刷新时，你只有等待数据。
而info.asp大家一眼就能够看明白，其实就是一个很简单的处理字符串的程序。
如果大家要是对DHTML技术熟悉的话，完全可以在客户端完成这些操作。
至于EmpData.asp就是服务端处理数据的程序了。
好了，其中的好处大家可以自己去
体会。

特别注意，不要改变太多代码，不然很容易出错，毕竟是在使用JavaScript编程

Default.htm文件代码如下：
<HTML>
<HEAD>
<TITLE>RS技术的实现例子</TITLE>
</HEAD>
<FRAMESET id=fset rows="70%,30%">
<FRAME name=main src="main.html">
<FRAME name=info src="info.asp">
</FRAMESET>
</HTML>

Maim.html文件代码如下
<HTML>
<HEAD>
<TITLE>RS技术的实现例子</TITLE>
</HEAD>
<BODY>
<script language="JavaScript" src="http://YourServer/_ScriptLibrary/rs.htm"></script>
<script language="JavaScript">
RSEnableRemoteScripting("http://YourServer/_ScriptLibrary");
</script>
<h1>雇员信息</h1>
<hr>
<form name=MyForm>
请输入你想查询的名字:
<br><input type=text name="empLastName" size=40>
<input type=button name=btnExecute style="width=150"
value="获取信息"
onclick="execAsynch(empLastName.value)">
</form>
<hr>

<SCRIPT LANGUAGE="javascript">
var serverURL = "http://YourServer";
var pageURL = "/batman/EmpData.asp";

查看更多...

Tags: 关于页面局部刷新例程

分类:ASP | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 144

很有用的网页代码

作者:admin 日期:2008-08-06

1. <body oncontextmenu="window.event.returnvalue=false"　>　 file://将彻底屏蔽鼠标右键
　　<table border oncontextmenu=return(false)><td>no</table>　file://可用于Table
2.　<body onselectstart="return false">　　　　　　　　file://取消选取、防止复制
3.　onpaste="return false"　　　　　　　　　　　　　　　　　　　 file://不准粘贴
4.　oncopy="return false;" oncut="return false;"　　　　　　　　 file://防止复制
5.　<link rel="Shortcut Icon" href="favicon.ico"> file://IE地址栏前换成自己的图标
6.　<link rel="Bookmark" href="favicon.ico"> file://可以在收藏夹中显示出你的图标
7.　<input style="ime-modeisabled">　　　　　　　　　　　　　file://关闭输入法
8.　永远都会带着框架
<script language="****"><!--
　if (window == top)top.location.href = "frames.htm"; file://file://frames.htm为框架网页
// --></script>
9.　防止被人frame
<SCRIPT LANGUAGE=****><!--
　if (top.location != self.location)top.location=self.location;
// --></SCRIPT>
10. <noscript><iframe src=*.html></iframe></noscript>　　file://网页将不能被另存为
11. <input type=button value=查看网页源代码
onclick="window.location = ''view-source:''+ ''http://www.csdn.net/'';">
12. 怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "<font color=#FF0000>您通过了代理服务器，"& _
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>
13. 取得控件的绝对位置
file://****
<script language="****">
function getIE(e)
　var t=e.offsetTop;
　var l=e.offsetLeft;
　while(e=e.offsetParent){
　　t+=e.offsetTop;
　　l+=e.offsetLeft;
　　{}
　alert("top="+t+"\nleft="+l);
　}
</script>
file://VBScript
<script language="VBScript"><!--
function getIE()
　dim t,l,a,b
　set a=document.all.img1
　t=document.all.img1.offsetTop
　l=document.all.img1.offsetLeft
　while a.tagName<>"BODY"
　　set a = a.offsetParent
　　t=t+a.offsetTop
　　l=l+a.offsetLeft
　wend
　msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"
end function
--></script>
14. 光标是停在文本框文字的最后
<script language="****">
function cc()

　var e = event.srcElement;
　var r =e.createTextRange();
　r.moveStart(''character'',e.value.length);
　r.collapse(true);
　r.select();
{}
</script>
<input type=text name=text1 value="123" onfocus="cc()">
15. 判断上一页的来源
asp:
request.servervariables("HTTP_REFERER")
****:
document.referrer
16. 最小化、最大化、关闭窗口
<object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Minimize"></object>
<object id=hh2 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Maximize"></object>
<OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM NAME="Command" value="Close"></OBJECT>
<input type=button value=最小化 onclick=hh1.Click()>
<input type=button value=最大化 onclick=hh2.Click()>
<input type=button value=关闭 onclick=hh3.Click()>
本例适用于IE
17.
<%
''定义数据库连接的一些常量
Const adOpenForwardOnly　　 = 0 ''游标只向前浏览记录，不支持分页、Recordset、BookMark
Const adOpenKeyset　　　　 = 1 ''键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
Const adOpenDynamic　　　　 = 2 ''动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
Const adOpenStatic　　　　 = 3 ''静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
Const adLockReadOnly　　　　= 1 ''锁定类型，默认的，只读，不能作任何修改
Const adLockPessimistic　　 = 2 ''当编辑时立即锁定记录，最安全的方式
Const adLockOptimistic　　　= 3 ''只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
Const adLockBatchOptimistic = 4 ''当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的
Const adCmdText　= &H0001
Const adCmdTable = &H0002
%>
18. 网页不会被缓存
HTM网页
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 0857 GMT">
或者<META HTTP-EQUIV="expires" CONTENT="0">
ASP网页
　Response.Expires = -1
　Response.ExpiresAbsolute = Now() - 1
　Response.cachecontrol = "no-cache"
PHP网页
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");

19.COOKIE脚本记录，有很大的用处哦。
function get_cookie(Name)
var search = Name + "="

var returnvalue = "";

if (documents.cookie.length > 0) {

查看更多...

分类:Html | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 120

Asp统计虚拟主机空间使用情况

作者:admin 日期:2008-08-06

 

代码
  1. <title><%=webname%>-空间查看</title>   
  2. <link href="img_shopxp/css.css" rel="stylesheet" type="text/css">   
  3. <style type="text/css">   
  4. table { font-size: 9pt}   
  5. BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt;   
  6. SCROLLBAR-HIGHLIGHT-COLOR: buttonface;   
  7. SCROLLBAR-SHADOW-COLOR: buttonface;   
  8. SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;   
  9. SCROLLBAR-TRACK-COLOR: #eeeeee;   
  10. SCROLLBAR-DARKSHADOW-COLOR: buttonshadow}   
  11. </STYLE>   
  12. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">   
  13. <BODY>   
  14. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">   
  15. <tr>    
  16. <td colspan="4" align="center" background="shopxp_images/admin_bg_1.gif"><b><font color="#ffffff">空间的使用情况</font></b></td>   
  17. </tr>   
  18. <tr>   
  19. <td valign=top bgcolor=#E8F1FF>    
  20. <%    
  21.    Sub ShowSpaceInfo(drvpath)   
  22.     dim fso,d,size,showsize   
  23.     set fso=server.createobject("scripting.filesystemobject")      
  24.     drvpath=server.mappath(drvpath)         
  25.     set d=fso.getfolder(drvpath)      
  26.     size=d.size   
  27.     showsize=size & " Byte"    
  28.     if size>1024 then   
  29.       size=(size\1024)   
  30.       showsize=size & " KB"  
  31.     end if   
  32.     if size>1024 then   
  33.       size=(size/1024)   
  34.       showsize=size & " MB"     
  35.     end if   
  36.     if size>1024 then   
  37.       size=(size/1024)   
  38.       showsize=size & " GB"       
  39.     end if      
  40.     response.write "<font face=verdana>" & showsize & "</font>"  
  41.    End Sub    
  42.      
  43.    Sub Showspecialspaceinfo(method)   
  44.     dim fso,d,fc,f1,size,showsize,drvpath      
  45.     set fso=server.createobject("scripting.filesystemobject")   
  46.     drvpath=server.mappath("pic")   
  47.     drvpath=left(drvpath,(instrrev(drvpath,"\")-1))  
  48.     set d=fso.getfolder(drvpath)     
  49.      
  50.     if method="All" then     
  51.      size=d.size  
  52.     elseif method="Program" then  
  53.      set fc=d.Files  
  54.      for each f1 in fc  
  55.       size=size+f1.size  
  56.      next   
  57.     end if   
  58.      
  59.     showsize=size & " Byte"   
  60.     if size>1024 then  
  61.       size=(size\1024)  
  62.       showsize=size & " KB"  
  63.     end if  
  64.     if size>1024 then  
  65.       size=(size/1024)  
  66.       showsize=size & " MB"    
  67.     end if  
  68.     if size>1024 then  
  69.       size=(size/1024)  
  70.       showsize=size & " GB"      
  71.     end if     
  72.     response.write "<font face=verdana>" & showsize & "</font>"  
  73.    end sub   
  74.     
  75.    Function Drawbar(drvpath)  
  76.     dim fso,drvpathroot,d,size,totalsize,barsize  
  77.     set fso=server.createobject("scripting.filesystemobject")  
  78.     drvpathroot=server.mappath("pic")  
  79.     drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))  
  80.     set d=fso.getfolder(drvpathroot)  
  81.     totalsize=d.size  
  82.      
  83.     drvpath=server.mappath(drvpath)     
  84.     set d=fso.getfolder(drvpath)  
  85.     size=d.size  
  86.      
  87.     barsize=cint((size/totalsize)*400)  
  88.     Drawbar=barsize  
  89.    End Function   
  90.     
  91.    Function Drawspecialbar()  
  92.     dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize  
  93.     set fso=server.createobject("scripting.filesystemobject")  
  94.     drvpathroot=server.mappath("pic")  
  95.     drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))  
  96.     set d=fso.getfolder(drvpathroot)  
  97.     totalsize=d.size  
  98.      
  99.     set fc=d.files  
  100.     for each f1 in fc  
  101.      size=size+f1.size  
  102.     next   
  103.      
  104.     barsize=cint((size/totalsize)*400)  
  105.     Drawspecialbar=barsize  
  106.    End Function   
  107. %>  
  108. <table width="100%" align="center" border="0" cellpadding="0" cellspacing="0">  
  109. <tr>  
  110. <td>  
  111.     <%  
  112.      fsorank=1  
  113.      if fsorank=1 then  
  114.      %>  
  115.     <%Function GetPP  
  116.     dim s  
  117.     s=Request.ServerVariables("path_translated")  
  118.     GetPP=left(s,instrrev(s,"\",len(s)))  
  119.      End function  
  120.      if sPP="" then sPP=GetPP  
  121.      if right(sPP,1)<>"\" then sPP=sPP&"\"  
  122.      set fso=server.createobject("scripting.filesystemobject")  
  123.      Set f = fso.GetFolder(sPP)  
  124.      Set fc = f.SubFolders  
  125.      i=1  
  126.     i2=1  
  127.      For Each f in fc%>  
  128.     <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">  
  129.     <tr bgcolor="#ffffff">   
  130.     <td width="20%"> 目录 <%=f.name%></td>  
  131.     <td width="80%">  
  132.      <%showSpaceinfo(""&f.name&"")%></td>  
  133.     </tr>  
  134.     </table>  
  135.     <table width="100%" border="0" cellpadding="0" cellspacing="0">  
  136.     <tr><td height="2"></td></tr>  
  137.     </table>  
  138.     <%i=i+1  
  139.     if i2<10 then  
  140.     i2=i2+1  
  141.     else  
  142.     i2=1  
  143.     end if  
  144.     Next%>  
  145.     <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">  
  146.     <tr bgcolor="#ffffff">   
  147.     <td width="20%"> 程序文件占用空间</td>  
  148.     <td width="80%">  
  149.      <%showSpecialSpaceinfo("Program")%></td>  
  150.     </tr>  
  151.     </table>  
  152.     <table width="100%" border="0" cellpadding="0" cellspacing="0">  
  153.     <tr><td height="2"></td></tr>  
  154.     </table>  
  155.     <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">  
  156.     <tr bgcolor="#ffffff">   
  157.     <td width="20%"> 系统占用空间总计</td>  
  158.     <td width="80%">  
  159.      <%showspecialspaceinfo("All")%> </td>  
  160.     </tr>  
  161.     </table>  
  162.     <%  
  163.      else  
  164.     response.write "<br><li>本功能已经被关闭"   
  165.      end if   
  166.      %>   
  167. </td>   
  168. </tr>   
  169. </table>   
  170. </td>   
  171. </tr>   
  172. </table>   
  173. </body>   
  174. </html>  

 

Tags: Asp统计虚拟主机空间使用情况

分类:ASP | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 120

ASP 函数语法速查表

作者:admin 日期:2008-08-06

Abs （数值） 绝对值。一个数字的绝对值是它的正值。空字符串 (null) 的绝对值，也是空字符串。未初始化的变数，其绝对为 0 例子：ABS(-2000)
结果：2000
Array （以逗点分隔的数组元素） Array 函数传回数组元素的值。 例子：
A=Array(1,2,3)
B=A(2)
结果： 2
说明：变量Ｂ为Ａ数组的第二个元素的值。
Ａsc （字符串） 将字符串的第一字母转换成 ANSI （美国国家标准符号）字码。 例子：Ａsc（＂Internet＂）
结果：73
说明：显示第一字母 I 的 ANSI 字码。
CBool（表达式） 转换成布尔逻辑值变量型态（Ｔrue 或Ｆalse ） 例子：CBool（1+2）
结果：True
CDate （日期表达式） 换成日期变量型态。可先使用 IsDate 函数判断是否可以转换成日 期。 例子： CDate (now( )+2)
结果：2000/5/28 10:30:59
CDbl（表达式） 转换成DOUBLE变量型态。  
Chr （ ANSI 字码） 将ASCII 字码转换成字符。 例子： Chr （ 72 ）
结果： H
CInt （表达式） 转换成整数变量型态。 例子： CInt ("3.12")
结果： 3
CLng （表达式） 转换成LONG 变量型态。  
CSng （表达式） 转换成SINGLE 变量型态。  
CStr （表达式） 转换成字符串变量型态。  
Date （ ） 传回系统的日期。 例子： Date
结果： 2000/5/13
DateAdd （ I , N , D ） 将一个日期加上一段期间后的日期。 I ：设定一个日期（ Date ）所加上的一段期间的单位。譬如 interval="d" 表示 N的单位为日。 I的设定值如下：
yyyy Year 年
q Quarter 季
m Month 月
d Day 日
w Weekday 星期
h Hour 时
n Minute 分
s Second 秒
N ：数值表达式，设定一个日期所加上的一段期间，可为正值或负值，正值表示加（结果为 >date 以后的日期），负值表示减（结果为 >date 以前的日期）。
D ：待加减的日期。		 例子： DateAdd （ "m" , 1 , "31-Jan-98")
结果： 28-Feb-98
说明：将日期 31-Jan-98 加上一个月，结果为 28-Feb-98 而非 31-Fe-98 。
例子： DateAdd （ "d" , 20 , "30-Jan-99")
结果： 1999/2/9
说明：将一个日期 30-Jan-99 加上 20 天后的日期。
DateDiff (I , D1 , D2[,FW[,FY]]) 计算两个日期之间的期间。
I ：设定两个日期之间的期间计算之单位。譬如 >I="m" 表示计算的单位为月。 >I 的设定值如：
yyyy > Year 年
q Quarter 季
m Month 月
d Day 日
w Weekday 星期
h Hour 时
m Minute 分
s Second 秒
D1 ,D2：计算期间的两个日期表达式，若 >date1 较早，则两个日期之间的期间结果为正值；若 >date2 较早， 则结果为负值。
FW ：设定每周第一天为星期几， 若未设定表示为星期天。 >FW 的设定值如下：
0 使用 >API 的设定值。
1 星期天
2 星期一
3 星期二
4 星期三
5 星期四
6 星期五
7 星期六
FY ：设定一年的第一周， 若未设定则表示一月一日那一周为一年的第一周。 >FY 的设定值如下：
0 使用 >API 的设定值。
1 一月一日那一周为一年的第一周
2 至少包括四天的第一周为一年的第一周
3 包括七天的第一周为一年的第一周		 例子： DateDiff ("d","25-Mar-99 ","30-Jun-99 ")
结果： 97
说明：显示两个日期之间的期间为 97 天。
DatePart (I,D,[,FW[,FY]]) 传回一个日期的之部份。
>I ：设定传回那一部份。譬如 >I="d" 表示传回 部份为日。 >I 的设定值如下：
yyyy Year 年
q Quarter 季
m Month 月
d Day 日
w Weekday 星期
h Hour 时
m Minute 分
s Second 秒
D ：待计算的日期。
>FW ：设定每周第一天为星期几， 若未设定则表示为星期天。 >FW 的设定值如下：
0 使用 >API 的设定值。
1 星期天
2 星期一>3 星期二
4 星期三
5 星期四
6 星期五
7 星期六
FY ：设定一年的第一周， 若未设定则表示一月一日那一周为一年的第一周。 >FY 的设定值如下：
0 使用 >API 的设定值。
1 一月一日那一周为一年的第一周
2 至少包括四天的第一周为一年的第一周
3 包括七天的第一周为一年的第一周		 例子： DatePart ("m","25-Mar-99 ")
结果： 3
说明：显示传回一个日期 的月部份。
Dateserial (year,month,day) 转换(year,month,day) 成日期变量型态。 例子： DateSerial (99,10,1)
结果： 1999/10/1
DateValue ( 日期的字符串或表达式 ) 转换成日期变量型态，日期从 January 1,100 到 December 31,9999 。格式为 month,day,and year 或 month/day/year 。譬如： December 30,1999 、 Dec 30,1999 、 12/30/1999 、 12/30/99 例子： DateValue ("January 1,2002 ")
结果： 2002/1/1
Day( 日期的字符串或表达式 ) 传回日期的「日」部份。 例子： Day(" 12/1/1999 ")
结果： 1
Fix( 表达式 ) 转换字符串成整数数字型态。与 Int 函数相同。若为 null 时传回 null 。
Int (number) 与 Fix(number) 的差别在负数。如 Int (-5.6)=-6 ， Fix(-5.6)=-5 。		 例子： Fix(5.6)
结果： 5
Hex( 表达式 ) 传回数值的十六进制值。若表达式为 null 时 Hex( 表达式 )=null ，若表达式 =Empty 时 Hex( 表达式 )=0 。 16 进位可以加「 &H 」表示，譬如 16 进位 &H10 表示十进制的 16 。 例子： Hex(30)
结果： 1E
Hour( 时间的字符串或表达式 ) 传回时间的「小时」部份。 例子： Hour("12:30:54 ")
结果： 12
InStr ([start,]string1,string2[,compare]) 将一 个 字符串由左 而右与另一个比较，传回第一个相同的位置。
start 为从第几个字比较起，若省略 start 则从第一个字比较起， string1 为待寻找的字符串表达式， string2 为 待比较的字符串表达式， compare 为比较的方法， compare=0 表二进制比较法， compare=1 表文字比较法，若省略 compare 则为预设的二进制比较法。		 例子： InStr("abc123def123","12")
结果： 4
InstrRev ([start,]string1,string2[,compare]) 将一 个 字符串 由右而左与另一个比较，传回第一个相同的位置。
start 为从第几个字比较起，若省略 start 则从第一个字比较起， string1 为待寻找的字符串表达式， string2 为 待比较的字符串表达式， compare 为比较的方法， compare=0 表二进制比较法， compare=1 表文字比较法，若省略 compare 则为预设的二进制比较法。		 例子： InstrRev ("abc123def123","12")
结果： 10
Int ( 表达式 ) 传回一个数值的整数部份。与 Fix 函数相同。 例子： Int (5.6)
结果： 5
IsArray ( 变数 ) 测试变量是 (True) 否 (False) 是一个数组。 例子： IsArray (3)
结果： False
说明：不是一个数组。
IsDate ( 日期或字符串的表达式 ) 是否可以转换成日期。日期从 January 1,100 A.D. 到 December 31,9999 A.D 。 例子： IsDate ("December 31,1999 ")
结果： True
说明：可以转换成日期。
IsEmpty ( 变数 ) 测试变量是 (True) 否 (False) 已经被初始化 例子： IsEmpty (a)
结果： True
IsNull ( 变数 ) 测试变数是 (True) 否 (False) 不是有效的数据。 例子： IsNull ("")
结果： False
说明：是有效的数据。
IsNumeric ( 表达式 ) 是 (True) 否 (False) 是数字。 例子： IsNumeric ("abc123")
结果： False
说明：不是数字。
LCase ( 字符串表达式 ) 转换字符串成小写。将大写字母的部份转换成小写。字符串其余的部份不变。 例子： LCase ("ABC123")
结果： abc123
Left( 字符串表达式 ,length) 取字符串左边的几个字。 length 为取个字。 Len 函数可得知字符串的长度。 例子： Left("ABC123",3)
结果： ABC
Len( 字符串表达式 变量 ) 取得字符串的长度。 例子： Len("ABC123")
结果： 6
LTrim ( 字符串表达式 ) 除去字符串左边的空白字。 RTrim 除去字符串右边的空白字， Trim 函数除去字符串左右两边的空白字。 例子： LTrim ("456+" abc ")
结果： 456abc123
Mid( 字符串表达式 ,start[,length]) 取字符串中的几个字。 start 为从第几个 字取起， length 为取几个字， 若略 length 则从 start 取到最右底。由Len 函数可得知字符串的长度。 例子： Mid("abc123",2,3)
结果： c12
Minute( 日期的字符串或表达式 ) 传回时间的「分钟」部份。 例子： Minute("12:30:54")
结果：30
Month(日期的字符串或表达式) 传回日期的「月」部份。 例子：Month("12/1/2001")
结果：12
MonthName(month[,abbreviate]) 传回月的名称。
month ：待传回月名称的数字 1~12 。譬如， 1 代表一月， 7 代表七月。
abbreviate: 是 (True) 否 (False) 为缩写，譬如 March ，缩写为 Mar 。默认值为 False 。中文的月名称无缩写。		 例子： MonthName (7)
结果：七月
Now() 传回系统的日期时间。 例子： Now()
结果： 2001/12/30 10:35:59 AM
Oct() 传回数值的八进位值。八进位可以加「 &O 」表示，譬如八进位 &O10 表示十进制的 8 。 例子： Oct(10)
结果： 12
Replace( 字符串表达式,findnreplacewith[,start[,count[,compare]]]) 将一个字符串取代 部份字。寻找待取代的原字符串 (find) ， 若找到则被取代为新字符串 (replacewith) 。
find ：待寻找取代的原字符串。
replacewith ：取代后的字。
start ：从第几个字开始寻找取代， 若未设定则由第一个字开始寻找。
count ：取代的次数。 若未设定则所有寻找到的字符串取代字符 串全部被取代。
compare ：寻找比较的方法， compare=0 表示二进制比较法， compare=1 表文字比较法， compare =2 表根据比较的 数据型态而定，若省略 compare 则为预设的二进制比较法。		 例子： Replace("ABCD123ABC","AB","ab")
结果： abCD123abC
Right( 字符串表达式 ,length) 取字符串右边的几个字， length 为取几个字。 Len 函数可得知字符串的长度。 例子： Right("ABC123",3)
结果： 123
Rnd [(number)] 0~1 的 随机随机数值。 number 是任何有效的数值表达式。若 number 小于 0 表示每次得到相同的 随机随机数值。 number 大于 0 或未提供时表示依序得到下一个 随机随机数值。 >number=0 表示得到最近产生的 随机随机数值。为了避免得到相同的随机随机数顺序，可以于 Rnd 函数前加 Randomize 。 例子： Rnd
结果： 0.498498
Round( 数值表达式 [,D]) 四舍五入。
D ：为四舍五入到第几位小数，若省略则四舍五入到整数。		 例子： Round(30635,1)
结果： 3.6
RTrim ( 字符串表达式 ) 除去字符串右边的空白字。 LTrim 除去字符串左边的空白字， Trim 函数除去字符串左右两边的空白字。 例子： RTrim ("abc123 ")+"456"
结果： abc123456
Second( 时间的字符串或表达式 ) 传回时间的「秒」部份。 例子：Second("12:30:54")
结果：54
Space( 重复次数 ) 得到重复相同的空白字符串。 例子： A"+Space (5)+"B
结果： A B
说明： A 和 B 中间加入五个空白字。
String( 重复次数，待重复的字 ) 得到重复相同的字符串。 例子： String(5,71)
结果： GGGGG
StrReverse (String(10,71)) 将一个字符串顺序颠倒。 例子： StrReverse ("ABC")
结果： CBA
Time() 传回系统的时间。 例子： Time
结果： 10:35:59 PM
TimeSerial (hour,minute,second) 转换指定的 ( hour,minute,second) 成时间 变量型态。 例子： TimeSerial (10,31,59)
结果： 10:31:59
TimeValue ( 日期的字符串或表达式 ) 转换 成时间变量型态。日期的字符串或表达式从 0:00:00(12:00:00 A.M.) 到 23:59:59(11:59:59 P.M.) 。 例子： TimeValue (" 11:59:59 ")
结果： 11:59:59
Trim( 字符串表达式 ) 除去字符串左右两边的空白字。 例子： Trim(" abc123 ")
结果： abc123
UCase () 转换字符串成大写。将小写字母的部份转换成大写，字符串其余部份不变。 例子： UCase ("abc123")
结果： ABC123
VarType ( 变数 ) 传回一个变量类型。与 TypeName 函数相同， VarType 传回变量类型的代码， TypeName 传回变量类型的名称。 例子： VarType ( "I love you!")
结果： 8
Weekday( 日期表达式 ,[FW]) 传回星期几的数字。
FW ：设定一周的第一天是星期几。若 省略则表 1( 星期日 ) 。
Firstdayfweek 设定值为： 1( 星期日 ),2( 星期一 ),3( 星期二 ),4( 星期三 ),5( 星期四 ),6( 星期五 ),7( 星期六 ) 。		 例子： Weekday(" 1/1/2000")
结果： 7
WeekDayName (W,A,FW) 传回星期几的名称。
W ：是 (True) 否 (False) 为缩写。譬如 March ，缩写为 Mar 。预设为 False 。中文的星期几名称无缩写。
FW ：设定一周的第一天是星期几。 若省略表 1( 星期日 ) 。设定待传回星期几的名称，为一周中的第几天。
A ： 1( 星期日 ),2( 星期一 ),3( 星期二 ),4( 星期三 ),5( 星期四 ),6( 星期五 ),7( 星期六 ) 。		 例子： WeekDayName ("1/1/2000")
结果：星期六
Year() 传回日期的「年」部份。 例子： Year(" 12/1/2000 ")
结果： 2000

分类:ASP | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 144