Kite's Blog 技术文章版

<%
function HTMLEncode(fString)
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = Replace(fString, CHR(32), "&nbsp;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<br>")
fString = Replace(fString, CHR(10), "<br>")
HTMLEncode = fString
end function
%>

<table cellspacing="0" cellpadding="0">
<TR>
<TD width="468" height="89" align="middle"><strong>
<center>admin：欢迎您使用本系统<BR>
<BR>
<strong></strong>
</center></strong><strong><center>为保证系统数据安全，使用完后请点击退出！</center></strong></TD>
</TR>
<TR>
<TD><table width="100%" align="center" ...

阅读全文

ASP函数：检查文件夹是否存在，不存在则创建文件夹　Public Function CheckAndCreateFolder(FolderName)
fldr = Server.Mappath(FolderName)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(fldr) Then
fso.CreateFolder(fldr)
End If
Set fso = Nothing
End Function
检查文件夹是否存在，不存在则创建文件夹，该函数无返回值。
...

阅读全文

1、首先在系统盘中查找scrrun.dll，如果存在这个文件，请跳到第三步，如果没有，请执行第二步。

2、在安装文件目录i386中找到scrrun.dl_，用winrar解压缩，得scrrun.dll，然后复制到

你的系统盘:\windows\system32\目录中。

3、运行regsvr32 scrrun.dll即可。

删除fso、regsvr32/u scrrun.dll

开启/关闭系统FSO支持方法

windows98系统

在DOS命令行状态输入以下命令：

关闭命令：RegSvr32 /u C:\WINDOWS\SYSTEM\scrrun.dll

打开命令：RegSvr32 C:\WINDOWS\SYSTEM\scrrun.dll
...

阅读全文

第一种：用RegSrv32 /u C:\WINDOWS\SYSTEM\scrrun.dll(win98路径)来注销该组件。此方法过于狠毒，属于同归于尽的方法，大家都没得用，是下招

第二种：修改Progid的值，在ASP里调用组件的方式通常是 Set 对象名=Server.CreateObject("Progid")，这时候我们就可以通过修改注册表中的Progid值从达到禁用该组件的方法。在 开始-运行中敲入regedit,然后找到HKEY_CLASSES_ROOT\Scripting.FileSystemObject，这时候我们就可以更改该Progid的值了，如改成Scripting.FileSystemObject8。这样在ASP页里就这样调用了：
...

阅读全文

如果我们知道一个静态文件的实际路径如：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=51w...

阅读全文

网站左右两边放广告,图像路径自己设定.
文件ad.js如下,页面调用<SCRIPT language=javascript src="ad.js"></SCRIPT>

  var delta=0.8;
  var collection;
  var closeB=false;
  var isScrolling = false;
  function floaters() {
    this.items  = [];
    this.addItem  = function(id,x,y,content)
         {
          document.write('<DIV id='+id+' style="Z-INDEX: 10; POSITION: absolute; ...

阅读全文

在动态网页编程时，如果文章标题过长，超过表格宽度，会自动换行，这样会影响网页的排版布局。所以，通常采用固定地提取一部分字符，然后后面用…代替。

这里，结合“深度空间整站系统” 程序实例进行简单阐述。

1、原理：
判断文章的长度数是否超过规定的长度数，若超过则只显示规定长度的文字数，否则完整显示。

2、涉及函数：
函数的用法详见VBScript函数手册，在此再简单介绍一下：
len() 返回字符串长度或者变量的字节长度。
mid() 返回字符串中从第N个字符开始取M个字符，它的格式是Mid("字符串",N,M)。
left()：截取一个字符串的前部分

3、ASP示例代码：

<%
title=rs("content") '将数据库字段值赋到某变量上
i=10 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
...

阅读全文