博文
asp生成word文件(2007-04-17 12:43:00)
摘要：<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>生成word文档</title>
</head>
<script language="vbscript">
sub builddoc()
On Error Resume Next
Dim wApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97"
else
wApp.visible = True
wApp.Documents.add
wApp.Selection.TypeParagraph
&......
清空IE缓存(2007-04-11 09:44:00)
摘要：有时候缓存会给程序带来很大的麻烦，这段代码是用来清空IE缓存里的内容
1.禁止客户端缓存要在<head>中加入类似如下内)：
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
2.在服务器的动态网页中禁止缓存，要加入类似如下脚本
(1)asp:
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
或者
<%
pStr = "private, no-cache, must-revalidate"
Response.ExpiresAbsolute = date()
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", pStr
%>
(2)jsp:
response.setHeader("Pragma","No-cache");
response.setHeader("Cache-Control","no-cache");
response.setDateHeader("Expires", 0);
......
文章分页代码(2007-03-15 16:08:00)
摘要：<%
Function c2u(myText)
Dim i
c2u = ""
For i = 1 to Len(myText)
c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";"
Next
End Function
Function cutStr(str,strlen)
'去掉所有HTML标记
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
l=Len(str)
t=0
For i=1 to l
c=Abs(Asc(Mid(str,i,1)))
If c>255 Then
t=t+2
Else
t=t+1
End If
If t>=strlen Then
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
End Function
Function converttowide(str)
Dim strlen
Dim position
Dim convertstr
if isnull(str) then
converttowide=str
else
position=1
strlen=Len(str)
For i=1 To strlen
convertstr=convertstr+"&#x"+Hex(AscW(Mid(str,position,1))......
rs.open sql,conn,1,1 参数的意思(2007-03-14 18:22:00)
摘要： 第一个参数：sql 即SQL语句
第二个数：conn 即数据库的连接
第三个参数：
0 创建只能向前滚动的只读记录集
1 游标允许你添加，删除和修改记录，但是看不到当你的记录集打开是其他用户所做的修改
2 游标允许你添加，删除和修改记录，并且可以看到其他用户所做的修改
3 创建一个具有所有定位功能的只读记录集，即：可以向前，向后，并且可以标记书签
第四个：
1 记录是只读的，并且不能改变
2 记录在你可以对其进行编辑时是被锁定的
3 在你调用Update方法提交你所做的改变时记录是被锁定的
4 如果你在对一系列记录进行批量更新，在需要它......
asp如何检测conn.execute执行成功？(2007-03-02 14:23:00)
摘要：sql="update ……"
conn.execute(sql)
如何检测conn.execute更新成功?
dim a
sql="update ……"
conn.execute sql,a
if a=1 then
response.write "更新成功"
else
response.write "更新失败"
end if
......
asp调用SQL Server存储过程(2007-03-02 13:19:00)
摘要：说明：
1、使用存储过程比asp直接使用SQL语句速度快得多！
2、asp调用SQL Server存储过程时，经常用到一些参数，如果你没有定义或加载adovbs.inc文件，就会出错，所以你可以直接定义，或试用该参数的替代数字！详见存储过程初级篇：SQL Server存储过程的建立和使用
1.数据库链接
文件：include.asp
使用方式：<!--#include file="include/conn.asp"--> '//假设数据库文件放在include目录下
<%
dim conn
dim connstr
on error resume next
Sub OpenConn() '//建立数据库链接
connstr="DRIVER={SQL Server};Server=127.0.0.1;UID=badboy;PWD=badyboyILoveYou;database=BadBoyDB"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
Sub CloseConn() '//断开数据库链接
conn.close
set conn=nothing
End Sub
%>
2.调用数据库存储过程
＜% Call OpenConn() '//建立连接对象
......
如何得到url="http://www.aaa.com/?25中的25(2007-02-13 09:24:00)
摘要：url="http://www.aaa.com/?25
如何得到25这个值？
方法：
<%
for each var in request.QueryString
response.write var
next
%> ......
获取本页的URL地址(2007-02-13 09:15:00)
摘要：<%
Function GetLocationURL()
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString
ServerName = Request.ServerVariables("SERVER_NAME")
ServerPort = Request.ServerVariables("SERVER_PORT")
ScriptName = Request.ServerVariables("SCRIPT_NAME")
QueryString = Request.ServerVariables("QUERY_STRING")
Url="http://"&ServerName
If ServerPort <> "80" Then Url = Url & ":" & ServerPort
Url=Url&ScriptName
If QueryString <>"" Then Url=Url&"?"& QueryString
GetLocationURL=Url
End Function
Response.Write GetLocationURL()
%>......
Cookies常用命令简介(2007-01-30 15:30:00)
摘要：什么是Cookies？Cookies是数据包，可以让网页具有记忆功能，在某台电脑上记忆一定的信息。Cookies的工作原理是，第一次由服务器端写入到客户端的系统中。以后每次访问这个网页，都是先由客户端将Cookies发送到服务器端，再由服务器端进行判断，然后再产生HTML代码返回给客户端，这是一个很重要的原理。关于服务器端和客户端的概念，请点击我写的这篇：什么是服务器端和客户端，举了2个实例。
Cookies在ASP中的最常用的方法，请做好笔记：
1.如何写入Cookies？
Response.Cookies("字段名")=变量或字符串，例如：
Response.Cookies("str")="username"
2.如何设置Cookies时间？
Response.Cookies("字段名").expires=时间函数+N，例如：
Response.Cookies("str").expires=date+1，表示Cookies保存1天，再比如：
Response.Cookies("str").expires=Hour+8，表示Cookies保存8小时。
3.在以往的ASP教程中，很少有介绍Cookies退出的方法。在“退出”这个ASP页中可以这样写：
Response.Cookies("字段名")=""
之后，在客户端的浏览器就清除了Cookies，并且Cookies文件会消失。注意有多少个字段，就要写多少句来清除。
4.如何读取Cookies？
变量名=Request.Cookies("字段名")，例如：
str=Request.Cookies("str")
如果网页中写入<%=str%>这句，则会显示“username”。
也可以这样直接读取Cookies，<%=Request.Cookies("str")%>
Cookies是属于Session对象的一种。但有不同，Cookies不会占服务器资源；而“Session”则会占用服务器资源。所以，尽量不要使用Session，而使用Cookies。......
只去掉html中的链接(2007-01-09 14:31:00)
摘要：<p><a href='1.html'>11111</a></p><p>2222</p> <p><a href='2.html'>3333</a></p><p>44444</p>
想得到的结果是:
<p>11111</p><p>2222</p><p>3333</p><p>4444</p>
<%
Function regExReplace(sSource,patrn, replStr)
Dim regEx, str1
str1 = sSource
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
regExReplace = regEx.Replace(str1, replStr)
End Function
dim c1,c2
c1="<p><a href='1.html'>11111</a></p><p>2222</p> <p><a href='2.html'>3333</a></p><p>44444</p> "
c2=regExReplace(c1,"<a.*?>|</a>","")
response.Write(c2)
%>......