学院标题关闭所有内容预览 | 展开所有内容预览
-
ASP实例:将IP最后一位替换为星号
[内容预览]
69983 | 2011-06-07
先将IP地址存入数据库,然后取出来,效果如图:代码如下:'来源http://www.dwww.cnipstr= rs("cIP")ipstr=split(ipstr,".",-1,1)ipstrout=ipstr(0)&"."&ipstr(1)&"."&ipstr(2)&".*"response.write ipstrout%>
[阅读全文]
-
ASP防止GET,Post注入和防止服务器攻击,并记录IP
[内容预览]
71097 | 2011-06-07
'防止GET,Post注入和防止服务器攻击'使用方法把本文件包含到需要防注的文件就OK了,说明下,这里的post攻击和Get攻击不一定是攻击,在英文版本的时候请注意使用'冯旭修改session.Abandon()Dim fxjt111_Attack_post,fxjt...
[阅读全文]
-
用Asp生成UTF-8格式的文件
[内容预览]
38671 | 2011-06-07
ASP由于是一种古老的语言,它的一些功能对UTF-8支持非常差。比如,你想生成一个UTF-8格式的文件,使用常用的 scrīpting.FileSystemObject 对象就不行。scripting.FileSystemObject 对象创建文件的函数,是下面方式:...
[阅读全文]
-
ASP完美转化ACCESS为SQL数据库连接
[内容预览]
36449 | 2011-06-07
ACCESS为SQL数据库连接其实两者基本通用 步骤很简单3步:1,转化MDB数据库到SQL SQL工具里就有2, 更改数据库链接字串 以下为代码:Set Conn=Server.CreateObject("ADODB.Connection")SQL="Driver={SQL Server};Server...
[阅读全文]
-
ASP实例:ASP实现空间的最近访客
[内容预览]
50298 | 2011-06-07
由于工作关系,在做一个用户空间。要用到空间的最近访客,见ASP代码:username=request.QueryString("username") '地栏中的username,就是自己的用户名了if trim(request.Cookies("user_name"))if username f_usernam...
[阅读全文]
-
教你让IIS6.0支持ASP方法
[内容预览]
80919 | 2011-06-07
ASP脚本在目前的网页开发方面使用的很广泛,但Windows 2003中自带的IIS 6.0默认情况下不支持ASP脚本,但可以运行aspx程序,这给运行和调试ASP代码带了不便。其实,在Windows 2003的Internet信息管理器中稍加调整,就...
[阅读全文]
-
ASP调用纯真IP库实例
[内容预览]
78624 | 2011-06-07
' ' 返回IP信息 Disp_IPAddressData(IP,0)' Function Look_Ip(IP)Dim Wry, IPType, QQWryVersion, IpCounter' 设置类对象Set Wry = New TQQWry' 开始搜索,并返回搜索结果' 您可以根据 QQWry(IP) 返回值来判断该IP地...
[阅读全文]
-
ASP实例:过滤不文明字符
[内容预览]
53675 | 2011-06-07
Function badchar(str)badstr="不文明字符列表,用|分开(因发表时不能含有那些字符,所以不能贴出。)"badword=split(badstr,"|")For i=0 to Ubound(badword)If instr(str,badword(i)) > 0 thenbadchar=TrueExit Fo...
[阅读全文]
-
ASP实例:Asp实现Dig程序中的投票
[内容预览]
28974 | 2011-06-07
ASP做一个dig程序中的投票(有的叫顶一下,踩一下),由于代码较长,只贴出核心部分:投票中的代码网页显示投票的部分:效果如图:,然后点投一票,票数增加1,如图:voteResult.asp代码Response.ContentType="text/...
[阅读全文]
-
ASP技巧:ASP返回某字符串最后出现的位置
[内容预览]
3909 | 2011-06-07
dwwwStr= "dwww.cnwww.dwww.cn设计家园"dwwwStr= InStrRev(dwwwStr,"")response.write dwwwStr%>InstrRev描述返回某字符串在另一个字符串中出现的从结尾计起的位置。 语法InstrRev(string1, string2[, start[, compa...
[阅读全文]
-
ASP实例:抓取天气预报的程序
[内容预览]
9220 | 2011-06-07
早上在公司上班的时候,看到外边下起了雪,2008年的第一场雪,比以往来的更晚一点,呵呵,冷啊。。于是想办法写抓天气预报的程序,看到了QQ的天气预报挺不错的。。呵呵。。就抓你了!如图:代码:'On Error Resume N...
[阅读全文]
-
ASP实例:把动态的页面转换成静态的页面
[内容预览]
73084 | 2011-06-07
因工作关系,网站首页要生成静态文件,而原来首页是asp文件,又不想在写其他的标签生成静态文件,于是偷个小懒,呵呵.. 解决方法:把原来的index.asp改成别的文件,如Index_dwww.asp,这样别人就不能直接访问index.asp了,...
[阅读全文]
-
ASP教程:制作登陆页面验证程序
[内容预览]
2288 | 2011-06-07
用户登录验证脚本,Chkpwd.asp'===用户登录验证脚本=== '如果尚未定义Passed对象,则将其定义为false,表示没有通过验证 If IsEmpty(Session("Passed")) Then Session("Passed")=false End If 'Session("Passed")=False...
[阅读全文]
-
ASP实例:再说ASP输出N行N列表格
[内容预览]
42244 | 2011-06-07
几乎在每个站点中我们都要使用程序来输出列表:新闻列表、产品列表等等,输出的方式也因内容的不同而不同,对于新闻列表,通常是一行一行的循环输出;对于产品列表,通常得一个单元格一个单元格的输出。下边我们就用...
[阅读全文]
-
ASP技巧:把长的数字用逗号隔开显示
[内容预览]
92185 | 2011-06-07
Function Comma(str)If Not(IsNumeric(str)) Or str = 0 ThenResult = 0ElseIf Len(Fix(str)) Result = strElsePos = Instr(1,str,".")If Pos > 0 ThenDec = Mid(str,Pos)End ifRes = StrReverse(Fix(str))LoopCount...
[阅读全文]
-
IIS虚拟主机网站防木马权限设置安全配置整理
[内容预览]
62531 | 2011-06-07
参考了网络上很多关于WIN2003的安全设置以及自己动手做了一些实践,综合了这些安全设置文章整理而成,希望对大家有所帮助,另外里面有不足之处还请大家多多指点,然后给补上,谢谢!一、系统的安装1、按照Windows200...
[阅读全文]
-
ASP实例:限制ip投票
[内容预览]
22031 | 2011-06-07
由于工作关系,要做个人空间,其中有一功能是对用户投票,要求同一IP只能对同一用户投票一次,贴Asp代码:'作者:无情 出处:http://www.dwww.cn db_conn(dbs) Voteusername=trim(request.QueryString("username")) rs...
[阅读全文]
-
Asp+Ajax实现无刷新增加好友
[内容预览]
84654 | 2011-06-07
由于工作关系,要做个人空间,其中有一功能是增加对方为好友.如图:用到的方法是ajax,费话少说贴切代码:');">加为好友,用到的js验证:ajax.js代码:http_request = false;if (window.XMLHttpRequest) { //对于Mozilla、Ne...
[阅读全文]
- ASP操作数据库的类 [内容预览] 27074 | 2011-06-07
-
ASP防采集代码-几招让你的网站免受采集之苦
[内容预览]
31588 | 2011-06-07
如今的采集系统是一个比一个NB,站长们辛苦收集制作的网站内容总是很快出现在在另一个网站上,一个网站轻易的就被复制了又复制。有办法既不影响搜索引擎的正常收入又能解决网站被采集之苦么?答案是肯定的。最常用的...
[阅读全文]
-
ASP在线网速测试代码
[内容预览]
1111 | 2011-06-07
ASP实现带进度条的测试网速。把下列代码存为.ASP的文件,放在你的服务器上就可以直接运行了。 Response.Expires = 0Response.Expiresabsolute = Now() - 1Response.AddHeader "pragma","no-cache"Response.AddHeader...
[阅读全文]
-
Asp class一个标签引擎类tagEngine.Class
[内容预览]
90734 | 2011-06-07
一个用来实现tag功能的asp类,具体的作用,如果您可以读懂的话就可以明白了了。修改记录: 1,增加扩展函数,2006-12-3 '** '类名:tagEngine '名称:标签引擎 '日期:2006-11-29 '作者:西楼冷月 '网址:www.xilou.ne...
[阅读全文]
-
ASP中正则对象小小的总结
[内容预览]
29293 | 2011-06-07
这篇文章是把asp中使用正则的一些常用的东西做了一个总结。当然,这些还是很重要的,熟悉之前可能需要先记住这些东西。1.建立正则对象 Set regEx=New RegExp ‘建立正则对象 属性: regEx.Pattern=vpattern ‘获取正...
[阅读全文]
-
asp事件类 asplib-eventProvider.class.asp 用于获取ip等
[内容预览]
8678 | 2011-06-07
作者真是细致,把这些东西都封装成为class了。有点过了,这些东西可以作成过程或者函数来封装,sub和function也是封装,不一定非要class才可以。您的文件库不一定全部都是class,一些sub和funtion都是必要的。实现的...
[阅读全文]
-
ASP在线压缩函数
[内容预览]
1879 | 2011-06-07
函数需要调用cmd和winrar.exe,一般只能以管理组启动这些程序,合适的权限分配下才能正常使用这个函数。需要使得匿名账户有执行权限,和ntfs文件系统的读写权限。没有自己服务器的还是算了。有些虚拟主机程式是支持...
[阅读全文]
-
Asp版本的时间处理函数
[内容预览]
27922 | 2011-06-07
一个转化时间的函数。kingcms中的时间处理也是很强大的,有时间可以看看。PHP中的date()函数功能实在是太强大了,忍不住用ASP模仿写了个.... 但只是写到日,还没写小时,分,秒的.. 所以这个函数还没能格式化小时,分...
[阅读全文]
-
Asp Fso文件/文件夹操作类
[内容预览]
36156 | 2011-06-07
和前面提到的一样,这个也只是把一些函数压在一起。实际上用一些函数集的方法放程序中更好。主要功能: 1,创建删除文件夹 2,获取某个文件夹里的文件夹名称和个数 3,获取某个文件夹里的文件名称和个数 4,检查某个文件...
[阅读全文]
-
ASP技巧:rs.getrows方法
[内容预览]
99417 | 2011-06-07
GetRows()方法是将数据从 Recordset 复制到二维数组中,这是一个二维数组,第一个下标标识字段,第二个则标识记录号所以rsArray = rs.GetRows()rsArray(0, 0)就表示记录集第一行的第一字段值rsArray(1, 0)就表示记录...
[阅读全文]
-
实现ASP处理XSLT转换XML
[内容预览]
21391 | 2011-06-07
使用ASP处理XSLT转换XML比较简单,思路如下:创建一个XSLTemplate的对象,再创建一个XMLDOM对象,然后在家Xml文件和XSLT文件,最后使用方法transform即可,包含到类里面,具体代码如下。Class Cls_Xml_TransformPriv...
[阅读全文]
-
ASP代码直接增加、删除ACCESS表和字段
[内容预览]
79031 | 2011-06-07
本例主要讲述如何应用Create、Drop和Alter语句增加、删除ACCESS表和字段,代码如下:''''''''''''''''''''''''''''''''''''' 增加、删除表和字段' ├Create Table 表名(field1 type[(size)] [null|not null] [defaul...
[阅读全文]
-
ASP把网页中的电话号码生成图片的代码
[内容预览]
91869 | 2011-06-07
作用:将页面中的电话号码生成图片格式。Call Com_CreatValidCode(Request.QueryString("tel")) Public Sub Com_CreatValidCode(pTel) '--禁止缓存 Response.Expires = 0Response.AddHeader "Pragma","no-cache" Res...
[阅读全文]
-
ASP模拟MVC模型的编程方式
[内容预览]
13498 | 2011-06-07
大家都知道JAVA里最流行的是MVC模型的编程方式,如果你不知道MVC的概念,可以去网上搜索下,应该会马上找到N多资料。PHP5推出之后,也开始使用MVC模式开发,看来MVC确实有很大的吸引力!我在平时开发ASP项目的时候,...
[阅读全文]
-
ASP实例:一个简单的ASP无组件上传类
[内容预览]
85380 | 2011-06-07
简单的ASP无组件上传类,发出来让大家看看。可以做做实验!var self = Request.serverVariables("SCRIPT_NAME");if (Request.serverVariables("REQUEST_METHOD")=="POST"){var oo = new uploadFile();oo.path = "myF...
[阅读全文]
-
ASP类型个人网站与动网整合非官方方法
[内容预览]
72570 | 2011-06-07
个人网站如有会员注册模块+动网论坛的话,那网站要与动网论坛系统整合,实现不同Web系统之间的用户信息同步更新、登录等操作就不是件容易的事了,虽然动网已提供有详细的"动网论坛系统Api接口开发人员指南",但像我这...
[阅读全文]
-
ASP技巧:利用函数InstrRev()获取当前文件名
[内容预览]
12424 | 2011-06-07
InstrRev函数, 从字符串的最后一个搜索起,前面字符串。举例来说明其应用:Dim strTXT,posstrTXT="www.dwww.cn"pos=instrRev(strTXT,".")Response.Write pos%>我们搜索的起始是倒序,从com前的一个点.起始的字符的长度,...
[阅读全文]
-
用ASP和SQL语句动态的创建Access表
[内容预览]
39694 | 2011-06-07
ASP实例代码,利用SQL语句动态创建Access表。留作参考,对在线升级数据库有用处.nowtime = now()tablename = cstr(year(nowtime))+"_"+cstr(second(nowtime))response.write tablename db_path = "test.mdb"Set conn=...
[阅读全文]
-
用ASP将数据库中的数据直接导出到EXCEL表中
[内容预览]
89394 | 2011-06-07
ASP实例代码,直接将数据库中的数据导出到EXCEL电子表中。dim s,sql,filename,fs,myfile,x Set fs = server.CreateObject("scripting.filesystemobject") '--假设你想让生成的EXCEL文件做如下的存放 filename = Serv...
[阅读全文]
-
ASP判断数据库值是否为空的通用函数
[内容预览]
61215 | 2011-06-07
由于各种字段属性不同,判断字段是否为空的方法也各异.下面是一个通用函数,免去了还要看字段类型之苦.'Check a variable isn't "empty"Function IsBlank(ByRef TempVar)'by default, assume it's not blankIsBlan...
[阅读全文]
-
ASP开发中有用的函数(function)集合(3)
[内容预览]
45649 | 2011-06-07
ASP开发中有用的函数(function)集合,挺有用的,请大家保留!'* '切割内容 - 按行分割 '* Function SplitLines(byVal Content,byVal ContentNums) Dim ts,i,l ContentNums=int(ContentNums) If IsNull(Content) Th...
[阅读全文]
-
ASP开发中有用的函数(function)集合(2)
[内容预览]
63077 | 2011-06-07
ASP开发中有用的函数(function)集合,挺有用的,请大家保留!'* '过滤超链接 '* Function checkURL(ByVal ChkStr) Dim str:str=ChkStr str=Trim(str) If IsNull(str) Then checkURL = "" Exit Function End If Dim...
[阅读全文]
-
ASP开发中有用的函数(function)集合(1)
[内容预览]
42752 | 2011-06-07
ASP开发中有用的function集合,挺有用处的!希望大家保留!'* '防止外部提交 '* function ChkPost() dim server_v1,server_v2 chkpost=false server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cst...
[阅读全文]
-
ASP程序实现网页伪静态页源代码
[内容预览]
9657 | 2011-06-07
很简单的教程,献给喜欢SEO的朋友们。把http://www.***.cn/article.asp?logID=26 替换成http://www.***.cn/article.asp?/a26.html。不需要通过iis+ISAPI_Rewrite做基于IIS的url rewrite一、数据库很简单使用ACCESS,...
[阅读全文]
-
ASP实例:利用缓存提高数据显示效率
[内容预览]
71696 | 2011-06-07
实例演示.先建立一个简单的数据库,写个function读取一下,写入一个dim变量temp中: ASP代码Function DisplayRecords() Dim sql, conn, rs sql = "SELECT id, [szd_f], [szd_t] FROM admin" Set conn = Server.CreateOb...
[阅读全文]
-
ASP技巧:ASP Error对象的相关知识
[内容预览]
84901 | 2011-06-07
在VBScript中,有一个On Error Resume Next语句,它使脚本解释器忽略运行期错误并继续脚本代码的执行。接着该脚本可以检查Err.Number属性的值,判别是否出现了错误。如果出现错误,返回一个非零值。在ASP 3.0中,也可...
[阅读全文]
-
ASP利用XML打包指定文件夹 并上传到WEB目录中,自行解包
[内容预览]
41820 | 2011-06-07
''文件1'Pack.asp'更改 Cpathname 这一变量'将在当前目录生成一个DATA.XML文件'将DATA.XML及文件2(install.asp)上传至WEB根目录'运行install.asp解包'手动删除以上两个文件 'Server.ScriptTimeout=99999999d...
[阅读全文]
-
ASP实例:ASP在线问答的示例
[内容预览]
72693 | 2011-06-07
首先,是HTML文件,为Test.asp,代码如下:if session("username")="" thenResponse.Write("")Response.End()end if%>情景问答body {}{font-size: 12px;color: #0066FF;}input {}{border: 1px solid #FFFFFF;backgro...
[阅读全文]
-
ADO初学者教程: ADO 删除记录
[内容预览]
94085 | 2011-06-07
我们可使用SQL的DELETE命令来删除数据库表中的某条记录。删除表中的记录我们希望删除Northwind数据库的Customers表中的一条记录。首先我们需要创建一个表格,来列出Customers中的所有记录。set conn=Server.CreateOb...
[阅读全文]
-
ADO初学者教程:ADO 更新记录
[内容预览]
19891 | 2011-06-07
我们可使用SQL的UPDATE来更新数据库表中的某条记录。更新数据库表中的记录我们希望更新Northwind数据中Customers表的某条记录。首先我们需要创建一个表格,来列出Customers中的所有记录。set conn=Server.CreateObje...
[阅读全文]
-
ADO初学者教程:ADO 添加记录
[内容预览]
58785 | 2011-06-07
我们可以使用SQL的INSERT INTO命令向数据库中的表添加记录。向数据库中的表添加记录我们希望向Northwind数据库中的Customers表添加一条新的记录。我们首先要创建一个表单,这个表单包含了我们希望选定数据的字段:Cu...
[阅读全文]
-
ADO初学者教程:ADO 显示
[内容预览]
10629 | 2011-06-07
显示来自记录集中的数据的最常用的方法,就是把数据显示在HTML表格中。显示字段名称和字段值我们有一个名为"Northwind"的数据库,并且我们希望显示出"Customers"表中的数据(记得以.asp为扩展名来保存这个文件):se...
[阅读全文]