文章列表类别

2017年02月06日 76 阅读

<% DimHTML SetHTML=NewNewaspPublic_Cls ClassNewaspPublic_Cls PrivateSubClass_Initialize（） OnErrorResumeNext Newasp.LoadTemplates0,0,0 EndSub "================================================ "函数名：LoadArticleList "作用：装载文章列表 "参数：...

[ASP]精华代码

2017年02月06日 78 阅读

复制代码 代码如下:<% "--Loader.asp-- "--version1.5.2 "--lastupdated12/5/2002 " "FaisalKhan "faisal@stardeveloper.com "www.stardeveloper.com "Classforhandlingbinaryuploads ClassLoader Privatedict PrivateSubClass_Initialize Setdict=Serve...

由给定的字符串生成关键字

2017年02月06日 85 阅读

"函数名：CreateKeyWord "作用：由给定的字符串生成关键字 "参数：Constr---要生成关键字的原字符串 "返回值：生成的关键字 "************************************************** FunctionCreateKeyWord（byvalConstr,Num） IfConstr=""orIsNull（Constr）=TrueorConstr="$False$"Then CreateKeyWo...

经验几则

2017年02月06日 74 阅读

以下是我开发时碰到的问题以及心得经验，花了些时间调试，贴出来避免大家少走弯路，如有错误欢迎指正， 持续更新ing xml文件尽量以utf-8编码，gb2312有些字是存储不了的，如©,就算能存也需要转换，比较麻烦，utf-8也符合 国际规范 CSS中:hover这个伪类，如果放在:visited前面则会失效 <a>标签如果没有href属性，所有对它的css的伪类如:hover均失效 js文件中用document.wirte（"<...

转换中文为unicode 转换unicode到正常文本

2017年02月06日 140 阅读

复制代码 代码如下:"//转换中文为unicode functionURLEncoding（vstrIn） dimi dimstrReturn,ThisChr,innerCode,Hight8,Low8 strReturn="" fori=1toLen（vstrIn） ThisChr=Mid（vStrIn,i,1） IfAbs（Asc（ThisChr））<&HFFthen strReturn=strReturn&ThisChr else innerC...

在ASP应用程序中限制重复提交同一表单

2017年02月06日 115 阅读

在Internet上我们每天都会遇到数不清的表单，也看到其中大部分并没有限制用户多次提交同一个表 单。缺乏这种限制有时候会产生某些预料不到的结果，如重复订阅邮件服务或重复投票等。或许一些 asp初学者并不清楚在asp应用中如何限制重复提交同一表单，所以在这里向大家介绍在ASP应用中防止 用户在当前会话期间多次提交同一表单的一个简单方法。 这个工作主要由四个子程序组成，在较为简单的应用场合，你只要将这些代码放在包含文件中直 接引用即可；对于那些较为复杂的...

ASP 程序实现自动升级功能

2017年02月06日 77 阅读

现在流行虚拟主机建站，我也有个网站，也算是个站长咯。当了近一年的站长，感到网站程序每次升级的时候颇为麻烦：先去官方看公告，然后下载升级包到本地，解压，FTP上传到虚拟主机。这些都是累人的体力活，加之本人又懒得很，所以异想天开的觉得要是程序能够自动升级就好了。所以就想了想，写了本文，希望对WEB程序开发者有帮助。这里只针对ASP，因为我只会ASP:-（ 先看看传统的win32程序的升级过程（比如杀毒软件），它是依靠软件的升级程序通过网络连接到服务器分析并下载...

在ASP编程中使用数组

2017年02月06日 89 阅读

数组的定义 DimMyArray MyArray=Array（1,5,123,12,98） 可扩展数组 DimMyArray（） fori=0to10 ReDimPreserveMyArray（i） MyArray（i）=i next 将一个字符串分割并返回分割结果的数组 DimMyArray MyArray=Split（tempcnt,chr（13）&chr（10）） ForI=Lbound（MyArray）toUbound（MyArray） Respo...

asp组件编写准备工作

2017年02月06日 78 阅读

