FDS's Blog » ASP

用ASP做在线升级文件

FDS — Thu, 30 Jul 2009 03:40:55 +0000

用ASP做在线升级文件的方法，方便用户升级。

<%
Rem #####################################################################################
Rem ## 在线升级类声明
Class Cls_oUpdate
Rem #################################################################
Rem ## 描述: ASP 在线升级类
Rem ## 版本: 1.0.0
Rem ## 作者: 萧月痕
Rem ## MSN: xiaoyuehen(at)msn.com
Rem ## 请将(at)以 @ 替换
Rem ## 版权: 既然共享, 就无所谓版权了. 但必须限于网络传播, 不得用于传统媒体!
Rem ## 如果您能保留这些说明信息, 本人更加感谢!
Rem ## 如果您有更好的代码优化, 相关改进, 请记得告诉我, 非常谢谢!
Rem #################################################################
Public LocalVersion, LastVersion, FileType
Public UrlVersion, UrlUpdate, UpdateLocalPath, Info
Public UrlHistory
Private sstrVersionList, sarrVersionList, sintLocalVersion, sstrLocalVersion
Private sstrLogContent, sstrHistoryContent, sstrUrlUpdate, sstrUrlLocal
Rem #################################################################
Private Sub Class_Initialize()
   Rem ## 版本信息完整URL, 以 http:// 起头
   Rem ## 例: http://localhost/software/Version.htm
   UrlVersion     = “”

   Rem ## 升级URL, 以 http:// 起头, /结尾
   Rem ## 例: http://localhost/software/
   UrlUpdate     = “”

   Rem ## 本地更新目录, 以 / 起头, /结尾. 以 / 起头是为当前站点更新.防止写到其他目录.
   Rem ## 程序将检测目录是否存在, 不存在则自动创建
   UpdateLocalPath = “/”

   Rem ## 生成的软件历史文件
   UrlHistory     = “history.htm”

   Rem ## 最后的提示信息
   Info        = “”

   Rem ## 当前版本
   LocalVersion    = “1.0.0″

   Rem ## 最新版本
   LastVersion    = “1.0.0″

   Rem ## 各版本信息文件后缀名
   FileType      = “.asp”
End Sub
Rem #################################################################

Rem #################################################################
Private Sub Class_Terminate()

