- 2012-06-13
% '---------------------------------------------------------------- '程序简介: 完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看 '入口参数: 无 '出口参数: 无 '------------------------------------------------ '函数名字：ConnectXml()
- 2012-06-13
ASP实例代码，直接将数据库中的数据导出到EXCEL电子表中。 !--#include file=../conn.asp-- % dim s,sql,filename,fs,myfile,x Set fs = server.CreateObject(scripting.filesystemobject) '--假设你想让生成的EXCEL文件做如下的存放 filename = Server.
- 2012-06-13
'======================== '文件１ 'Pack.asp '更改 Cpathname 这一变量 '将在当前目录生成一个DATA.XML文件 '将DATA.XML及文件２（install.asp)上传至ＷＥＢ根目录 '运行install.asp解包 '手动删除以上两个文件 '======================== % Option Explic
- 2012-06-13
一个转化时间的函数。kingcms中的时间处理也是很强大的，有时间可以看看。 PHP中的date()函数功能实在是太强大了，忍不住用ASP模仿写了个.... 但只是写到日，还没写小时，分，秒的.. 所以这个函数还没能格式化小时，分，秒的，有时间以后再加上。 % '*******
- 2012-06-12
我们可使用SQL的UPDATE来更新数据库表中的某条记录。 更新数据库表中的记录 我们希望更新Northwind数据中Customers表的某条记录。首先我们需要创建一个表格，来列出Customers中的所有记录。 htmlbody%set conn=Server.CreateObject(ADODB.Connection)conn.
- 2012-06-12
我们可使用SQL的DELETE命令来删除数据库表中的某条记录。 删除表中的记录 我们希望删除Northwind数据库的Customers表中的一条记录。首先我们需要创建一个表格，来列出Customers中的所有记录。 htmlbody%set conn=Server.CreateObject(ADODB.Connection)con
- 2012-06-12
我们可以使用SQL的INSERT INTO命令向数据库中的表添加记录。 向数据库中的表添加记录 我们希望向Northwind数据库中的Customers表添加一条新的记录。我们首先要创建一个表单，这个表单包含了我们希望选定数据的字段： htmlbodyform method=post action=dem
- 2012-06-12
显示来自记录集中的数据的最常用的方法，就是把数据显示在HTML表格中。 显示字段名称和字段值 我们有一个名为Northwind的数据库，并且我们希望显示出Customers表中的数据（记得以.asp为扩展名来保存这个文件）： htmlbody%set conn=Server.CreateObject(
- 2012-06-12
% Function Comma(str) If Not(IsNumeric(str)) Or str = 0 Then Result = 0 ElseIf Len(Fix(str)) 4 Then Result = str Else Pos = Instr(1,str,.) If Pos 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) LoopCount = 1 While LoopCount =
- 2012-06-12
现在网站上大部分的验证码都是图片验证码，就跟 http://dwww.cn/Books.asp 下边的一样。 用户可能长时间的停留在页面上，等到最后提交的时候，验证码就可能过期了。所以要加个刷新的功能。 验证码：input name='checkimg' type='text' class='input' id='che
- 2012-06-11
先将IP地址存入数据库，然后取出来，效果如图： 代码如下： % '来源 ipstr= rs(cIP) ipstr=split(ipstr,.,-1,1) ipstrout=ipstr(0).ipstr(1).ipstr(2).* response.write ipstrout %
- 2012-06-11
在VBScript中，有一个On Error Resume Next语句，它使脚本解释器忽略运行期错误并继续脚本代码的执行。接着该脚本可以检查Err.Number属性的值，判别是否出现了错误。如果出现错误，返回一个非零值。在ASP 3.0中，也可以使用On Error Goto 0“转回到”缺省的
- 2012-06-11
首先，是HTML文件，为Test.asp，代码如下：%@LANGUAGE=VBSCRIPT CODEPAGE=936% % if session(username)= then Response.Write(scriptalert('请登陆后在进行操作！');window.location='login.asp?reURL=Test.asp';/script) Response.End() end if %
- 2012-06-11
由于工作关系,要做个人空间,其中有一功能是对用户投票，要求同一IP只能对同一用户投票一次，贴Asp代码： % '作者：无情 出处： db_conn(dbs) Voteusername=trim(request.QueryString(username)) rs_create(select username from [user] where username ='
- 2012-06-10
一个用来实现tag功能的asp类，具体的作用，如果您可以读懂的话就可以明白了了。 修改记录： 1,增加扩展函数,2006-12-3 % '****************************** '类名：tagEngine '名称：标签引擎 '日期：2006-11-29 '作者：西楼冷月 '网址：www.xilou.net | www.
- 2012-06-10
作者真是细致，把这些东西都封装成为class了。有点过了，这些东西可以作成过程或者函数来封装，sub和function也是封装，不一定非要class才可以。您的文件库不一定全部都是class，一些sub和funtion都是必要的。 实现的功能包括 1，showInfo(e_title,c_url,e_n
- 2012-06-10
本例主要讲述如何应用Create、Drop和Alter语句增加、删除ACCESS表和字段，代码如下： % '''''''''''''''''''''''''''''''''''' ' 增加、删除表和字段 ' ├Create Table 表名(field1 type[(size)] [null|not null] [default eExpression] [primary key][,fiel
- 2012-06-10
由于工作关系，在做一个用户空间。要用到空间的最近访客，见ASP代码： % username=request.QueryString(username) '地栏中的username,就是自己的用户名了 if trim(request.Cookies(user_name)) Then '首页要判断该访问是否登陆，只有登陆的访问才能记
- 2012-06-08
ASP通过XMLDom在服务器端操作XML文件的主要方法和实现 对于小数据量，xml文件在检索更新上于ACCESS有很多优势。 我曾经测试过不用数据库，把网站的会员信息，商品数据信息，交易信息，网站定制信息全部存放在三个xml文件中，运行结果十分正常，感觉上比数据
- 2012-06-08
% '防止GET,Post注入和防止服务器攻击 '使用方法把本文件包含到需要防注的文件就OK了,说明下,这里的post攻击和Get攻击不一定是攻击,在英文版本的时候请注意使用 '冯旭修改 session.Abandon() Dim fxjt111_Attack_post,fxjt111_Attack_Get,fxjt111_Attack_Sys