最近在尝试用组件写asp,一些心得如下，不对之处请指正 经常要重启IIS，所以需要一个批处理的文件,将下面两行代码存为xxx.bat netstopw3svc netstartw3svc 经常需要注册、卸载dll，所以需要在右键菜单中添加两行注册和反注册DLL项，将下面几行代码存为xxx.reg，注入注册表 WindowsRegistryEditorVersion5.00 [HKEY_CLASSES_ROOTdllfileshell] [HKEY_CL...

利用AdoDb.Stream对象来读取UTF-8格式的文本文件

2017年02月06日 87 阅读

复制代码 代码如下:"函数名称:ReadTextFile "作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件 "---------------------------------------------------- FunctionReadFromTextFile（FileUrl,CharSet） IfFileUrl=""ORIsNull（FileUrl）Then ReadFromTextFile="" ExitFunction En...

ASP代码的对象化

2017年02月06日 78 阅读

提起asp很多人就认为是一堆html脚本和被括在<%和%>之中的一些代码还有就是一些javascript脚本等筹在一起的一些代码的集合，这样的代码，再加上各类的不同格式的注释，看起来就一个字：乱。也不管别人能不能看得懂，只要是能实现自己的目的就可以了，因为asp的代码也是脚本，给了客户也不可能不被人看到其中的内容，经多包容在dll中一部分业务逻辑，但是还是觉得asp代码是最不值钱的代码，没有人回去购买，可以随时从别人的网站中查看源码的形式得到别...

把字符串转换成数据库SQL语句格式

2017年02月06日 73 阅读

复制代码 代码如下:"把字符串转换成数据库SQL语句格式 "------------------------------------------------- FunctionAllStr2Database（str,strType） DimstrTemp:strTemp=str SelectCasestrType Case"" Case"num" strTemp=Clng（strTemp） Case"string""无Trim strTemp=Replac...

access中链接表的问题

2017年02月06日 91 阅读

一个使用asp和mdb的站点，某个mdb中使用了链接表，链接到当前目录的另一个mdb中的表，这样可以达到数据共享。 faq-it.org/delphi_win_sdk/问题来了，当将网站发布到网站的时候，因为网上空间路径和我本机不同，所以链接表失败，网页当然也不能打开。 我觉得解决办法有： 一种，在本机上创建与网上空间完全相同的目录结构。但这很麻烦，特别是经常要换网站的话。 一种，如何让链接表使用相对路径，就是链接到当前目录下的那个mdb文件？（对了，ac...

access数据库的一些少用操作,ASP,创建数据库文件,创建表,创建字段,ADOX

2017年02月06日 87 阅读

复制代码 代码如下:<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%> <% ifTrim（Request.Form（"TableName"）） "----设置打开数据库连接 dbs="DataSource="+server.mappath（"database.mdb"）+";Provider=Microsoft.Jet.OLEDB.4.0;" setconn=server.createobject（"ADODB...

Asp Access 创建静态文件/HTML

2017年02月06日 74 阅读

作用说明: 本代码实现从Access提取数据以创建HTML文件,不建文件夹. 如果文件名与要创建的文件名相同,则覆盖,跟SQL的更新一样的原理. 待加功能:删除与查找. 复制代码 代码如下:<% """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" " "subject:Asp创建静态文件/HTMLByStabx " "writer:Stabx<shaw...

如何在 Access 2003 和 Access 2002 中创建 DSN 的连接到 SQLServer 对链接表

2017年02月06日 79 阅读

方法1：使用CreateTableDef方法 CreateTableDef方法可创建链接表。若要使用此方法,创建一个新模块,然后以下AttachDSNLessTable函数添加到新模块。复制代码 代码如下:"//Name:AttachDSNLessTable "//Purpose:CreatealinkedtabletoSQLServerwithoutusingaDSN "//Parameters "//stLocalTableName:Nameofthe...

值得收藏的一些HTML、JavaScript、ASP代码

2017年02月06日 82 阅读

1.CDONTS.NewMail组件使用说明 SetMailObject=Server.CreateObject（"CDONTS.NewMail"） MailObject.From="发信邮箱" MailObject.To="收信邮箱" MailObject.Cc="抄送邮箱" MailObject.Bcc="密送邮箱" MailObject.Subject="邮件主题" MailObject.Body="邮件内容" MailObject.MailForm...

Asp遍历服务器对象的代码

2017年02月06日 94 阅读

复制代码 代码如下:一遍历Request 方式1: <% ForEachrInRequest.QueryString Response.Write"Request（"""&r&"""）="&Request（r） Response.Write"<p>" Next %> 方式2: <% Fori=1ToRequest.QueryString.Count Response.Write"Request（"""&Request.Quer...

保证asp叶面一定不会出现乱码 UTF8

2017年02月06日 74 阅读

保证asp叶面一定不会出现乱码的代码应该是这样的：（假定是UTF-8的叶子）<%@CODEPAGE=65001%> <%Response.CodePage=65001%> <%Response.Charset="UTF-8"%> 可以建立公共文件code.asp，所有页面都包含这个编码指定. ...

ASP 非法字符过滤函数

2017年02月06日 82 阅读

复制代码 代码如下:<% "==============================================================检查提交数据合法性 FunctionCheckInput（） "--------定义部份------------------ DimFy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql "自定义需要过滤的字串,用"|"分隔 ...