End Sub
Rem #################################################################
Rem ## 执行升级动作
Rem #################################################################
Public function doUpdate()
   doUpdate = False

   UrlVersion    = Trim(UrlVersion)
   UrlUpdate    = Trim(UrlUpdate)

   Rem ## 升级网址检测
   If (Left(UrlVersion, 7) <> “http://”) Or (Left(UrlUpdate, 7) <> “http://”) Then
    Info = “版本检测网址为空, 升级网址为空或格式错误(#1)”
    Exit function
   End If

   If Right(UrlUpdate, 1) <> “/” Then
    sstrUrlUpdate = UrlUpdate & “/”
   Else
    sstrUrlUpdate = UrlUpdate
   End If

   If Right(UpdateLocalPath, 1) <> “/” Then
    sstrUrlLocal = UpdateLocalPath & “/”
   Else
    sstrUrlLocal = UpdateLocalPath
   End If

   Rem ## 当前版本信息(数字)
   sstrLocalVersion = LocalVersion
   sintLocalVersion = Replace(sstrLocalVersion, “.”, “”)
   sintLocalVersion = toNum(sintLocalVersion, 0)

   Rem ## 版本检测(初始化版本信息, 并进行比较)
   If IsLastVersion Then Exit function

   Rem ## 开始升级
   doUpdate = NowUpdate()
   LastVersion = sstrLocalVersion
End function
Rem #################################################################

Rem ## 检测是否为最新版本
Rem #################################################################
   Private function IsLastVersion()
    Rem ## 初始化版本信息(初始化 sarrVersionList 数组)
    If iniVersionList Then
     Rem ## 若成功, 则比较版本
     Dim i
     IsLastVersion = True
     For i = 0 to UBound(sarrVersionList)
      If sarrVersionList(i) > sintLocalVersion Then
       Rem ## 若有最新版本, 则退出循环
       IsLastVersion = False
       Info = “已经是最新版本!”
       Exit For
      End If
     Next
    Else
     Rem ## 否则返回出错信息
     IsLastVersion = True
     Info = “获取版本信息时出错!(#2)”
    End If
   End function
Rem #################################################################
Rem ## 检测是否为最新版本
Rem #################################################################
   Private function iniVersionList()
    iniVersionList = False

    Dim strVersion
    strVersion = getVersionList()

    Rem ## 若返回值为空, 则初始化失败
    If strVersion = “” Then
     Info = “出错…….”
     Exit function
    End If

    sstrVersionList = Replace(strVersion, ” “, “”)
    sarrVersionList = Split(sstrVersionList, vbCrLf)

    iniVersionList = True
   End function
Rem #################################################################
Rem ## 检测是否为最新版本
Rem #################################################################
   Private function getVersionList()
    getVersionList = GetContent(UrlVersion)
   End function
Rem #################################################################
Rem ## 开始更新
Rem #################################################################
   Private function NowUpdate()
    Dim i
    For i = UBound(sarrVersionList) to 0 step -1
     Call doUpdateVersion(sarrVersionList(i))
    Next
    Info = “升级完成! “” & sstrUrlLocal & UrlHistory & “”“>查看”
   End function
Rem #################################################################

Rem ## 更新版本内容
Rem #################################################################
   Private function doUpdateVersion(strVer)
    doUpdateVersion = False

    Dim intVer
    intVer = toNum(Replace(strVer, “.”, “”), 0)

    Rem ## 若将更新的版本小于当前版本, 则退出更新
    If intVer <= sintLocalVersion Then
     Exit function
    End If

    Dim strFileListContent, arrFileList, strUrlUpdate
    strUrlUpdate = sstrUrlUpdate & intVer & FileType

    strFileListContent = GetContent(strUrlUpdate)

    If strFileListContent = “” Then
     Exit function
    End If

    Rem ## 更新当前版本号
    sintLocalVersion = intVer
    sstrLocalVersion = strVer

    Dim i, arrTmp
    Rem ## 获取更新文件列表
    arrFileList = Split(strFileListContent, vbCrLf)

    Rem ## 更新日志
    sstrLogContent = “”
    sstrLogContent = sstrLogContent & strVer & “:” & vbCrLf

    Rem ## 开始更新
    For i = 0 to UBound(arrFileList)
     Rem ## 更新格式: 版本号/文件.htm|目的文件
     arrTmp = Split(arrFileList(i), “|”)
     sstrLogContent = sstrLogContent & vbTab & arrTmp(1)
     Call doUpdateFile(intVer & “/” & arrTmp(0), arrTmp(1))
    Next

    Rem ## 写入日志文件
    sstrLogContent = sstrLogContent & Now() & vbCrLf
    response.Write(“

” & sstrLogContent & “

”)
Call sDoCreateFile(Server.MapPath(sstrUrlLocal & “Log” & intVer & “.htm”), _
“

” & sstrLogContent & “

”)
Call sDoAppendFile(Server.MapPath(sstrUrlLocal & UrlHistory), “

” & _

                                          strVer & “_______” & Now() & “

” & vbCrLf)
   End function
Rem #################################################################

Rem ## 更新文件
Rem #################################################################
   Private function doUpdateFile(strSourceFile, strTargetFile)
    Dim strContent
    strContent = GetContent(sstrUrlUpdate & strSourceFile)

    Rem ## 更新并写入日志
    If sDoCreateFile(Server.MapPath(sstrUrlLocal & strTargetFile), strContent) Then
     sstrLogContent = sstrLogContent & “ 成功” & vbCrLf
    Else
     sstrLogContent = sstrLogContent & “ 失败” & vbCrLf
    End If
   End function
Rem #################################################################
Rem ## 远程获得内容
Rem #################################################################
   Private function GetContent(strUrl)
    GetContent = “”

    Dim oXhttp, strContent
    Set oXhttp = Server.CreateObject(“Microsoft.XMLHTTP”)
    ‘On Error Resume Next
    With oXhttp
     .Open “GET”, strUrl, False, “”, “”
     .Send
     If .readystate <> 4 Then Exit function
     strContent = .Responsebody

     strContent = sBytesToBstr(strContent)
    End With

    Set oXhttp = Nothing
    If Err.Number <> 0 Then
     response.Write(Err.Description)
     Err.Clear
     Exit function
    End If

    GetContent = strContent
   End function
Rem #################################################################
Rem #################################################################
Rem ## 编码转换 2进制 => 字符串
   Private function sBytesToBstr(vIn)
    dim objStream
    set objStream = Server.CreateObject(“adodb.stream”)
    objStream.Type    = 1
    objStream.Mode    = 3
    objStream.Open
    objStream.Write vIn

    objStream.Position = 0
    objStream.Type    = 2
    objStream.Charset = “GB2312″
    sBytesToBstr     = objStream.ReadText
    objStream.Close
    set objStream    = nothing
   End function
Rem #################################################################
Rem #################################################################
Rem ## 编码转换 2进制 => 字符串
   Private function sDoCreateFile(strFileName, ByRef strContent)
    sDoCreateFile = False
    Dim strPath
    strPath = Left(strFileName, InstrRev(strFileName, “\”, -1, 1))
    Rem ## 检测路径及文件名有效性
    If Not(CreateDir(strPath)) Then Exit function
    ‘If Not(CheckFileName(strFileName)) Then Exit function

    ‘response.Write(strFileName)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set f = fso.OpenTextFile(strFileName, ForWriting, True)
    f.Write strContent
    f.Close
    Set fso = nothing
    Set f = nothing
    sDoCreateFile = True
   End function
Rem #################################################################
Rem #################################################################
Rem ## 编码转换 2进制 => 字符串
   Private function sDoAppendFile(strFileName, ByRef strContent)
    sDoAppendFile = False
    Dim strPath
    strPath = Left(strFileName, InstrRev(strFileName, “\”, -1, 1))
    Rem ## 检测路径及文件名有效性
    If Not(CreateDir(strPath)) Then Exit function
    ‘If Not(CheckFileName(strFileName)) Then Exit function

    ‘response.Write(strFileName)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set f = fso.OpenTextFile(strFileName, ForAppending, True)
    f.Write strContent
    f.Close
    Set fso = nothing
    Set f = nothing
    sDoAppendFile = True
   End function
Rem #################################################################
Rem ## 建立目录的程序，如果有多级目录，则一级一级的创建
Rem #################################################################
   Private function CreateDir(ByVal strLocalPath)
    Dim i, strPath, objFolder, tmpPath, tmptPath
    Dim arrPathList, intLevel

    ‘On Error Resume Next
    strPath     = Replace(strLocalPath, “\”, “/”)
    Set objFolder = server.CreateObject(“Scripting.FileSystemObject”)
    arrPathList   = Split(strPath, “/”)
    intLevel     = UBound(arrPathList)

    For I = 0 To intLevel
     If I = 0 Then
      tmptPath = arrPathList(0) & “/”
     Else
      tmptPath = tmptPath & arrPathList(I) & “/”
     End If
     tmpPath = Left(tmptPath, Len(tmptPath) - 1)
     If Not objFolder.FolderExists(tmpPath) Then objFolder.CreateFolder tmpPath
    Next

    Set objFolder = Nothing
    If Err.Number <> 0 Then
     CreateDir = False
     Err.Clear
    Else
     CreateDir = True
    End If
   End function
Rem #################################################################
Rem ## 长整数转换
Rem #################################################################
   Private function toNum(s, default)
    If IsNumeric(s) and s <> “” then
     toNum = CLng(s)
    Else
     toNum = default
    End If
   End function
Rem #################################################################
End Class
Rem #####################################################################################
%>

ASP实现图片上传

FDS — Thu, 30 Jul 2009 03:22:52 +0000

用纯ＡＳＰ代码来实现图片的上传以及保存到数据库的功能（顺便也实现显示数据库中的图片到网页上的功能）。
　　首先我们先来熟悉一下将要使用的对象方法。我们用来获取上一个页面传递过来的数据一般是使用Request对象。同样的，我们也可以使用Request对象来获取上传上来的文件数据，使用的方法是Request.BinaryRead()。而我们要从数据库中读出来图片的数据显示到网页上面要用到的方法是：
Request.BinaryWrite()。在我们得到了图片的数据，要保存到数据库中的时候，不可以直接
使用Insert语句对数据库进行操作，而是要使用ADO的AppendChunk方法，同样的，读出数据库
中的图片数据，要使用GetChunk方法。各个方法的具体语法如下：
*Request.BinaryRead语法：
variant=Request.BinaryRead(count)
参数
variant
返回值保存着从客户端读取到数据。
count
指明要从客户端读取的数据量大小，这个值小于或者等于使用方法Request.TotalBytes得到的
数据量。
*Request.BinaryWrite语法：
Request.BinaryWritedata
参数
data
要写入到客户端浏览器中的数据包。
*Request.TotalBytes语法：
variant=Request.TotalBytes
参数
variant
返回从客户端读取到数据量的字节数。
*AppendChunk语法
将数据追加到大型文本、二进制数据Field或Parameter对象。
object.AppendChunkData
参数
objectField或Parameter对象
Data变体型，包含追加到对象中的数据。
说明
使用Field或Parameter对象的AppendChunk方法可将长二进制或字符数
　　据填写到对象中。在系统内存有限的情况下，可以使用AppendChunk方法对长整型值进行
部分而非全部的操作。
*GetChunk语法
返回大型文本或二进制数据Field对象的全部或部分内容。
variable=field.GetChunk(Size)
返回值
返回变体型。
参数
Size长整型表达式，等于所要检索的字节或字符数。
说明
　　使用Field对象的GetChunk方法检索其部分或全部长二进制或字符数据。在系统内存有限
的情况下，可使用GetChunk方法处理部分而非全部的长整型值。
GetChunk调用返回的数据将赋给“变量”。如果Size大于剩余的数据，则
GetChunk仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则
GetChunk方法返回Null。
　　每个后续的GetChunk调用将检索从前一次GetChunk调用停止处开始的数据。但是，如果从
一个字段检索数据然后在当前记录中设置或读取另一个字段的值，ADO将认为已从第一个字段
中检索出数据。如果在第一个字段上再次调用GetChunk方法，ADO将把调用解释为新的GetChu
nk操作并从记录的起始处开始读取。如果其他Recordset对象不是首个Recordset对象的副本，
则访问其中的字段不会破坏GetChunk操作。
如果Field对象的Attributes属性中的adFldLong位设置为True，则可以对该字段使用GetChun
k方法。
如果在Field对象上使用Getchunk方法时没有当前记录，将产生错误3021（无当前记录）。
　　接下来，我们就要来设计我们的数据库了，作为测试我们的数据库结构如下（access200
0）：

字段名称　　　　类型　　　　描述
　　id　　　自动编号　　　主键值
img OLE对象　　　用来保存图片数据　

对于在MSSQLServer7中，对应的结构如下：
字段名称　　　　类型　　　　描述
　　id　　　　int(Identity)　主键值
img　　 image　　　用来保存图片数据　

现在开始正式编写我们的纯ＡＳＰ代码上传部分了，首先，我们有一个提供给用户的上传界面
，可以让用户选择要上传的图片。代码如下
（upload.htm）：

ost>
　　

　　

注意enctype=”multipart/form-data”，一定要在Form中有这个属性，否则，将无法得到上传
上来的数据。接下来，我们要在process.asp中对从浏览器中获取的数据进行必要的处理，因
为我们在process.asp中获取到的数据不仅仅包含了我们想要的上传上来的图片的数据，也包
含了其他的无用的信息，我们需要剔除冗余数据，并将处理过的图片数据保存到数据库中，这
里我们以access2000为例。具体代码如下（process.asp）：
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
setconnGraph=server.CreateObject(“ADODB.connection”)
connGraph.ConnectionString=”driver={MicrosoftAccessDriver(*.mdb)};DBQ=”&server.Ma
pPath(“images.mdb”)&”;uid=;PWD=;”
connGraph.Open
setrec=server.createobject(“ADODB.recordset”)
rec.Open”SELECT*FROM[images]whereidisnull”,connGraph,1,3
rec.addnew
rec(“img”).appendchunkmydata
rec.update
rec.close
setrec=nothing
setconnGraph=nothing
%>
好了，这下我们就把上传来的图片保存到了名为images.mdb的数据库中了，剩下的工作就是要
将数据库中的图片数据显示到网页上面了。一般在ＨＴＭＬ中，显示图片都是使用标签
，也就是，但是我们的图片是保存到了数据库中，“图片路径”是什么
呢？呵呵，其实这个SRC属性除了指定路径外，也可以这样使用哦：

所以，我们所要做的就是在showimg.asp中从数据库中读出来符合条件的
数据，并返回到SRC属性中就可以了，具体代码如下（showimg.asp）：
<%
setconnGraph=server.CreateObject(“ADODB.connection”)
connGraph.ConnectionString=”driver={MicrosoftAccessDriver(*.mdb)};DBQ=”&
server.MapPath(“images.mdb”)&”;uid=;PWD=;”
connGraph.Open
setrec=server.createobject(“ADODB.recordset”)
strsql=”selectimgfromimageswhereid=”&trim(request(“id”))
rec.openstrsql,connGraph,1,1
Response.ContentType=”image/*”
Response.BinaryWriterec(“img”).getChunk(7500000)
rec.close
setrec=nothing
setconnGraph=nothing
%>
注意在输出到浏览器之前一定要指定Response.ContentType=”image/*”，
以便正常显示图片。
最后要注意的地方是，我的process.asp中作的处理没有考虑到第一页(upload.htm)中还有其
他数据，比如等等，如果有这些项目，你的process.asp就
要注意处理掉不必要的数据。

在Asp程序中取得表单所有内容的方法

FDS — Thu, 30 Jul 2009 03:12:29 +0000

在Asp中如何得到所有表单的名称跟对应的值。其实，这个问题很简单，但是可能还是有很多人不知道该怎么做，所以特地写下来，仅供参考。在Asp程序中，用来获得客户端数据的对象是 Request，这个对象给我们提供了很多的方法以及属性。比如，有这样一个Form，

如果我们要取得 username 中的值，我们可以这样写：Request.Form(“username”)

这个大家都会，其实这个Form是一个集合，也就是说表单中的所有的内容都存放在这个集合

当中，我们要取得某个元素的值，只需要在Request.Form() 这里制定元素的名称就可以了，比如

上面的username。

那么，我们要取得集合中所有的值呢？那很简单，什么都不用跟就是了，直接写Request.Form

就得到了集合中所有元素的名称跟值。下面是一个对集合操作的语句：

<%
For each obj in Request.Form
Response.write obj & ” ” & Request.Form(obj) & ”
”
Next
%>

asp开发中textarea一些问题

FDS — Wed, 24 Jun 2009 04:12:55 +0000

使用SQL SERVER的[导入]功能,便可将access数据转换,但要注意原来的’自增字段’需要修改,将相应字段标识修改为‘是’(原来的备注字段也会自动转化为ntext).

由于新闻的添加,修改都是通过使用textarea,首先为了能保留输入内容的格式,在处理添加的页面加入

<%
Function SqlStr( data )
SqlStr = “‘” & Replace( data, “‘”, “”” ) & “‘”
End Function
Function coder(str)
Dim i
If IsNull(str) Then : coder=”" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case “<”          : coder = coder &”<”
Case “>”          : coder = coder &”>”
Case “&”          : coder = coder &”&”
Case chr(9)    : coder = coder &”  ”
Case VBCrLf    : coder = coder &”
”
Case chr(32) : coder = coder &” ”
Case chr(34) : coder = coder &”"”
Case chr(39) : coder = coder &”'”
Case Else        : coder = coder & mid(str,i,1)
End Select
Next
End Function

content=request(“content”)’正文
content=replace(content,” ”,” “) ‘此处处理是因为修改页面所加入空格会被转化为 ,在此先过滤
content=coder(content)

在修改页面

rs.Open sql, conn, adOpenStatic
content=rs(“正文”) ‘此处一定要写,倘若直接在textarea处写

‘<%=rs(“正文”) %>“则无法显示(我就被此处

‘困了好久,还以为长字段不能使用ntext而只能使用text或varchar呢)

在显示页面

rs.Open sql, conn, adOpenStatic
content=rs(“content”) ‘一定先放到变量中,否则可能无法显示
content=replace(content,vbcrlf,”
”+vbcrlf) ‘经过此处处理,可显示出正确的段落格式

ASP控制每页打印行数的方法

FDS — Mon, 11 May 2009 10:12:27 +0000

在日常工作中，打印文档经常要使用，但是网页打印起来大部分都是不能控制的，这里分享一个用 ASP控制每页打印行数的方法。也许对你有一点点的启发哦！<%
pagenum=55′指定打印行数
%>

销售利润明细报表打印

<%
kdname1=trim(request(“kdname1″))
kdname2=trim(request(“kdname2″))
keyword1=trim(request(“keyword1″))
keyword2=trim(request(“keyword2″))

if keyword1<>”" then
today=keyword1
else
if kdname1=”" then
today=year(date())&”-”&month(date())
else
today=kdname1&”至”&kdname2
end if
end if
%>

销售利润汇总报表

<%
strSQL=”select autoid,sellautoid,productxili,productname,productsize,productnum,productdan,productjia,chaoshi,tiaoma,youhui,fukuan,moncount1,gongshang,lirun1,username,indate,fudate from sell where officename=’”&trim(request.cookies(“Myoffice”))&”‘ and monthjie=’0′ and (year(indate)=year(getdate()) and month(indate)=month(getdate())) and zhuofei is null order by autoid desc”
set rs1=server.createobject(“adodb.recordset”)
rs1.open strSQL,conn,1,1
%>

销售单号

商品名称（规格）

客户

数量

单位

销售价

折%

进货价

小计

利润

付款

销售日期

<%
moncount2=0
moncount5=0
Do while not rs1.eof
%>

<%
for i=1 to pagenum
if not rs1.eof then
if trim(rs1(“fukuan”))=”欠款” then
moncount6=Csng(rs1(“lirun1″))
moncount5=moncount5+moncount6
else
moncount3=Csng(rs1(“lirun1″))
moncount2=moncount2+moncount3
end if
%>














<%
rs1.movenext
end if
next
%>

<%=rs1(“sellautoid”)%>

<%=Decode(rs1(“productname”))%> <%=rs1(“productsize”)%>

<%=left(rs1(“gongshang”),9)%>

<%=rs1(“productnum”)%>

<%=rs1(“productdan”)%>

<%=formatNumber(rs1(“chaoshi”),varnum,-1)%>

<%=rs1(“youhui”)%>

<%=formatNumber(rs1(“productjia”),varnum,-1)%>

<%=formatNumber(rs1(“moncount1″),varnum,-1)%>

<%=formatNumber(rs1(“lirun1″),varnum,-1)%>

<%if trim(rs1(“fukuan”))=”欠款” then%><%=rs1(“fukuan”)%><%else%><%=rs1(“fukuan”)%><%end if%>

<%=rs1(“indate”)%>

<%
if not rs1.eof and i=pagenum+1 then ‘添加分页标记
%>

<%
end if
loop
rs1.close
set rs1=nothing
%>

销售单号

商品名称（规格）

客户

数量

单位

销售价

折%

进货价

小计

利润

付款

销售日期

现金利润：<%=formatNumber(moncount2,varnum,-1)%> <%if moncount5<>”" then%>欠款利润：<%=formatNumber(moncount5,varnum,-1)%><%end if%> <%if moncount5<>”" then%>毛利合计：<%=formatNumber(moncount5+moncount2,varnum,-1)%><%end if%>

<%
end if
conn.close
set conn=nothing
%>

ASP动态显示页面的锚链接

fangds — Mon, 04 May 2009 10:20:40 +0000

锚点是“top”，可以放在页面的任何位置，一般是页首。程序红色部分是关键，就是对锚点出现的判断，我设置的数值是4，意思是出现4个动态数据就出现一个锚点，少于4个时因为还在同一个页面，就不需要有锚点出现，这个数值可以根据实际情况进行修改。为了对页面进行进行美化，可以把锚点的文字用图形。

……(具体内容省略)

While ((Repeat2__numRows <> 0) AND (NOT rsp.EOF))

……(具体内容省略)

Repeat2__index=Repeat2__index+1

Repeat2__numRows=Repeat2__numRows-1

if Repeat2__numRows < 4 then

Response.Write(“

top

”)

else

Response.Write(“

”)

end if

rsp.MoveNext()

Wend

3个步骤来实现asp模块化分页

FDS — Mon, 13 Apr 2009 14:40:20 +0000

通过3个步骤来实现模块化分页，1、查询语句块，2、显示记录块，3、输出分页效果

1、查询语句块

<%
取得当前文件名
temp = Split(request.ServerVariables(“URL”), “/”)
fy = temp(UBound(temp))
set rs=server.createobject(“adodb.recordset”)
if not isempty(request(“page”)) then
pagecount=cint(request(“page”))
else
pagecount=1
end if
sql=”select 查询语句”
rs.open sql,conn,1,1
rs.pagesize=10 分页记录数
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
if rs.eof and rs.bof then%>

对不起，没有符合搜索条件的记录！

2、显示记录块

<%
else
rs.AbsolutePage=pagecount
do while not rs.eof %>

显示的记录

<% i=i+2
rs.movenext
if i>=rs.PageSize then exit do
loop
%>

3、输出分页效果

    <% if rs.pagecount=1 then %>


    <%else%>

    >






<% end if %>
<% end if %>
共有[<%=rs.recordcount%>]条信息当前显示第 1～<%=rs.recordcount%>条

      <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
      page_end=rs.pagesize*pagecount
      if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
      共有[<%=rs.recordcount%>]信息
          <%
    if pagecount>5 and pagecount< rs.PageCount-5 and rs.pagecount>10 then
    qizu=pagecount-4
    min=pagecount+5
    response.write “首页 ”
    response.write “上一页 ”
    for ipage=qizu to min
             if ipage<>pagecount then
             response.write “”+cstr(ipage)+” ”
             else
             response.write “”&ipage&” “
             end if
    next
    response.write “下一页 ”
    response.write “尾页”
    end if
    if rs.PageCount<11 then
    for ipage=1 to rs.PageCount
             if ipage<>pagecount then
             response.write “”+cstr(ipage)+” ”
             else
             response.write “”&ipage&” “
             end if
    next
    end if
    if pagecount < 6 and rs.PageCount>10 then
    for ipage=1 to 10
             if ipage<>pagecount then
             response.write “”+cstr(ipage)+” ”
             else
             response.write “”&ipage&” “
             end if
    next
    response.write “尾页”
    end if
    if pagecount>rs.PageCount-6 and rs.PageCount>10 then
    response.write “首页 ”
    for ipage=rs.PageCount-9 to rs.PageCount
             if ipage<>pagecount then
             response.write “”+cstr(ipage)+” ”
             else
             response.write “”&ipage&” “
             end if
    next
    end if
             %>


   ”>”>”>”>”> 转到第
   页

用ASP实现在服务器自动在线解压RAR文件

FDS — Thu, 02 Apr 2009 01:58:03 +0000

文件打包以后，在服务器自动在线解压RAR文件，这样可以大量的减少上传文件的时间。也很方便！这里分享一个用ASP实现在服务器自动在线解压RAR文件的方法。

<%

dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso

Mlpath=”E:\page\mian\” ‘存放RAR.EXE和CMD.EXE的路径

ylj=Server.mappath(“mian”)&”\” ‘解压文件后所放的路径

ywj=Server.mappath(“mian\apathy.rar”) ‘要解压的RAR文件

Set Shell = Server.CreateObject(“WScript.Shell”)

rarcomm= “E:\page\mian\cmd.exe /c “&Mlpath&”rar.exe x -t -o+ -p- ”

cmd=rarcomm&ywj&” “&ylj

RetCode = Shell.Run(cmd,1, True)

%>

就是用Server.CreateObject(“WScript.Shell”)来执行CMD.EXE来运行RAR.EXE文件来解压RAR文件的。

用ASP实现简单的防盗链

FDS — Thu, 05 Mar 2009 02:22:47 +0000

是不是老有人盗用你的资源，自己辛苦搞的东西就被被人白白的盗用了。给你支个简单的防盗链方法，也许非常有用哦。主要实现方式是：判断来源地址是不是你的地址，如果是的话，给下载，如果不是，给出禁止提示！以下是简单代码部分，参考下吧。

<%
http=Request.ServerVariables(“HTTP_REFERER”)
http2=Cstr(Request.ServerVariables(“SERVER_NAME”))
if mid(http,8,len(http2))<>http2 then
response.write “本站禁止从外部站点下载！”
else
response.redirect “download.doc” ‘download.doc为下载文件名
end if
%>

用ASP把汉字转换成拼音的函数

FDS — Thu, 05 Mar 2009 02:06:17 +0000

中国人都习惯于用拼音，常常把在SEO的时候，把URL的行字转化成拼音，有利于搜索引擎的识别，获的好的排名。这里分享一个用ASP把汉字转换成拼音的函数。希望各位看客喜欢！

<%
Set d = CreateObject(“Scripting.Dictionary”)
d.add ”a”,-20319
d.add ”ai”,-20317
d.add ”an”,-20304
d.add ”ang”,-20295
d.add ”ao”,-20292
d.add ”ba”,-20283
d.add ”bai”,-20265
d.add ”ban”,-20257
d.add ”bang”,-20242
d.add ”bao”,-20230
d.add ”bei”,-20051
d.add ”ben”,-20036
d.add ”beng”,-20032
d.add ”bi”,-20026
d.add ”bian”,-20002
d.add ”biao”,-19990
d.add ”bie”,-19986
d.add ”bin”,-19982
d.add ”bing”,-19976
d.add ”bo”,-19805
d.add ”bu”,-19784
d.add ”ca”,-19775
d.add ”cai”,-19774
d.add ”can”,-19763
d.add ”cang”,-19756
d.add ”cao”,-19751
d.add ”ce”,-19746
d.add ”ceng”,-19741
d.add ”cha”,-19739
d.add ”chai”,-19728
d.add ”chan”,-19725
d.add ”chang”,-19715
d.add ”chao”,-19540
d.add ”che”,-19531
d.add ”chen”,-19525
d.add ”cheng”,-19515
d.add ”chi”,-19500
d.add ”chong”,-19484
d.add ”chou”,-19479
d.add ”chu”,-19467
d.add ”chuai”,-19289
d.add ”chuan”,-19288
d.add ”chuang”,-19281
d.add ”chui”,-19275
d.add ”chun”,-19270
d.add ”chuo”,-19263
d.add ”ci”,-19261
d.add ”cong”,-19249
d.add ”cou”,-19243
d.add ”cu”,-19242
d.add ”cuan”,-19238
d.add ”cui”,-19235
d.add ”cun”,-19227
d.add ”cuo”,-19224
d.add ”da”,-19218
d.add ”dai”,-19212
d.add ”dan”,-19038
d.add ”dang”,-19023
d.add ”dao”,-19018
d.add ”de”,-19006
d.add ”deng”,-19003
d.add ”di”,-18996
d.add ”dian”,-18977
d.add ”diao”,-18961
d.add ”die”,-18952
d.add ”ding”,-18783
d.add ”diu”,-18774
d.add ”dong”,-18773
d.add ”dou”,-18763
d.add ”du”,-18756
d.add ”duan”,-18741
d.add ”dui”,-18735
d.add ”dun”,-18731
d.add ”duo”,-18722
d.add ”e”,-18710
d.add ”en”,-18697
d.add ”er”,-18696
d.add ”fa”,-18526
d.add ”fan”,-18518
d.add ”fang”,-18501
d.add ”fei”,-18490
d.add ”fen”,-18478
d.add ”feng”,-18463
d.add ”fo”,-18448
d.add ”fou”,-18447
d.add ”fu”,-18446
d.add ”ga”,-18239
d.add ”gai”,-18237
d.add ”gan”,-18231
d.add ”gang”,-18220
d.add ”gao”,-18211
d.add ”ge”,-18201
d.add ”gei”,-18184
d.add ”gen”,-18183
d.add ”geng”,-18181
d.add ”gong”,-18012
d.add ”gou”,-17997
d.add ”gu”,-17988
d.add ”gua”,-17970
d.add ”guai”,-17964
d.add ”guan”,-17961
d.add ”guang”,-17950
d.add ”gui”,-17947
d.add ”gun”,-17931
d.add ”guo”,-17928
d.add ”ha”,-17922
d.add ”hai”,-17759
d.add ”han”,-17752
d.add ”hang”,-17733
d.add ”hao”,-17730
d.add ”he”,-17721
d.add ”hei”,-17703
d.add ”hen”,-17701
d.add ”heng”,-17697
d.add ”hong”,-17692
d.add ”hou”,-17683
d.add ”hu”,-17676
d.add ”hua”,-17496
d.add ”huai”,-17487
d.add ”huan”,-17482
d.add ”huang”,-17468
d.add ”hui”,-17454
d.add ”hun”,-17433
d.add ”huo”,-17427
d.add ”ji”,-17417
d.add ”jia”,-17202
d.add ”jian”,-17185
d.add ”jiang”,-16983
d.add ”jiao”,-16970
d.add ”jie”,-16942
d.add ”jin”,-16915
d.add ”jing”,-16733
d.add ”jiong”,-16708
d.add ”jiu”,-16706
d.add ”ju”,-16689
d.add ”juan”,-16664
d.add ”jue”,-16657
d.add ”jun”,-16647
d.add ”ka”,-16474
d.add ”kai”,-16470
d.add ”kan”,-16465
d.add ”kang”,-16459
d.add ”kao”,-16452
d.add ”ke”,-16448
d.add ”ken”,-16433
d.add ”keng”,-16429
d.add ”kong”,-16427
d.add ”kou”,-16423
d.add ”ku”,-16419
d.add ”kua”,-16412
d.add ”kuai”,-16407
d.add ”kuan”,-16403
d.add ”kuang”,-16401
d.add ”kui”,-16393
d.add ”kun”,-16220
d.add ”kuo”,-16216
d.add ”la”,-16212
d.add ”lai”,-16205
d.add ”lan”,-16202
d.add ”lang”,-16187
d.add ”lao”,-16180
d.add ”le”,-16171
d.add ”lei”,-16169
d.add ”leng”,-16158
d.add ”li”,-16155
d.add ”lia”,-15959
d.add ”lian”,-15958
d.add ”liang”,-15944
d.add ”liao”,-15933
d.add ”lie”,-15920
d.add ”lin”,-15915
d.add ”ling”,-15903
d.add ”liu”,-15889
d.add ”long”,-15878
d.add ”lou”,-15707
d.add ”lu”,-15701
d.add ”lv”,-15681
d.add ”luan”,-15667
d.add ”lue”,-15661
d.add ”lun”,-15659
d.add ”luo”,-15652
d.add ”ma”,-15640
d.add ”mai”,-15631
d.add ”man”,-15625
d.add ”mang”,-15454
d.add ”mao”,-15448
d.add ”me”,-15436
d.add ”mei”,-15435
d.add ”men”,-15419
d.add ”meng”,-15416
d.add ”mi”,-15408
d.add ”mian”,-15394
d.add ”miao”,-15385
d.add ”mie”,-15377
d.add ”min”,-15375
d.add ”ming”,-15369
d.add ”miu”,-15363
d.add ”mo”,-15362
d.add ”mou”,-15183
d.add ”mu”,-15180
d.add ”na”,-15165
d.add ”nai”,-15158
d.add ”nan”,-15153
d.add ”nang”,-15150
d.add ”nao”,-15149
d.add ”ne”,-15144
d.add ”nei”,-15143
d.add ”nen”,-15141
d.add ”neng”,-15140
d.add ”ni”,-15139
d.add ”nian”,-15128
d.add ”niang”,-15121
d.add ”niao”,-15119
d.add ”nie”,-15117
d.add ”nin”,-15110
d.add ”ning”,-15109
d.add ”niu”,-14941
d.add ”nong”,-14937
d.add ”nu”,-14933
d.add ”nv”,-14930
d.add ”nuan”,-14929
d.add ”nue”,-14928
d.add ”nuo”,-14926
d.add ”o”,-14922
d.add ”ou”,-14921
d.add ”pa”,-14914
d.add ”pai”,-14908
d.add ”pan”,-14902
d.add ”pang”,-14894
d.add ”pao”,-14889
d.add ”pei”,-14882
d.add ”pen”,-14873
d.add ”peng”,-14871
d.add ”pi”,-14857
d.add ”pian”,-14678
d.add ”piao”,-14674
d.add ”pie”,-14670
d.add ”pin”,-14668
d.add ”ping”,-14663
d.add ”po”,-14654
d.add ”pu”,-14645
d.add ”qi”,-14630
d.add ”qia”,-14594
d.add ”qian”,-14429
d.add ”qiang”,-14407
d.add ”qiao”,-14399
d.add ”qie”,-14384
d.add ”qin”,-14379
d.add ”qing”,-14368
d.add ”qiong”,-14355
d.add ”qiu”,-14353
d.add ”qu”,-14345
d.add ”quan”,-14170
d.add ”que”,-14159
d.add ”qun”,-14151
d.add ”ran”,-14149
d.add ”rang”,-14145
d.add ”rao”,-14140
d.add ”re”,-14137
d.add ”ren”,-14135
d.add ”reng”,-14125
d.add ”ri”,-14123
d.add ”rong”,-14122
d.add ”rou”,-14112
d.add ”ru”,-14109
d.add ”ruan”,-14099
d.add ”rui”,-14097
d.add ”run”,-14094
d.add ”ruo”,-14092
d.add ”sa”,-14090
d.add ”sai”,-14087
d.add ”san”,-14083
d.add ”sang”,-13917
d.add ”sao”,-13914
d.add ”se”,-13910
d.add ”sen”,-13907
d.add ”seng”,-13906
d.add ”sha”,-13905
d.add ”shai”,-13896
d.add ”shan”,-13894
d.add ”shang”,-13878
d.add ”shao”,-13870
d.add ”she”,-13859
d.add ”shen”,-13847
d.add ”sheng”,-13831
d.add ”shi”,-13658
d.add ”shou”,-13611
d.add ”shu”,-13601
d.add ”shua”,-13406
d.add ”shuai”,-13404
d.add ”shuan”,-13400
d.add ”shuang”,-13398
d.add ”shui”,-13395
d.add ”shun”,-13391
d.add ”shuo”,-13387
d.add ”si”,-13383
d.add ”song”,-13367
d.add ”sou”,-13359
d.add ”su”,-13356
d.add ”suan”,-13343
d.add ”sui”,-13340
d.add ”sun”,-13329
d.add ”suo”,-13326
d.add ”ta”,-13318
d.add ”tai”,-13147
d.add ”tan”,-13138
d.add ”tang”,-13120
d.add ”tao”,-13107
d.add ”te”,-13096
d.add ”teng”,-13095
d.add ”ti”,-13091
d.add ”tian”,-13076
d.add ”tiao”,-13068
d.add ”tie”,-13063
d.add ”ting”,-13060
d.add ”tong”,-12888
d.add ”tou”,-12875
d.add ”tu”,-12871
d.add ”tuan”,-12860
d.add ”tui”,-12858
d.add ”tun”,-12852
d.add ”tuo”,-12849
d.add ”wa”,-12838
d.add ”wai”,-12831
d.add ”wan”,-12829
d.add ”wang”,-12812
d.add ”wei”,-12802
d.add ”wen”,-12607
d.add ”weng”,-12597
d.add ”wo”,-12594
d.add ”wu”,-12585
d.add ”xi”,-12556
d.add ”xia”,-12359
d.add ”xian”,-12346
d.add ”xiang”,-12320
d.add ”xiao”,-12300
d.add ”xie”,-12120
d.add ”xin”,-12099
d.add ”xing”,-12089
d.add ”xiong”,-12074
d.add ”xiu”,-12067
d.add ”xu”,-12058
d.add ”xuan”,-12039
d.add ”xue”,-11867
d.add ”xun”,-11861
d.add ”ya”,-11847
d.add ”yan”,-11831
d.add ”yang”,-11798
d.add ”yao”,-11781
d.add ”ye”,-11604
d.add ”yi”,-11589
d.add ”yin”,-11536
d.add ”ying”,-11358
d.add ”yo”,-11340
d.add ”yong”,-11339
d.add ”you”,-11324
d.add ”yu”,-11303
d.add ”yuan”,-11097
d.add ”yue”,-11077
d.add ”yun”,-11067
d.add ”za”,-11055
d.add ”zai”,-11052
d.add ”zan”,-11045
d.add ”zang”,-11041
d.add ”zao”,-11038
d.add ”ze”,-11024
d.add ”zei”,-11020
d.add ”zen”,-11019
d.add ”zeng”,-11018
d.add ”zha”,-11014
d.add ”zhai”,-10838
d.add ”zhan”,-10832
d.add ”zhang”,-10815
d.add ”zhao”,-10800
d.add ”zhe”,-10790
d.add ”zhen”,-10780
d.add ”zheng”,-10764
d.add ”zhi”,-10587
d.add ”zhong”,-10544
d.add ”zhou”,-10533
d.add ”zhu”,-10519
d.add ”zhua”,-10331
d.add ”zhuai”,-10329
d.add ”zhuan”,-10328
d.add ”zhuang”,-10322
d.add ”zhui”,-10315
d.add ”zhun”,-10309
d.add ”zhuo”,-10307
d.add ”zi”,-10296
d.add ”zong”,-10281
d.add ”zou”,-10274
d.add ”zu”,-10270
d.add ”zuan”,-10262
d.add ”zui”,-10260
d.add ”zun”,-10256
d.add ”zuo”,-10254

function g(num)
if num>0 and num<160 then
g=chr(num)
else
if num<-20319 or num>-10247 then
g=”"
else
a=d.Items
b=d.keys
for i=d.count-1 to 0 step -1
if a(i)<=num then exit for
next
g=b(i)
end if
end if
end function
function c(str)
c=”"
for i=1 to len(str)
c=c&g(asc(mid(str,i,1)))
next
end function
response.write c(request(“hz”))
%>

请在此处输入中文：

用FSO组件对文件操作（三）

FDS — Fri, 20 Feb 2009 02:14:52 +0000

一，fso.GetFile
提取文件相应的 File 对象

1，getfile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)

s = ”文件名称：” & f2.name & ”
”
s = s & ”文件短路径名：” & f2.shortPath & ”
”
s = s & ”文件物理地址：” & f2.Path & ”
”
s = s & ”文件属性：” & f2.Attributes & ”
”
s = s & ”文件大小： ” & f2.size & ”
”
s = s & ”文件类型： ” & f2.type & ”
”
s = s & ”文件创建时间： ” & f2.DateCreated & ”
”
s = s & ”最近访问时间: ” & f2.DateLastAccessed & ”
”
s = s & ”最近修改时间: ” & f2.DateLastModified
response.write(s)
%>

其效果正如右键某文件，看到的具体属性信息。
其中Attributes返回的数值“32”表示：（Archive）上次备份后已更改的文件。可读写。

其它值附录如下：

Normal        0      普通文件。               没有设置任何属性。
ReadOnly      1      只读文件。               可读写。
Hidden        2      隐藏文件。               可读写。
System        4      系统文件。               可读写。
Directory     16     文件夹或目录。           只读。
Archive       32     上次备份后已更改的文件。可读写。
Alias         1024   链接或快捷方式。         只读。
Compressed    2048   压缩文件。               只读。

二，file.move
作用将指定的文件或文件夹从某位置移动到另一位置。其实该方法仍然属于fso.GetFile后的一个应用。

2，movefile.asp

简单的剪切粘贴的功能实现。

三，File.Copy
同样属于fso.GetFile后的一个应用。就只是单纯地拷贝文件到某位置。

3，copyfile.asp

和本ASP页面同在目录下的cnbruce.txt文件依然存在。

四，file.Delete
很显然，就是直接删除文件了。

4，delfile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.move ”d:\”
Set f3 = fso.GetFile(“d:\cnbruce.txt”)
f3.delete
%>
查看下是没有该文件的

用FSO组件对文件操作（二）

FDS — Fri, 20 Feb 2009 02:13:37 +0000

学会了FSO提取文件值，也学会了将信息输入到文件中，那下面就再来应用应用下。

不知道你有没有这样的习惯：看到一个文件，不自觉的右键选择用记事本打开。呵呵，几乎没有哪个文件是不可以的。所以现在，可以默认所有文件都是文本，只是后缀名不同而已；那么也就是说，现在可以提取任一文件的内容信息。OK，就来想象一下：

1，提取一个文件的路径（采用file按钮进行查找定位）
2，将该路径文件打开，并读取所有行
3，显示读取的信息

一、viewcode.asp

<%
Function ShowCode(filename)
    Set fso = Server.CreateObject(“Scripting.FileSystemObject”)
    Set cnrs = fso.OpenTextFile(filename, 1)
    While Not cnrs.AtEndOfStream
        rsline = cnrs.ReadLine
        rsline = server.HTMLEncode(rsline)
        Response.Write(rsline & ”
”)
    Wend
end Function
%>

输入文件名

<%
file=request.form(“filename”)
response.write (file & ”源程序如下

”)
If trim(file)<> ”" then
Call ShowCode(file)
End If
%>

以上程序调试时，可以选择html，asp页面，也可以打开任一应用程序等。

定义的ShowCode函数，主要作用是打开、读取并显示文件中所有信息内容。注意添加了server.HTMLEncode(rsline)，针对含有标准HTML代码的文件。

显示文件中所有行即用一条件循环进行遍历显示了。
While Not cnrs.AtEndOfStream
…
Wend

接着，下面的这个例题具体就涉及open方法的问题了，还记得？正常情况之下打开文件是采用fso.OpenTextFile(“c:\testfile.txt”,1)，参数1的作用是：以只读模式打开文件。不能对此文件进行写操作。如果现在已经存在一文件，需要进行追加写入，则该怎么办呢？简单，参数为8即可。

PS：这里还有一种读取的方法。

<%
whichfile=server.mappath(“test.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadAll
rline=replace(Server.HtmlEncode(rline),Chr(13),”
”)
Response.Write rline
txt.Close
%>

这有什么用呢？呵呵，亚玛逊的网络故事接龙就是如此：能接龙就需要首先要显示原有故事，然后自己添加故事写入文件。这其中的写入文件最讲究的就是追加写入了。所以下面就可以实现。

二、story.asp

<%
If not request.Form(“NextLine”)=”" then
  Set fso=Server.CreateObject(“Scripting.FileSystemobject”)
  textfile1=Server.MapPath(“story.txt”)
  set cnrs=fso.OpenTextFile(textfile1,8)
  cnrs.WriteLine(Request.Form(“NextLine”))
  cnrs.Close
end if
%>
故事如下：
<%
Set fso=Server.CreateObject(“Scripting.FileSystemObject”)
textfile1=Server.MapPath(“story.txt”)
set cnrs=fso.OpenTextFile(textfile1,1)
while not cnrs.AtEndOfStream
  Response.Write ” ” & cnrs.ReadLine
wend
cnrs.close
%>

请输入这个故事的新行:

整个就是一很简单的读取信息和加入信息的混合利用，相信有了前面的基础看懂应该不成问题。当然还缺少个story.txt文件，里面写好故事开头就可以了。

再下面，继续来，该侧重点主要就是练习一些函数的使用技巧了。

1，instr函数：返回某字符串在另一字符串中第一次出现的位置。
比如现在查找字母“A”在字符串“A110B121C119D1861”中第一次出现的位置，则可以
<script language=vbs>my_string = “A110B121C119D1861″a_num = instr(my_string,”A”)alert(a_num)</script>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

同样字母“B”的位置也就能确定。现在就来最关键的：提前字母“A”和“B”中间的值“110”。
还记得mid函数吗？mid函数的主要作用是：从字符串中返回指定数目的字符。
比如现在的“110”则应该是从字符串的第2位取得3个单位的值。
<script language=vbs>my_string = “A110B121C119D1861″a_value = mid(my_string,2,3)alert(a_value)</script>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

但设想一下：如果不是“110”，而是“1100”，那是不是要提取4位……这样就显出程序的不够完美。
所以继续思考：所提取的值，永远是在字母“A”后面的，且值也永远是在字母“A”和“B”之间的，那么只要分别提取出“A”、“B”的位置，则中间数值的起始位应是字母“A”位+1，中间数值的长度应是字母“B”位-字母“A”位-1
那么现在就可以让程序完美起来：

OK，那么现在你也就完全可以把字母“B”、“C”、“D”后面的值一一提取了。
当然需要注意的就是“D”后面有几位怎么取呢？采用字符串总长度-字母D所在位置数就可以了。

用到现在，你也许确实学到了不少，但也许会提出疑问：这个放在FSO文件操作里有什么作用呢？
那下面才是我们的正题：用FSO进行简单的文本投票。

投票页面首要的就是显示各类项目的投票数，并相应赋于某个变量。然后判断本次投票的选相，相对应地将投票数值加1，完毕后再将所有值继续写入文本。

1，一个HTML表单页website.html
以做投票点击的平台。
<form action=”result.asp” method=”post”><input type=”radio” name=”website” value=”A” checked> cnbruce.com<br><input type=”radio” name=”website” value=”B”> blueidea.com<br><input type=”radio” name=”website” value=”C”> it365cn.com<br><input type=”radio” name=”website” value=”D”> 5d.cn<br><input type=”submit”><input type=”reset”>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

2，接受表单页值的result.asp

<%
whichfile=server.mappath(“site.txt”)
set fso=createobject(“Scripting.FileSystemObject”)
set thisfile=fso.opentextfile(whichfile)
my_string=thisfile.readline

a_num = instr(my_string,”A”)
b_num = instr(my_string,”B”)
c_num = instr(my_string,”C”)
d_num = instr(my_string,”D”)
total_num = len(my_string)

a_value = mid(my_string,a_num+1,b_num-a_num-1)
b_value = mid(my_string,b_num+1,c_num-b_num-1)
c_value = mid(my_string,c_num+1,d_num-c_num-1)
d_value = mid(my_string,d_num+1,total_num-d_num)

select case request.form(“website”)
    case ”A”: avalue=a_value+1
    case ”B”: bvalue=b_value+1
    case ”C”: cvalue=c_value+1
    case ”D”: dvalue=d_value+1
end select

mynew_string=”A” & cstr(a_value) & ”B” & cstr(b_value) & ”C” & cstr(c_value) & ”D” & cstr(d_value)
set newfile=fso.createtextfile(whichfile)
newfile.writeLine(mynew_string)
newfile.close
set fso=nothing
%>
当前投票：

cnbruce.com:<%=a_value%>

blueidea.com:<%=b_value%>

it356cn.com:<%=c_value%>

5d.cn:<%=d_value%>

返回继续

有了上面函数的基础，看这个应该不是很难的

3，最后不要忘了的记数文件site.txt

用FSO组件对文件操作（一）

FDS — Fri, 20 Feb 2009 02:10:51 +0000

FSO中除了可以对驱动器、文件夹的操作以外，功能最强大的就是对文件的操作了。它可以用来记数、内容管理、搜索还可生成动态HTML页面等等。

一、fso.OpenTextFile
无需多说，fso.OpenTextFile就是打开某个文件了，一般情况之下是打开的txt文本文件。所以首先我们先建立一个txt文件，然后通过FSO来读取其中的内容。

1，info.txt

name:cnbruce
sex:male

建立了该文件，下面再做个ASP页面，当然最好两个文件是在同一目录下。

2，opentxt.asp

<%
whichfile=server.mappath(“info.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadLine
rline = rline & ”
” & txt.ReadLine
Response.Write rline
txt.Close
%>

需要注意：无论是通过FSO打开驱动器、打开文件夹、打开文件，以及以后要接触到的打开数据库，都只能是打开绝对物理路径地址。但一般情况是上传到空间服务商那,不能很直接地了解到自己文件的所在位置，所以强烈推荐使用server.mappath方法：平台移植性强，适用性强。

CreateObject(“Scripting.FileSystemObject”)建立了FSO组件的连接，fso.OpenTextFile(whichfile,1)打开了info.txt该文件。参数“1”表示“ForReading：以只读方式打开文件。不能写这个文件。”，其他还有参数“2”表示“ForWriting：以写方式打开文件”，参数“8”表示“ForAppending：打开文件并从文件末尾开始写”。

打开了该文件，接下来是不是要显示文件中的内容？那就通过txt.ReadLine方法读取文本中的一整行，如果需要继续读取下一行，则继续使用txt.ReadLine方法。当然初此还有其它的读取方法，比如txt.Read(7)读取指定数量的字符，txt.ReadAll返回文本中的全部内容。

二、fso.CreateTextFile
如fso.CreateFolder建立文件夹般，fso.CreateTextFile则是建立文件了。

3，creattxt.asp

<%
whichfile=server.mappath(“info.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set MyFile = fso.CreateTextFile(whichfile,True)
MyFile.WriteLine(“My Name Is CN-Bruce”)
MyFile.WriteLine(“My Sex Is Male”)
MyFile.Close
%>
查看内容

本次建立的文件是上一info.txt文件，fso.CreateTextFile(whichfile,True)其中的参数true即表示能覆盖已有文件。建立后需要向里面添加数据就采用“MyFile.WriteLine”了。

那现在就可以建立一个简单的文本记数器了，还记得以前的记数？：1，通过application、session、global.asa进行记数；2，通过Counter组件进行记数。但两者都有通病，就是不能保存，如果服务器重新启动后，是不是所有记数全部清空了呢：）那现在就可以使用文本来记录数据了，即使重启，下次提取的也还是该文件。

试验：文本计数器

首先建立一记数的文本文件counter.txt，设定初始值为“1”

4，counter.txt

接着是记数的ASP文件，功能是显示文本的记数，本做加1的记数，然后还要将新的记数写入文本文件。

5，txtcount.asp

<%
whichfile=server.mappath(“counter.txt”)
‘打开文件并将其值读取，最后关闭连接释放资源
set fso=createobject(“Scripting.FileSystemObject”)
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
‘页面显示记数内容并做加1运算
response.write ”您是本页的第”&visitors&”位访客”
visitors=visitors+1
‘将新的数值添加写入到文本，最后关闭所有连接释放资源
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
%>

那根据这个可以继续地扩展内容：比如让记数用数字图片显示。当然前提就是你需要0-9的10张记数图片，并将此图片放于img文件夹中。
下为一增强的txtcount.asp内容代码

<%
whichfile=server.mappath(“counter.txt”)set fso=createobject(“Scripting.FileSystemObject”)
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
CountLen=len(visitors)
response.write ”您是本页的第”

for i=1 to 6-countLen ’表示最大值999999
response.write ””
next
for i=1 to countlen
response.write ””
next
response.write ”位访客”

visitors=visitors+1
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
%>

本程序中采用的是mid函数，该函数的作用是返回某字符串中从第几位字符开始的几个字符。格式即为：Mid(string,start,length)
<script language=vbs>cn_string= “cnbruce love cnrose”cn_start = 9cn_length = 4alert (mid(cn_string,cn_start,cn_length))</script>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

数据库用convert进行日期格式转换

FDS — Sat, 10 Jan 2009 06:57:54 +0000

如何在数据库中转换各种日期格式呢？只要在convert中指定日期格式的代号就够了,非常简单方便

如:
select convert(char(20),getdate(),101)
select emp_id,convert(char(20),hire_dt,101) from employee

以下是格式代号提供出来

日期格式          代号
——————– ———–
04/05/2000          101

——————– ———–
2000.04.05          102

——————– ———–
05/04/2000          103

——————– ———–
05.04.2000          104

——————– ———–
05-04-2000          105

——————– ———–
05 Apr 2000         106

——————– ———–
Apr 05, 2000         107

——————– ———–
11:33:24           108

——————– ———–
Apr 5 2000 11:33:24     109

——————– ———–
04-05-2000          110

——————– ———–
2000/04/05          111

——————– ———–
20000405           112

关于ASP缓存技术

FDS — Sat, 10 Jan 2009 06:50:57 +0000

使用ASP中的缓存技术可以很大程度上提高你的网站性能，其实这些实现方法是非常的简单，它将说明如何在服务器上的缓存是如何工作以及你如何使用一种被称为断开连接的ADO连接技术。
在介绍这些技术之前先说明一下到底什么是ASP的缓存技术。
所谓缓存其实就是在内存中开辟一个用来保存数据的空间，使用缓存你就不用频繁的访问你保存在硬盘上的数据了，灵活的使用缓存你就免去了心疼的看着可怜的硬盘饱受读数据时的折磨了。当你一旦执行了一个查询动作，并且将查询结果放入缓存中后，你就可以很迅速的重复访问这些数据了。而如果你不把数据放入缓存的话，当你再次执行这个查询时，服务器会将进程耗费在从数据库中获取并排序上了。
当数据保存在缓存中时，再次查询时耗费的时间主要是在显示数据的时间上了。也就是说，我们不应该把经常需要改变的数据放到服务端的缓存中，我们应该把改变少，但是又需要经常访问的数据放到缓存中。

现在我们先讨论ASP在服务端使用缓存的技术，过会再讨论ASP如何在客户端使用
缓存的技术。
当你有大量的数据（静态的，就是说变动比较少的）需要显示给客户端时，你就可以考虑使用服务端的缓存技术了。这种技术尤其适用于那些显示风格一致性比较强的网站（呵呵，对于非主流的网站可不好用的说。）
其实实现方法特别的简单，大家只要看看下面这个简单的例子就明白了。
这是一个用来显示书籍分类的例子程序
DisplayBooks.ASP文件：

< %@ LANGUAGE=JavaScript % >
< html >
< body >
< form method=post >
书籍分类； < %= getBooksListBox() % >
< p>
< input type=submit >

< %
function getBooksListBox()
{
BooksListBox = Application(“BooksListBox”)
if (BooksListBox != null) return BooksListBox;
crlf = String.fromCharCode(13, 10)
BooksListBox = “< select name=Books>” + crlf;
SQL = “SELECT * FROM Books ORDER BY Name”;
cnnBooks = Server.CreateObject(“ADODB.Connection”);
cnnBooks.Open(“Books”, “Admin”,”");
rstBooks = cnnBooks.Execute(SQL);
fldBookName = rstBooks(“BookName”);
while (!rstBooks.EOF){
BooksListBox = BooksListBox + ” < option>” +
fldBookName + “” + crlf;
rstBooks.MoveNext();
}
BooksListBox = BooksListBox + “”
Application(“BooksListBox”) = BooksListBox
return BooksListBox;
}
% >
很简单把，其实就是用了很简单的Application技术，而且就一句话的不同：
Application(“BooksListBox”) = BooksListBox
你可以验证一下你就会发现服务器上的请求数量会降低不少的。这种情况尤其适合与那些更新不是很频繁的网站内容，例如你一天（或则很长时间）只更新一次。

下面再讨论一种客户端的缓存技术这种技术也叫断开连接的ADO连接技术（翻译水平太次，听上去怎么这么别扭）。这种技术主要使用在用来保存用户个人信息，例如用户的密码，代号等等上面。它主要使用了ADO的一些属性。同时也回答了一些网友曾经提到过的能否在Applocation中使用ADO对象的问题。解释不清楚，下面让代码来发言：
文件GLOBAL.ASA：
< !–METADATA TYPE=”TypeLib” FILE=”C:\Program Files\Common Files\system\ado\msado15.dll”– >
< SCRIPT LANGUAGE=VBScript RUNAT=”Server” >
Sub Application_OnStart
SQL = “SELECT UserName, Password FROM UserInfo”
cnnUsers = “DSN=User”
Set rsUsers = Server.CreateObject(“ADODB.Recordset”)
‘注意下面这两句话，就是用来实现那个叫可用的断开连接的ADO技术
rsCustomers.CursorLocation = adUseClient
rsCustomers.Open SQL, cnnAdvWorks, adOpenStatic, AdLockReadOnly
‘ 断开RecordSet的和数据库的连接
rsCustomers.ActiveConnection = Nothing
Set Application(“rsCustomers”) = rsCustomers
End Sub

文件Users.ASP
< %
‘Clone方法使得每个用户拥有自己的一个RecordSet集合
Set yourUsers = Application(“rsUsers”).Clone
Set UserName = yourUsers(“UserName”)
Set Password = yourUsers(“Password”)
Do Until yourUsers.EOF
% >
用户姓名：< %= UserName % > 用户密码：< %= Password % >
< %
yourUsers.MoveNext
Loop
% >

（出处：热点网络）

用CDONTS发送邮件的ASP函数

FDS — Sat, 10 Jan 2009 06:39:13 +0000

一个用CDONTS发送邮件的ASP函数，看看实现方法。
<%
‘发送普通邮件
SendMail “admin@ny.com”, “iamchn@263.net”, “Normal Mail!”, “Please check the attatchment!”, 2, 0, “C:\Love.txt”

‘发送HTML邮件
Dim m_fso, m_tf
Dim m_strHTML

Set m_fso = Server.CreateObject(“SCRIPTING.FILESYSTEMOBJECT”)
Set m_tf = m_fso.OpenTextFile(“C:\Mail.htm”, 1)
m_strHTML = m_tf.ReadAll

‘Write m_strHTML
Set m_tf = Nothing
Set m_fso = Nothing

SendMail “admin@ny.com”, “iamchn@263.net”, “HTML Mail!”, m_strHTML, 2, 1, Null

‘参数说明
’strFrom : 发件人Email
’strTo : 收件人Email
’strSubject : 信件主题
’strBody : 信件正文
‘lngImportance : 信件重要性
‘ : 0 – 低重要性
‘ : 0 – 中等重要性（默认）
‘ : 0 – 高重要性
‘lngAType : 信件格式
‘ : 为1时将邮件正文作为HTML（此时可以发送HTML邮件）
’strAttach : 附件的路径
Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach)
Dim objMail

Set objMail = Server.CreateObject(“CDONTS.NEWMAIL”)
With objMail

.From = strFrom
.To = strTo
.Subject = strSubject
.Body = strBody
.Importance = lngImportance

If lngAType = 1 Then
.BodyFormat = 0
.MailFormat = 0
End If

If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then
.AttachFile strAttach
End If

.Send
End With
Set objMail = Nothing
End Sub
%>

ASP的CACHE技术

FDS — Mon, 05 Jan 2009 12:49:17 +0000

ASP中最好的办法是用编程实现定时刷新Cache，也就是说给Application中储存的设一个过期时间。当然，在ASP中Application对象没有这样一个ExpireTime属性。这需要用程序实现。

ASP：default.asp

<%@Language=VBScript%>
<%Option Explicit%>
<%Response.Buffer=True%>


        </span>ASP Cache演示<span class="blue">
        HTTP-EQUIV=“Content-Type” CONTENT=“text/html; charset=gb2312″>



每隔10秒刷新Cache：

    <%
    response.Flush
    GetHTMLStream
    response.Write
    HTMLStream
    %>

ASP：getcache.asp

<%
Const CACHE_DEFAULT_INTERVAL = 30 ‘每隔30秒刷新一次cache
Dim HTMLStream
Dim IsExpires
IsExpires = CacheExpires
Function CacheExpires
    Dim strLastUpdate
    Dim result strLastUpdate = Application(“LastUpdate”)
    If (strLastUpdate = “”) Or (CACHE_DEFAULT_INTERVAL < DateDiff(“s”, strLastUpdate, Now)) Then
        result = true
        SetLastUpdateTime
    Else
        result = false
    End If
    CacheExpires = result
End Function

Sub SetLastUpdateTime
    Application.Lock
    Application(“LastUpdate”) = CStr(now())
    Application.UnLock
End Sub

Sub GetHTMLStream
    If IsExpires Then
        UpdateHTMLStream
    End If
    HTMLStream=Application(“CACHE_HTMLStream”)
End Sub

Sub UpdateHTMLStream
    dim d
    d = FetchHTMLStream
    Application.Lock
    Application(“CACHE_HTMLStream”) = d
    Application.UnLock
End Sub

Function FetchHTMLStream
    Dim rs ,strSQL, strHTML
    Set rs = CreateObject(“ADODB.Recordset”)
    strSQL = “select categoryID , categoryname from categories”
    rs.Open strSQL, strConn,adOpenForwardOnly,adLockReadOnly
    strHTML = strHTML & “”
    rs.Close
    Set rs = Nothing
    FetchHTMLStream = strHTML
End Function
%>

ASP：conn.asp

<%
dim strConn
strConn = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind”
%>

ASP小技巧锦集

FDS — Mon, 05 Jan 2009 12:38:30 +0000

严格控制Session

可以将不需要Session的内容（比如帮助画面，访问者区域，等等）移动到关闭Session的独立ASP应用程序中。在基础页面上，可以给ASP一个指示，让它不需要使用Session。将下面的代码直接加入到ASP页面的头部：

<%@EnableSessionState=False%>

在Web服务器上缓存经常使用的数据

典型的情况是：ASP页面从后台存储中取回数据，然后以超文本标记语言（HTML）的形式形成结果。不管数据库的速度如何，从内存中取回数据要比从后台存储设备中快得多。从本地硬盘读取数据通常也非常快。所以，提高性能可以通过缓存服务器上的数据来实现，无论是将数据缓存在内存中，或者本地硬盘中。

缓存是经典的“空间换时间”的折中方式。如果缓存得恰当，就可以看到显著的性能提升。为了让缓存有效，必须保证缓存数据是经常要重用的，而且也是计算起来繁琐的。装满陈旧数据的缓存是对内存的浪费。

不经常改变的数据是缓存的较好对象，因为不需要随时考虑这些数据更新后的同步操作。组合框、参考表格、DHTML代码、扩展标记语言串、菜单以及站点配置变量（包括数据源名字，Internet协议地址IP以及Web路径）都是很好的缓存对象。注意：要缓存数据表达式而不是数据本身。如果一个ASP页面经常变化并且很费力去缓存（比如整个产品目录），就要考虑预产生HTML，而不是每次发生请求时再描述它。

在Application或Session对象中缓存经常使用的数据

ASP中的Application和Session对象是在内存中缓存数据的便利容器。你可以将数据赋值给Application和Session对象，这些数据在HTTP调用期间将一直保持在内存中。Session中的数据是为每一个用户服务的，Application中的数据是所有用户共享的。

何时需要在Application和Session中装入数据？通常，当应用程序启动或者会话开始时，数据就被装入了。为了在这时装入数据，在Application OnStart()或者Session OnStart()中分别添加适当的代码。这些函数位于文件Global.asa中，如果原来不存在，就添加上。也可以在数据首次需要的时候调入，在ASP页面中添加代码，检查数据是否存在，如果没有发现，就调入它。这里有一个例子，它代表了被称为“lazy evalution”的经典性能处理技术：直到需要，再去计算。

拷贝经常使用的数据到脚本变量中

在ASP中存取COM对象时，应该拷贝经常使用的对象数据到脚本变量中，这样就减少了对COM对象的方法调用。这些调用要比存取脚本变量相对来说费时费力。当存取Collection和Dictionary对象时，使用这项技巧也减少了昂贵的查找操作。

通常，如果要不止一次地存取对象数据，就应将数据放入脚本变量中，对象数据主要也就是Request变量（表单和查询字符串变量）。比如，站点要传递一个叫做UserID的查询字符串变量，假设它将在一个特殊页面被引用12次，那么不需要调用Request(“UserID”)12次，只要在ASP页面的头部分配给UserID一个变量，然后在页面中使用它，这样做就节省了11次COM方法的调用。

在任何可能时使用Server.Transfer，而不要用Response.Redirect

Response.Redirect告诉浏览器请求另一个不同的页面，这常常用于引导用户到登录页面或者出错处理页面。由于重定向强迫了一个新页面请求，结果是浏览器必须要与Web服务器循环2次，并且Web服务器必须处理一个额外的请求。Server.Transfer执行在同一服务器上的页面传输，这将避免额外的浏览器－Web服务器的数据循环，形成良好的系统性能，对于用户也有较好的响应时间。当然Server.Transfer只支持相对路径（即站内使用）。

asp的日期和时间函数介绍

FDS — Mon, 29 Dec 2008 01:25:41 +0000

通过asp的函数得到日期和时间，可以使用日期和时间函数来得到各种格式的日期和时间。

函数	语法	说明	示例
Now	Now()	取得系统当前的日期和时间	Dim MyVar MyVar = Now ‘MyVar 包含当前的日期和时间。
Date	Date()	取得系统当前的日期	Dim MyDate MyDate = Date ‘MyDate 包含当前系统日期。
Time	Time()	取得系统当前的时间	Dim MyTime MyTime = Time ‘返回当前系统时间。
Year	Year(Date)	取得给定日期的年份	Dim MyDate, MyYear MyDate = #October 19, 1962# ‘分派一日期。 MyYear = Year(MyDate) ‘MyYear 包含 1962。
Month	Month(Date)	取得给定日期的月份	Dim MyVar MyVar = Month(Now) ‘MyVar包含当前月对应的数字。
Day	Day(Date)	取得给定日期是几号	Dim MyDay MyDay = Day(“October 19, 1962″) ‘MyDay包含 19。
Hour	Hour(time)	取得给定时间是第几小时	Dim MyTime, MyHour MyTime = Now MyHour = Hour(MyTime) ‘MyHour 包含代表当前时间的数值。
Minute	Minute(time)	取得给定时间是第几分钟	Dim MyVar MyVar = Minute(Now)
Second	Second(time)	取得给守时间是第几秒	Dim MySec MySec = Second(Now) ‘MySec 包含代表当前秒的数字。
WeekDay	WeekDay(Date)	取得给定日期是星期几的整数，1表示星期日，2表示星期一，依此类推	Dim MyDate, MyWeekDay MyDate = #October 19, 1962# ‘分派日期 MyWeekDay = Weekday(MyDate) ‘MyWeekDay包含 6,MyDate 代表星期五
DateDiff	DateDiff(“Var”,Var1,Var2) Var:日期或时间间隔因子，有如下参数： yyyy 年 m月 d 日 ww星期 h小时 s秒Var1:第一个日期或时间 Var2:第二个日期或时间，比Var1晚	计算两个日期或时间的间隔	DateDiff(“d”,Date(),#1/1/2005#) ‘返回离2005元旦还有多少 DateDiff(“h”,Date(),#1/1/2005#) ‘返回离2005元旦还有多少小时 DateDiff(“d”,#1/1/2003#,#1/1/2005#) ‘返回两个日期之间的天数
DateAdd	DateDiff(“Var”,Var1,Var2) Var:日期或时间间隔因子： Var1:日期或时间间隔倍数 Var2:日期或时间的基准	对两个日期或时间作加法	如下示例将 95 年 1 月 31 日加上一个月：NewDate = DateAdd(“m”, 1, “31-Jan-95″)在这个示例中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。如果计算的日期是在公元 100 年之前，则会产生错误。
FormatDateTime	FormatDateTime(Date,vbShortDate)	转化为短日期格式	FromatDateTime(Date(),vbLongDate) “以长日期格式显示
	FormatDateTime(Date,vbLongDate)	转化为长日期格式
	FormatDateTime(Date,vbShortTime)	转化为短时间格式
	FormatDateTime(Date,vbLongTime)	转化为长时间格式

ASP生成静态html页面简单实例

FDS — Mon, 29 Dec 2008 01:21:21 +0000

为了SEO，静态化页面是一个重要的步骤，这里介绍一个ASP生成静态html页面简单实例，比较易懂，看以下代码，可以亲自试试看，让后自己在改变下。

createhtml.asp
<%
filename=”test.html”
if request(“body”)<>”" then
set fso = Server.CreateObject(“Scripting.FileSystemObject”)
set fout = fso.CreateTextFile(server.mappath(“”&filename&”"))
fout.write “标题(title):” & request.form(“title”) & “
”
fout.write “内容(body):” & request.form(“body”)
fout.close
set fout=nothing
set fso=nothing
end if
%>

然后在浏览器输入打开createhtml.asp这个页面，填写完毕后，就会生成test.html这个文件，里面的内容就是你刚才填写的。

共有[<%=rs.recordcount%>]条信息当前显示第 1～<%=rs.recordcount%>条
<% page_start=(pagecount-1)rs.pagesize if pagecount=1 then page_start=1 page_end=rs.pagesizepagecount if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%> 共有[<%=rs.recordcount%>]信息	<% if pagecount>5 and pagecount< rs.PageCount-5 and rs.pagecount>10 then qizu=pagecount-4 min=pagecount+5 response.write “首页 ” response.write “上一页 ” for ipage=qizu to min if ipage<>pagecount then response.write “”+cstr(ipage)+” ” else response.write “”&ipage&” “ end if next response.write “下一页 ” response.write “尾页” end if if rs.PageCount<11 then for ipage=1 to rs.PageCount if ipage<>pagecount then response.write “”+cstr(ipage)+” ” else response.write “”&ipage&” “ end if next end if if pagecount < 6 and rs.PageCount>10 then for ipage=1 to 10 if ipage<>pagecount then response.write “”+cstr(ipage)+” ” else response.write “”&ipage&” “ end if next response.write “尾页” end if if pagecount>rs.PageCount-6 and rs.PageCount>10 then response.write “首页 ” for ipage=rs.PageCount-9 to rs.PageCount if ipage<>pagecount then response.write “”+cstr(ipage)+” ” else response.write “”&ipage&” “ end if next end if %>	”>”>”>”>”> 转到第页