获取字符中中文首字字符

2017年02月06日 80 阅读

复制代码 代码如下:<% "获取字符中中文首字字符 "返回：A-Z;123;### PublicFunctionGetSpellChar（str） Dimtmp GetSpellChar="@" tmp=65536+Asc（str） If（tmp>=45217Andtmp<=45252）Or（tmp=65601）Or（tmp=65633）Or（tmp=37083）Then GetSpellChar="A1" ElseIf（tmp>=...

系统分配随机密码

2017年02月06日 75 阅读

复制代码 代码如下:<% "系统分配随机密码 FunctionCreatepass（） DimRan,i,LengthNum LengthNum=6 Createpass="" Fori=1ToLengthNum Randomize Ran=CInt（Rnd*2） Randomize IfRan=0Then Ran=CInt（Rnd*25）+97 Createpass=Createpass&UCase（Chr（Ran）） ElseIfRan=1The...

管理员登录

2017年02月06日 248 阅读

复制代码 代码如下:<！--#includefile="conn.asp"--> <！--#includefile="cls_main.asp"--> <！--#includefile="cls_md5.asp"--> <%dimobj setobj=Newadmin_login callobj.Main（） setobj=nothing classadmin_login PrivateFounderr,errms...

MusicGet 类

2017年02月06日 70 阅读

复制代码 代码如下:<% Response.Expires=0 Response.expiresabsolute=Now（）-1 Response.addHeader"pragma","no-cache" Response.addHeader"cache-control","private" Response.CacheControl="no-cache" Response.Buffer=True Response.Clear Server.Scri...

cls_main.asp第1/3页

2017年02月06日 68 阅读

<% classcls_main PublicScriptName,SqlQueryNum,savelog,system,ResLicence,ResType,ResLanguage,UserClass,strMsg,RefererPage PublicadminName,adminPass,System_Sn,UserTrueIP PublicReloadtime,MaxCount,CacheName,Cache_Data,sPath Privat...

数据库记录的删除，delete好还是update好？

2017年02月06日 70 阅读

个人认为还是使用Update比较好。 经过一些测试，发现几乎所有数据库使用delete语句后，数据库文件大小并没有变小，以致数据库的每次插入操作，都会使数据库体积变大。 与其删不掉，还是让他留着吧。发现使用Update的时候，只要新的数据不比原来的大，数据库体积就不会增大（文件存到数据库很容易看出效果）。 所以个人建议使用Update方式标记删除记录，添加新记录的时候如果存在标记为删除的记录，则更新该条记录为新记录。添加新记录时的判断也比较简单： 复制代码...

asp提高首页性能的一个技巧

2017年02月06日 71 阅读

简单介绍:一般一个网站的首页访问量是最大的,如果您的网站的首页打开的非常缓慢,您的客户将会陆续离开你的网站.通常我们把需要经过复杂运算或者查询数据库得出的数据缓存起来或者生成静态网页来提高web应用的性能,这次我们直接把首页的输出缓存成一个字符串,然后定时更新,即照顾了性能,又不影响首页的时效性.这里用到了一些VBS自定义类,Application对象,XmlHttp对象,adodb.stream对象的一些东西,相关知识大家可以查资料了解. 最好让这个页和...

研究动网得到的一些动网参数

2017年02月06日 69 阅读

注：仅适合于Dvbbs.7.1.0==================系统信息设置参数单==================Dvbbs.BoardID=当前版块的ID（非版块页面为0）Dvbbs.SqlQueryNum=当前页面查询数据库的次数Dvbbs.Forum_Info（0）=论坛名称Dvbbs.Forum_Info（1）=论坛的访问地址Dvbbs.Forum_Info（2）=网站主页名称Dvbbs.Forum_Info（3）=网站主页访问地址Dvb...

在ASP中连接MySQL数据库，最好的通过ODBC方法

2017年02月06日 68 阅读

折腾了一阵，总算把ASP和MySQL连接完成了，有感，特写此文与大家一同分享。 查了很多资料，ASP和MySQL连接目前有两种办法：一个是使用组件，比较有名是MySQLX，可惜要99美元。二就是使用MyODBC 来连接，下面我们 就来看看第二种方式。 试验的平台： MySQL 4.0 For RadHat Linux （也可以使用for windows） Windows 2003 standard Edition Windows XP Engl...

FSO文件对象介绍及常用函数

2017年02月06日 102 阅读

FSO的意思是FileSystemObject，即文件系统对象。FSO对象模型包含在Scripting类型库（Scrrun.Dll）中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象，用来操作文件和文件夹十分方便。 FSO文件（File）对象属性 属性说明 DateCreated返回该文件夹的创建日期和时间 DateLastAccessed返回最后一次访问该文件的日期和时间 DateLastM...

