| ASP自动解压RAR文件 |
| 其实想实现这种功能很简单，首先要上传一个RAR的解压程序，就是RAR自己的解压程序，只需要它的核心
程序RAR.EXE这个文件就可以了。然后就要上传一个执行RAR.EXE的程序 CMD.EXE 这个是windows里的程序（不必我在多说了吧）。最后就开始执行这些程序了。看一下下面的代码
<%
dim ylj,ywj,Mlpath,Shell,rarcomm,RetCo…… |
|
| WEB打印大全 |
| 1、控制"纵打"、 横打”和“页面的边距。
（1）<script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) // measure margins in inches
factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
factory.printing.printer = "HP D…… |
|
| 关闭窗口时保存数据的办法 |
| <SCRIPT language="javascript">
function IfWindowClosed()
{
var win = null;
try
{
window.opener.name = "ss";
if ( window.opener.name != "ss" )
{
win = window.open("quit.a…… |
|
| 用正则解析图片地址,并利用XMLHTTP组件将其保存 |
| 现在基于WEB页的HTML的编辑器在新闻系统，文章系统中用得越来越广，一个网页一粘就可以保持原来的样式，同时图片也可以在这个页中保持。但是在使用过程中，如果所粘贴页中的图片被删除，就会在自己的页面上留下一个大大的“X”，影响美观。以前只好把这个图片保存下来，再重新上传到服务器上，这样实在麻烦。能不能让服务器…… |
|
| 关于处理GET方式提交的含有特殊字符的参数 |
| 曾经有一位朋友遇到这样一个问题，一产品名称为A&T Plastic,在产品列表中就产生了这样的一个联接<a href="product.asp?name=A&T Plastic">A&T Plastic</a>,在服务器端接收此参数的时候怎么也无法接收到准确的产品名。
当时就问我，如何解决，也许是当时忙吧，随口告诉他用HTMLENCODE方法…… |
|
| 实现搜索结果的关键词变色标注的程序 |
| <%
' 以前写全文检索程序的时候写的.
' 原创 by 飞鸟@dev-club.com
' Email: [email protected]
' ie5.5 脚本引擎 required
dim patern
dim found
dim str
dim result
patern="(a)|(b)"
str=" A dog fall in love with a cat. Can you believe?"
result=…… |
|
| 关于处理GET方式提交的含有特殊字符的参数 |
| 曾经有一位朋友遇到这样一个问题，一产品名称为A&T Plastic,在产品列表中就产生了这样的一个联接<a href="product.asp?name=A&T Plastic">A&T Plastic</a>,在服务器端接收此参数的时候怎么也无法接收到准确的产品名。
当时就问我，如何解决，也许是当时忙吧，随口告诉他用HTMLENCODE方法，对方试告诉并没有能解…… |
|
| 判断Cookies是否处于开启状态 |
| 当开发人员使用Session变量时必须要求客户端浏览器支持接受cookies，当ASP开始一个Session,它将送一个cookies到客户端并带一个标示(SessionID).通过这个标示，ASP以后将可以确认Session并且因此来保持状态。所以，当你使用Session变量前，你需要确认cookies是否被接受。这里我讲解两个方法：
方法一：
无论…… |
|
| NextRecordset 和 GetRows 双簧合奏 |
| NextRecordset 和 GetRows 大家可能用的很少！
最近使用使用，不错的好东东！
对提高批量查询，查询纪录集不是巨海量的情况很有效果
NextRecordset 和 GetRows 是Recordset的两个属性（属性还是方法我是常混淆是非#$#$，弄不清四下五除一）
GetRows ---> 将recordset记录集提取到一个二维数组中，我们对recordset数…… |
|
| 自动生成编号的方法 |
| 前言:
用过许多序号的方法,indentity 或 new id() ,都不好用,自己写了一个,这个序号的特点是:每次取相应表中的系统当天最大序号,如果当天无记录,则自动生成一个当天序号
1.建种子表,这个表用来保存各个表目前已使用到的最大序号
--种子表
create table SEED (
BM varchar(20) not null, --表名
BH varchar…… |
|
| Filter与updatebatch混合使用实现批量更新 |
| /*******部分代码*******/
/*******idArr()和codeArr()为两个数组，其中，idArr()为filter数据过滤条件，codeArr()作为更新数据**********/
.......
dim CRs,sql,FStr
sql=""
conn.begintrans
set CRs=server.CreateObject("adodb.recordset")
CRs.ActiveConnection=conn
CRs.CursorType=1
CR…… |
|
| asp中利用数组实现数据库记录的批量录入方法 |
| asp中利用数组实现数据库记录的批量录入方法(原创)
演示：http://www.zwtd.com/1/yanek/n/needdj2.asp
<%
rem 文章题目 asp中利用数组实现数据库记录的批量录入方法(原创)
作者：yanek
联系email:[email protected]
%>
包括两个文件
1。allneeddj.asp：实现表单的生成
2. allneeddjresult.asp 处理表单批量录…… |
|
| 在asp中通过getrows实现数据库记录分页的一段代码 |
| <%@ Language = VBSCRIPT %>
<% Option Explicit %>
<%
rem 在asp中通过getrows实现数据库记录分页的一段代码
Dim iStart, iOffset
iStart = Request("Start")
iOffset = Request("Offset")
if Not IsNumeric(iStart) or Len(iStart) = 0 then
iStart = 0
else
iStart = CInt…… |
|
| 披著羊皮的大野狼 - Session |
| 寫過稍微大型一點 ASP 的人都知道，Session 這個物件真是好用，它可以用來記錄使用者私有的資料變數，既安全又方便。但是你真的知道 Session 的運作原理嗎？或許了解以後，你就再也不太敢使用這個令人又愛又恨的物件。雖然轉而替代之的方法稍嫌麻煩，但在長期考量之下，也就不得不這麼做了。
首先來講講 Session…… |
|
| len(),lift(),right()不能正常识别中文的解决方法 |
| 以下用法和len(),lift(),right()一样。
Function Strlength(Str)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
If Asc(Test_Str)>0 Then
Strlength=Strlength+1
Else
Strlength=Strlength+2
End If
Next
End Func…… |
|
| 巧用ASP生成PDF文件 |
| Adobe PDF格式已经变成很多机构和公司进行跨平台制表的通用媒体格式。尽管我不是这个产品的狂热痴迷者，却不得不接受这样一个事实：用这个格式产生一个协定可能会比用Word还要好。
由于在一家雇用公司工作，我已经把我们所有早期的软件写成能在Internet上运行，这样我们就能和小的子公司共享公用数据库了。…… |
|
| 使用NextRecordset通过一个Connection输出多个select?/a> |
| <%
dim conn
dim strconn
dim rs
dim strsql
dim strsql2
dim strsql3
dim strsql4
dim strsql5
dim strsql6
dim strsql7
dim strsql8
'strconn = Driver={SQL Server};Description=example;SERVER=222.222.1.2;UID=webexample;PWD=;DATABASE=webexample"
'Format Declare & EXEC statements that w…… |
|
| 不用 EOF 以加快记录循环 |
| 通常我们使用以下的代码进行记录循环：
Do while not records.eof
combo1.additem records![Full Name]
records.movenext
loop
结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下， 浪费的时间相当大。 而使用以下的代码， 可以提高近 1/3 的速度：
records.movelast
intRecCount=recor…… |
|
| 汉字转化为拼音 |
| 很多问题都是因为中文问题造成的
如文件名最好别用中文
现在的解决方法一般是产生一个ID,将这个ID做文件名
网页上如果url带汉字也经常出错
现在的解决方法一般用urlencode编码
现在用了这个转化，就好多了
原理，使用Dictionary技术
1.添加索引
2.遍历词典
<%
Set d = CreateObject("Scripting.Dic…… |
|
| 随机取出数据库中的若干条记录的方法 |
| SELECT TOP n * FROM table_name ORDER BY NEWID()
top n，n就是要取出的记录数 |
|
| [1][2][3][4].. › » 20条/页 共119条 |
