ASP的那些东西（一）
客户端脚本：<script language="scriptlanguage"></script>
服务器端脚本：<% ......%>
Vbscript是visual basic的一个子集，虽然限制了可以使用的内置函数的数量，但是也使得他非常小巧，从而提高了可移植性
Variant是vbscript的唯一数据类型，有13种子类型：
Empty,Null,Boolean,Byte,Integer,Currency,Long,Single,Double,Date(Time),String,Object,Error
规范：<body>外定义变量、函数等等需要事先申明的语句，如果是在几个地方用，就放在：<body>外；如果只在一处用，就放在用的地方
原则：能用request的时候尽量不用session,能用session的时候尽量不用application。
Server.MapPath("/DataBase/xx.mdb")
带"/"是相对于根目录的绝对路径,即前面加个服务器地址
不带"/"则是相对于conn.asp文件的相对路径,即前面加个当前程序文件的路径
连接Access数据库的代码
conn="driver={Microsoft Access Driver (*.mdb)};DefaultDir=;DBQ="
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
连接SQL Server数据库：
ConnectionString = "driver={sql server};server=;uid=;pwd=;database="
ConnectionString ="driver={sql server};Integrated Security = SSPI;database=;server="
Connstr = "Provider = SQLOLEDB; User ID =; Password =; Initial Catalog =DatabaseName ; Data Source = Server;"
建立记录集的另两种方法
Set rs = conn.Execute("sql语句")
Set rs = conn.Execute(ProName,0,4)
设置会话超时时间的两种方法
session.timeout=20用来设置session的生存时间
IIS---网站属性---主目录---配置---选项---"启用会话状态"---"会话超时"
ASP弹出提示js代码
alert('请输入用户名！');history.go(-1);
alert('您还没有登陆！');window.location.href='Login.asp';
关闭窗口
onClick="javascript:window.close();"
安全退出：
<%
response.Buffer=true
session.Abandon()
用户提示
response.flush
%>
response.Buffer=true
这条语句就是开启缓存，因为ASP是解释执行，所以每接受一个请求就要将页面执行一次，生成相应的HTML代码，若是访问量较大的话，就可以将执行结果缓存一段时间，这样再遇到相同的请求时就可以直接发给客户端了
Flush 方法立即发送缓冲区中的输出
很多时候我们写
相关文档：
如id="a/b/c/asdf.html" 参数为动态
怎么把后面的asdf.html过滤?使id="a/b/c/"?
如果id的格式一定为 "????/????/??????/xxxx.xxx"
即最后所要过滤掉的一定是最后一个"/"之后的内容
可以用如下方法:
<%
URL="a/b/c/asdf.html"
PartOfURL=split(URL,"/") '将字符串以"/"分割
UnNeed=spli ......
'显示"上一页 下一页":链接地址,总数,页数,是否显示总数,是否用下拉列表跳转,单位
Public Function PageControl(iCount,pagecount,page,table_style,font_style,colspan)
'生成上一页下一页链接
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request. ......
asp文件搜索
<%
'*************Set newsearch=new SearchFile '声明 *************
'*************newsearch.Folder="F:+E:"'传入搜索源*************
'*************newsearch.keyword="汇编" '关键词*************
'*************newsearch.Search &nbs ......
<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBi ......
'判断是否是数字（包括整数和浮点数）
function IsNumber(str)
if RegPatrn("^-?[1-9]\d*$",str) or RegPatrn("^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$",str) then
IsNumber=true
else
IsNumber=false
end if
end function
'正则表达式判断是否匹配
Function RegPatrn(patrn, strng)
RegPatrn = false
Di ......
