- 2013-04-17
一.在表单填写页面: input name=intime1 type=hidden value=%=Now()% 在提交处理页面,设置提交时间 代码如下: If DateDiff(s,request.form(intime1), Now()) 5 then response.write SCRIPT language=JavaScriptalert('您的留言速度太快，禁止留言！'); response.write
- 2013-04-17
ASP中DateAdd函数用法 2006/09/22 12:29 注意vbs中和sql中写法略有不同,以下帖出的为vbs帮助。 sql的可搜索sql自带帮助文档 字符串表达式，表示要添加的时间间隔。有关数值，请参阅设置部分。 返回已添加指定时间间隔的日期。 DateAdd(interval, number, date) 参数 in
- 2013-04-17
如果要想获取这样的地址：http://192.168.0.5/super/super_article.asp?id=4 那么我们就只要获取： 192.168.0.5---%=Request.ServerVariables(HTTP_HOST)%br /super/super_article.asp-----%=Request.ServerVariables(URL)%br id=4----%=Request.ServerVariables(QUERY
- 2013-04-17
object.CreateTextFile(filename[, overwrite[, unicode]]) 参数：object 必选项。 应为 FileSystemObject 或 Folder 对象的名称。 filename 必选项。 指明所要创建文件的字符串表达式。 overwrite 可选项。 Boolean 值，指明能否覆盖已有文件。 如果文件可以覆盖，则
- 2013-04-17
NextRecordset和GetRows是RecordSet的两个属性对提高批量查询速度很有效果，大家可能用的很少，分享一下这两个方法的用法： GetRows方法： 将RecordSet记录集提取到一个二维数组中，我们对RecordSet数据的行为就转移到该数组，可以早早的断开纪录集，不用再使用源数据
- 2013-04-17
ASP程序中调用Now()总显示上午和下午的解决办法: 1.这么显示，一般都是因为服务器就是如此设置的，先查看时间格式：直接双击任务栏中时间，在弹出的时间和日期中果然显示了上午下午这样的字样，那就进入下一步设置; 2.打开控制面板，选择区域和语言选项，在区域选项中
- 2013-04-17
在网页上显示时间，如果取的是用户本机的时间，由于用户的时间往往不准确，所以显示的有问题。而服务器时间一般不会误差太大，所以最好显示服务器时间 下面以asp+js为例说明。 下面分析代码结构，先是获取服务器时间： % d=Date() t=Time() % var t0=new Date().getTim
- 2012-07-01
GetRows()方法是将数据从 Recordset 复制到二维数组中，这是一个二维数组，第一个下标标识字段，第二个则标识记录号 所以rsArray = rs.GetRows() rsArray(0, 0)就表示记录集第一行的第一字段值 rsArray(1, 0)就表示记录集第一行的第二字段值 数组的数据是保
- 2012-07-01
下午做了一个asp+js实现 图片的轮显的效果，效果图 如： 左侧的图片轮显，在 我用的是js,然后我改了一下用asp实现效果 的。 pic.asp源代码： % '连接数据库代码省去了 sql=(select * from Pic order by picorder asc,id desc) Set rs=server.CreateObject(
- 2012-06-29
前两天在做一个站内版的企搜引擎，发现某些站点可以链接站点内容。。 奇怪之下看了看，原来是按照数据库ID的自动编号规律进行链接的~~ 闲暇之余弄了下面这个东东，希望对大家在以后的编写ASP程序中有所帮助！ % ''//生成指定位数的随机数字 ''//也可以用Guid
- 2012-06-29
自己写了一段防小偷采集的代码,与大家交流交流! 用法: 单独保存一个文件如(no.asp); 在相应的asp页面头部用!--#include file=no.asp --加入即可! % '**************************************** '* 网页防采集实现 * '************************************
- 2012-06-29
ASP教程：关于AJAX一个简单的例子 Index.asp： 程序代码 html head meta http-equiv=Content-Type content=text/html; charset=gb2312 / titleAJAX简单应用/title script language=javascript //创建XMLHttpRequest对象 var request = false; try { re
- 2012-06-21
由于各种字段属性不同，判断字段是否为空的方法也各异． 下面是一个通用函数，免去了还要看字段类型之苦． 'Check a variable isn't empty Function IsBlank(ByRef TempVar) 'by default, assume it's not blank IsBlank = False 'now check by variable t
- 2012-06-21
用户登录验证脚本,Chkpwd.asp % '=======用户登录验证脚本======= '如果尚未定义Passed对象,则将其定义为false,表示没有通过验证 If IsEmpty(Session(Passed)) Then Session(Passed)=false End If 'Session(Passed)=False,表示尚未通过验证,则开始读取
- 2012-06-21
由于工作关系,要做个人空间,其中有一功能是增加对方为好友.如图: 用到的方法是ajax,费话少说贴切代码: a href=javascript：void(0); onClick =add_username('%= rs(username) %');加为好友/a,用到的js验证: script language = JavaScript src=ajax.
- 2012-06-18
为了避免ASP程序和HTML代码混写造成维护困难的情况，本文介绍了一种方法，利用模板来分离程序和页面，使程序设计更加轻松。 在使用ASP制作一个站点的时候，常常会出现一个ASP文件中，程序代码和HTML代码混合的情况。这样子做有许多缺点： 1.且不说编程时就要
- 2012-06-18
作用：将页面中的电话号码生成图片格式。 % Call Com_CreatValidCode(Request.QueryString(tel)) Public Sub Com_CreatValidCode(pTel) '----------禁止缓存 Response.Expires = 0 Response.AddHeader Pragma,no-cache Response.AddHeader cache-ctro
- 2012-06-18
ASP开发中有用的函数（function）集合，挺有用的，请大家保留！ '************************************* '切割内容 - 按行分割 '************************************* Function SplitLines(byVal Content,byVal ContentNums) Dim ts,i,l ContentNums=int(
- 2012-06-18
ASP开发中有用的function集合,挺有用处的！希望大家保留！ % '************************************* '防止外部提交 '************************************* function ChkPost() dim server_v1,server_v2 chkpost=false server_v1=Cstr(Request.ServerVari
- 2012-06-18
ASP开发中有用的函数（function）集合，挺有用的，请大家保留！ '************************************* '过滤超链接 '************************************* Function checkURL(ByVal ChkStr) Dim str:str=ChkStr str=Trim(str) If IsNull(str) Then chec