| ·如何Response.Redirect新的页面到指定的框架中 |
| In the file that you wish to show up in the frame, add this line after the <BODY> tag:
<BASE TARGET="framename">
Then when you Response.Redirect to this ASP file, its contents will appear in the frame named "framename".
|
|
| ·如何插入Access库记录后马上得到自动编号值 |
| 首先须保证获得记录集的方式支持bookmark属性，如1，3
插入一条带自动编号字段的记录后，获取该记录的bookmark属性值
temp = rs.bookmark
然后
rs.bookmark = temp
试试！！
Response.write rs.Fields("ID").Value
|
|
| ·页面延迟的两个简单方法 |
| 一、
<% Response.Buffer = True %>
<%
' Setup the variables necessary to accomplish the task
Dim TimerStart, TimerEnd, TimerNow, TimerWait
' How many seconds do you want them to wait...
TimerWait = 5
' Setup and start the timers
TimerNow = Timer
TimerStart = TimerNow
TimerEnd = T…… |
|
| ·关于页面缓存清除的方法小结（整理） |
| 每次上Chinaasp总有不少的网友问及如何使Asp页面刷新，在IIS4的管理下页面的不刷新问题较IIS5严重得多，而且有时确实加入一些控制页面缓存的语句还是不起什么作用。原因我也不是很清楚，去问问微软吧:-)
现在我将清除页面缓存的一些方法总结如下：
1、在Asp页面首部加入
Response.Buffer = True
Response.Expires…… |
|
| ·显示左边的n个字符(自动识别汉字)函数(探索者) |
| 应一网友要求，特帖出
rem 显示左边的n个字符(自动识别汉字)
Function LeftTrue(str,n)
If len(str)<=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0…… |
|
| ·关于错误信息的显示 |
| asp程序出错后，错误提示不是很清楚明白，让人摸不着头脑，用下面方法看看有没有帮助（此法目前只适合处ADO错误外的错误）
步骤一，用编辑器打开c:\winnt\help\iisHelp\common\500-100.asp
将它另存为500-101.asp备份(以便日后恢复）
步骤二，将下面的代码覆盖500-100.asp原文件，保存退出
步骤三，创建新文件test.asp，…… |
|
| ·ASP编写完整的一个IP所在地搜索类 |
| 修正了查询方法，查询的方法和追捕的一致；只是追捕会自动更正IP。
还有个函数的书写错误，也已经修正；
包括增加了一个IP地址正确性的验证函数。（只是从格式上判断）
<%
'作者：萧寒雪(S.F.)
'QQ号：410000
Server.ScriptTimeout = &HE10 '&H3C
Response.Buffer = ("S.F." = "S.F.")
Dim IpSearch
'建立…… |
|
| ·一个小技巧，在http和https之间转化 |
| 在做电子商务站点的时候，经常要求浏览器在https和http之间转化
下面我给出相应的代码：
让一个ASP页面以https开始，请在该ASP页面顶部添加如下代码：
<%
Response.Buffer = True
If (Request.ServerVariables("HTTPS") = "off") Then
Dim xredir__, xqstr__
xredir__ = "https://" & Request.Serv…… |
|
| ·介绍两种调试程序的方法 |
| 大家在调试一个程序时，有时候可能这个程序很长，多到成百上千行的代码，如果你的程序写的又零乱不堪，到了这种时候通常都不知道自己写了些什么，有些人还比较懒，像我，连个注释都不写，但是我从来没有被我的程序搞晕过，一般来说，不管你的程序是不是面向对像的开发模式，在局部的程序代码里，你的程序还是结构式的，如果…… |
|
| ·老外的代码分离办法 |
| index.asp
-----------------------------------------------------------------------
<!--#include file="templateclass.asp"-->
<%
' This is the code used to load and display the template.
' See how clean it is!!! :)
sub go()
dim oTemplate
set oTemplate = new template
with oTemplate…… |
|
| ·关于页面和代码分离的 |
| 为了避免ASP程序和HTML代码混写造成维护困难的情况，本文介绍了一种方法，利用模板来分离程序和页面，使程序设计更加轻松。
在使用ASP制作一个站点的时候，常常会出现一个ASP文件中，程序代码和HTML代码混合的情况。这样子做有许多缺点：
1. 且不说编程时就要对页面布局进行设计和编排，造成代码混乱难懂，不规…… |
|
| ·请问什么函数能判断一个数是奇数还是偶数？ |
| 自己遍呀。
function Is_odd(num) as boolean
n=num mod 2
if n=1 then
Is_odd=true
else
Is_odd=false
end if
end function
是奇数返回真，是偶数返回假。
|
|
| ·关于密码校验 |
| 在处理密码校验这种问题的时候我们一般需要检测用户输入的数据，以排除类似单引号、or等特殊字符和单词，这时使用正则表达式是一个非常有效的方法。不过今天在编制论坛的时候却忽然想到这样一种写法：
IF password<>repassword OR len(password)<>len(repassword) Then
这同样是一种简单而有效的校验方法，这…… |
|
| ·控制弹出窗口---用file access组件技巧实例 |
| 跟我学会用后台程序控制弹出窗口---用file access组件修改文件实例
我们经常需要在首页上做一个弹出窗口（其实我很讨厌这个东东），一般的办法是在<body> 中加入这样一句 onLoad="Window.open('new-window.htm','','width=300,height=250')" 其中new-window.htm为新开的窗口网页文件名，后页是宽度和高度，但如果是…… |
|
| ·心得分享 |
| 在 这 询 问 了 不 少 问 题 ， 费 了 大 虾 们 不 少 时 间 来 为 我 解 答 ， 有 点 觉 得 自 己 没 什 么 贡 献 ， 现 借 着 刚 发 现 的 小 小 心 得 ， 在 这 贡 献 贡 献 ：
在 制 作 ASP 网 页 时 ， 常 有 的 是 把 Form POST 上 来 的 内 容 作 储 存 或 更 新 。 只 是 写 相 关 的 程 式 就 非 常 的 烦 人 …… |
|
| ·判断gif图像尺寸的方法 |
| 这里是我根据gif图像格式想出来的判断gif图像尺寸的方法，请大家给点意见
up.htm
<html>
<body>
<form action="up.asp" ENCTYPE="multipart/form-data" method="post">
<table border=0 width=100% cellspacing="0">
<tr>
<td width="30%">请选择您要上传的gif图片:…… |
|
| ·如何取得所有的Session变量 |
| 在程序调试中，有时候需要知道有多少Session变量在使用，她们的值如何？由于Session对象提供一个称为Contents的集合(Collection)，我们可以通过For...Each循环来达到目标：
Dim strName, iLoop
For Each strName in Session.Contents
Response.Write strName & " - " & Session.Contents(strName)& "<BR>"
Next…… |
|
| ·不用正则表达式来实现非大小写替换 |
| Function ReplaceNoIgnoreCase(str,replStr)
If len(replStr)<1 or str="" Then
ReplaceTest=str
Exit function
End If
Dim LoopN
LoopN=1
Dim TmpStr,inStrN,LenreplStr,Ustr,UreplStr
LenreplStr = Len(replStr)
TmpStr = str
Ustr = Ucase(…… |
|
| ·遍历目录以及目录下文件的函数 |
| <%@ Language=VBScript %>
<%
'我写的一个遍历目录以及目录下文件的函数，
%>
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubF…… |
|
| ·对连串英文自动换行的解决方法 IE5.5 |
| 1.显示效果与代码
[代码]
<table style="TABLE-LAYOUT: fixed" width="100%" border="0" cellspacing="0" cellpadding="7" bgcolor="#f7f7f7">
<tr>
<td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"><font color="#990000">51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51J…… |
|
| 9 7 [1][2][3][4][5][6] 8 : 20条/页 共119条 |
