| ·ASP注册表项目修改 |
| 1)键值路径
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC\ASP\Parame
ters
2)项和参数
项和参数 描述
----------------------------------------------------------------
AllowOutOfProcCmpnts 控制自动组件是否可以运行在进程外或进程内
REG_DWORD
0 = ASP 只允许执行进程内组件
1…… |
|
| ·服务器获得客户端时间的方法 |
| now是获得服务器的时间吗，并不一定，只有在服务器端运行的脚本是获得服务器的时间，在客户端的则是获得客户端的
可以使用任何一个元素，比如span或者input记载服务器的时间,方法是
<span id="servertime"><%=now%></span>,在记载下客户端的时间<span id="clienttime"></span>在onload时间…… |
|
| ·一个不错的随机函数 |
| <%
Dim myarr
For i = 0 To 100
Randomize
no = Int((1000-1+1)*Rnd+1)
For j = 0 To i
If no <> myarr(j) And no <> "" Then
j = j + 1
Else
Exit For
End If
myarr(i) = no
Next
If i = 21 Then
Exit For
End If
Next
%> |
|
| ·检查当前目录下是否存在指定的文件，如果存在就重新命 |
| <%
function JudgeFileExit(strFileName)
Dim objFSO,objFile,objFJ
Dim strFilePath
Dim blFJ
Dim intFlag
intFlag=0
set objFSO=CreateObject("Scripting.FileSystemObject")
strFilePath=server.MapPath("./")
if right(strFilePath,1)<>"/" or right(strFilePath,1)<>"\" t…… |
|
| ·asp程序和php程序转换要注意的问题 |
| 前一段时间帮一个朋友把他的asp程序全部转为php程序，虽然听说网上有这样的工具，但是朋友的程序有关电子商务的东西，还是自己动手比较保险。一做下来发现很多地方要注意。
1。语法
如果你对两种都很熟，就比较容易了，但是写着写着昏了头的事情经常发生，。大家知道现在web服务器的错误提示都糊里糊涂的。
php每句话最好…… |
|
| ·取得浏览者的离开时间 |
| <SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub Application_OnStart
Application("conn")="dsn=;uid=;pwd="
end sub
Sub session_onstart
session("ip")=Request.ServerVariables("REMOTE_ADDR")
session("stime")=now()
application.Lock
if application("clicks")="" then
application("…… |
|
| ·树型结构在ASP中的简单解决 |
| 树型结构在我们应用程序中还是很常见的，比如文件目录，BBS，权限设置，部门设置等。这些数
据信息都采用层次型结构，而在我们现在的关系型数据库中很难清淅表达。那么要在程序中遇到树型
结构问题该如何处理呢？
最近笔者通过一个ASP权限管理的程序轻松解决了一这问题，现在将其整理出来以飨读者。
…… |
|
| ·检查字符串strSource是否为big或big5码 |
| Public Function CheckBIG(strSource As String) As Boolean
Dim idx As Long
Dim ByteTemp() As Byte
CheckBIG = False
For idx = 1 To Len(strSource)
ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode)
If UBound(ByteTemp) > 0 Then
If (ByteTemp(1) >= 64) And (ByteTe…… |
|
| ·一个非常简单的将半角"转换为中文“的函数 |
| function new_str(str)
if instr(str,chr(34))<>0 and str<>"" then
str_split=split(str,chr(34))
i=1
str_s=""
for j=0 to ubound(str_split)-1
if i mod 2 then
str_s=str_s&str_split(j)&"“"&str_split(j+1)
else
str_s=str_s&str_split(j)&"”"&str_split(j+1)
end i…… |
|
| ·本函数计算两个时间的差[原创] |
| '******************************
'||Function TimeDiff(sBegin, sEnd)
'||本函数计算两个时间的差，可以不用更改直接使用
'||作者：machinecat 2001/10/26
'******************************
'******************************
'注：首先需要判断用户输入的sBegin与sEnd之间的大小
'可以通过DataDiff函数获得两者之…… |
|
| ·IIS5.0中EXECUTE的巧用 |
| EXECUTE是VBscript5.0的新增功能，以下就此举一例：
如果我们有一个FORM，内有大批INPUT，RADIO，SELECT等用户输入，我们在ASP处理文件中通常的取值方法是：
dim company,name,email,tel,fax,web '可能还有很多....
company=Request.Form("company")
.....
web=Request.Form("web")
然后进行入库或其他处理。
如果每…… |
|
| ·监测你的站点使用多少session和application的程序 |
| <%@ Language=VBScript %>
<% Option Explicit %>
您的sessionID号是：<%=session.sessionid%><br>
<%
Response.Write "在你的程序中一共使用了 " & Session.Contents.Count & _
" 个Session变量<P>"
Dim strName, iLoop
For Each strName in Session.C…… |
|
| ·控制输出字符串的长度，可以区别中英文 |
| 研究了2小时怎么控制输出文章标题中的中英文，给大家铁出来
函数在下面，是方法是：
strvalue("复请Email通知如果不填写则取注册Email",26)
这里26是指26个英文字母，也就是13个汉字
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
f…… |
|
| ·最简洁的多重查询的解决方案 |
| 注：本文如需转摘或引用，请与本人联系:“中国印刷市场”网http://www.printmarket.com.cn 朱继山 tozjs@263.net,否则视为侵权。
[前言]
我们经常会遇到多重查询问题，而长长的SQL语句往往让人丈二和尚摸不着头脑。特别是客户端部分填入查询条件时，如用普通方法将更是难上加难。
以下巧妙地利用…… |
|
| ·排序方式解决“上下主题”问题（三） |
| 显示：（排序)main.asp
--------部分，未经优化处理-------
<%
Const adOpenStatic = 3
Const adLockPessimistic = 2
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
DBPath=Server.MapPath("../fpdb/massege.mdb")
conn.Open "DRIVER={Microsoft Ac…… |
|
| ·排序方式解决“上下主题”问题（二） |
| 发言：add_massege.asp
------------部分，未经优化整理------------
<body bgcolor="#C8C8E6">
<script language="VBScript">
Sub GoBack()
form1.btn1.value="返回"
history.go(-1)
end sub
</Script>
<%
name1=Session("Uname")
If name1="" Then
Response.Write"<font si…… |
|
| ·排序方式解决“上下主题”问题（一） |
| 近来不少网友提到论坛“上一主题”“下一主题”的显示问题，我使用另一种排序方式解决的，写出来，听听高手的意见。
数据库：
ID:贴子的id号，自动编号
OrderID:排序基数，以下详细描述
.
.
.
数据：
主体贴：第一个主题贴OrderID为aaaaaaz（其中的6个a是为了这个版面上最多可以有999999*26条主题贴，当然，您…… |
|
| ·实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键?/a> |
| CLASS功能.替换传入的字符串成为SQL语句Where关键字后面的表达式:
词语搜索 [例如: 小明]
词组搜索
词组里面每一个词都将被检索
例如: 小强1 小名1 小强强 小小强
逻辑搜索
支持 And 和 Or 运算符.
例如: 小明 And 小强 And 小小强
复合条件:
例如:(小小明 Or 小明) And (小强 Or 小小强)
例如…… |
|
| ·如何更好更快的debug |
| 有人说web程序员不算是真正的程序员，刚听到这句话的时候很气愤，但仔细想想，这话还是很有道理的。可以说，大部分的web程序员不能算是真正的程序员，因为他们的大部分注意力在实现功能上，而对一些程序员必须要掌握的东西丝毫不在意。可以这么说，还不会爬就想跑了。
可能你不会同意上面的话，但问一下自己，除了改改…… |
|
| ·限制只能中文输入的方法 |
| 实现函数:
function isCharsInBag (s, bag)
{
var i,c;
for (i = 0; i < s.length; i++)
{
c = s.charAt(i);//字符串s中的字符
if (bag.indexOf(c) > -1)
return c;
}
return "";
}
检查函数:
function ischinese(s)
{
var errorChar;
var badChar = "ABCDEFGHI…… |
|
| 9 7 [1][2][3][4][5] 8 : 20条/页 共119条 |