分享一段代码show.asp？id=26变成show/？26的形式

2017年02月06日 135 阅读

发现好多asp的系统在调用文章的时候如果不生成静态,输出的都是类似 http://www.xxx.com/show.asp？id=26这种格式的. 如果可以换成http://www.xxx.com/show/？26这种格式,感觉清减了不少,当然对于支持伪静态的空间 还可以设置成http://www.xxx.com/show/26据说着杨可以增加搜索引擎收录的几率. 代码如下: 首先建立一个show目录,建立一个index.asp文件,就是系统默认的那个文件...

ASP+XML留言板介绍

2017年02月06日 66 阅读

我开始学习xml时做了一个简单的xml留言板。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 创建一个新的XMLDOMobject server.createObject（"Microsoft.XMLDOM"） －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 加载一个xml文件 setobjXML=server.createObject（"Microsoft.XMLDOM"） filepath=server.mappat...

SQL存储过程初探第1/2页

2017年02月06日 69 阅读

前言 一直用ASP+ACCESS来编写网页和公司的内部应用系统,内部应用系统也就是大家说的OA吧,这个我也不知道,公司又叫它ERP,反正不管什么,它是用来帮助公司处理日常工作的,简化劳动的.从来没用过存储过程,所有的添加,删除,修改都是在ASP里面写程序执行，代码很多.数据量少的时候没什么感觉,挺快的,可等到数据量大的时候,上W条记录查询,尤其是不分页都显示在一页里的时候情况就出现了，速度很慢，要10几秒才有反应，所以想到了要用SQL的存储过程来简化代码和...

忠网广告 系统 用到的几个函数

2017年02月06日 66 阅读

复制代码 代码如下:<% "///****************************************************************** "常用公共函数库文件名：PubFunction.asp "******************************************************************/// ConstGo_back="<ahref="javascript:history....

asp读取xml文件

2017年02月06日 87 阅读

复制代码 代码如下:strSourceFile=Server.MapPath（dataxml&"/Advertisement/"&id&"/adv.xml"）SetobjXML=Server.CreateObject（"Microsoft.XMLDOM"）"创建一个XML对像objXML.load（strSourceFile）"把XML文件读入内存Setxml=objXML.documentElement.selectSingleNode（"Adverti...

asp下载防盗链代码

2017年02月06日 113 阅读

asp下载防盗链代码第一种: 终于对下载系统做了个防盗链措施，在下载的页面头部做了如下代码，相关代码如下：复制代码 代码如下:<% From_url=Cstr（Request.ServerVariables（"HTTP_REFERER"）） Serv_url=Cstr（Request.ServerVariables（"SERVER_NAME"）） ifmid（From_url,8,len（Serv_url））<>Serv_urlandmi...

把无限级分类生成数组

2017年02月06日 70 阅读

把无限级分类循环出来确实是一件头疼的事情。 比如，我们要循环出一个SELECT,或一个TABLE，要写一大堆判断。 有没好点的办法呢？ 我的做法是生成数组，可以重复调用，直接循环数组就行了。 为了方便，我把它写成了类。 class.asp 返回所有分类的数组,并按顺序排列 有4个属性： 复制代码 代码如下:setaa=newclasslist aa.id="id"//编号的名称 aa.classname="classname"//分类名称 aa.pid="...

用ASP+FSO生成JS文件

2017年02月06日 69 阅读

复制代码 代码如下:<！--#includefile="conn.asp"--> <% setjs=server.CreateObject（"ADODB.RecordSet"） sql="selecttop10*fromarticleorderbyiddesc" setjs=conn.Execute（Sql） dowhilenotjs.eof title=js（"title"） addate=js（"addate"） foolcat=fo...

ASP动态生成的javascript表单验证代码

2017年02月06日 67 阅读

以网上down了一个ASP动态生成Form验证javascript的代码，自己扩容了一下。作者的大名我给忘了，不过我记得清楚，从第一条至第九条的代码都是该作者的原创。至于九至第十五条却是本人自己加的哦。而且由于本人水平有限，从第九条至第十五条不见得会条条生效啊？呵呵，其实把它贴在这里没有什么必要的，因为这点小会伎俩谁都会用的，我把它的作用定位为：开发时找不到该函数时到这里拷贝一下就可以了。呵，因为我即没有刻录机也没有移动硬盘。实在是没有办法把这些代码随身携...

在asp中通过getrows实现数据库记录分页的一段代码

2017年02月06日 69 阅读

复制代码 代码如下:<%@Language=VBSCRIPT%> <%OptionExplicit%> <% rem在asp中通过getrows实现数据库记录分页的一段代码 DimiStart,iOffset iStart=Request（"Start"） iOffset=Request（"Offset"） ifNotIsNumeric（iStart）orLen（iStart）=0then iStart=0 else iSta...