现在一般的在线打包都需要winrar程序的支持,下面介绍一种不用winrar支持的在线打包程序,源代码好像是个老外写的，有个缺陷就是打包的时候如果文件名是中文，就会出现乱码,庆幸的是文件的内容不会产生乱码,并且可以用winrar解压.
  下面是具体的程序,也可以到这里来下载:http://www.ii-home.cn/upfiles/zip.rar
index.asp文件

查看更多...

Tags: 打包打包

将第二段代码保存到base64.inc,在需要编码的页面将base64.inc包含进来，调用相应函数即可，例如

查看更多...

Tags: aspasp base64base64 编码编码 函数函数

<%
'注销登陆
session.abandon
Response.redirect("default.asp")
%>

查看更多...

Tags: 注销注销

'==================================================
'函数名：BuildFolder
'作  用：创建文件夹
'参  数：path ----------要创建的文件夹(路径)
'==================================================
function BuildFolder(path)
Set fso = Server.CreateObject("Scripting.FileSystemObject")

查看更多...

Tags: 文件夹文件夹

Jmail 发送程序
VBScript code<%
  '参数说明
  'Subject     : 邮件标题
  'MailAddress : 发件服务器的地址,如smtp.163.com
  'Email       : 收件人邮件地址
  'Sender      : 发件人姓名

查看更多...

Tags: JmailJmail

'小写数字转大写
function int2chn(n)
dim i,j,k,strlen,retval,x,y,z,str
z=array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖")
y=array("","拾","佰","仟")
x=Array("","万","亿","万万亿")
strlen=len(n)

查看更多...

Tags: 大写大写

Rem 判断发言是否来自外部
'ChkPost=false 来自外部提交(非法)
'ChkPost=true  合法提交表单
'*************************************************************************************************
function ChkPost()
dim server_v1,server_v2
chkpost=false

查看更多...

Tags: 判断判断

ASP与Access数据库连接：

以下为引用的内容：

<%@ language=VBscript%>
　　 <%
　　dim conn,mdbfile

查看更多...

Tags: 数据库数据库

'===============================================================
'函数名：RemoveHTML
'作  用：清除HTML标签
'参  数：strHTML 内容
'返回值：过滤HTML标签后的内容
'===============================================================
function RemoveHTML(strHTML)  

查看更多...

Tags: 清除清除

<%
'函数名：IsObjInstalled
'作  用：检查组件是否已经安装
'参  数：strClassString ----组件名
'返回值：True  ----已经安装
'        False ----没有安装
function IsObjInstalled(strClassString)

查看更多...

Tags: 组件组件