超精华的asp代码大全第1/2页(2)

日期：2020-05-13 栏目：程序人生浏览：次

现在已可以压缩有密码的数据库，代码如下，但是压缩之后的数据库密码就没有了！如何解决？

<% 
Const JET_3X = 4 

Function CompactDB(dbPath, boolIs97) 
Dim fso, Engine, strDBPath 
strDBPath = left(dbPath,instrrev(DBPath,"\")) 
Set fso = CreateObject("Scripting.FileSystemObject") 

If fso.FileExists(dbPath) Then 
Set Engine = CreateObject("JRO.JetEngine") 

If boolIs97 = "True" Then 
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _ 
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & strDBPath & "temp.mdb;" _ 
& "Jet OLEDB:Engine Type=" & JET_3X 
Else 
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & dbpath, _ 
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb" 
End If 

fso.CopyFile strDBPath & "temp.mdb",dbpath 
fso.DeleteFile(strDBPath & "temp.mdb") 
Set fso = nothing 
Set Engine = nothing 

CompactDB = "你的数据库, " & dbpath & ", 已经压缩成功!" & vbCrLf 

Else 
CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf 
End If 

End Function 
%>

asp编程有用的例子（一）

1.如何用Asp判断你的网站的虚拟物理路径
答：使用Mappath方法

The Physical path to this virtual website is:


< %= Server.MapPath("\")% >

2.我如何知道使用者所用的浏览器？

答：使用the Request object方法

strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") < > 0 Then
　　Response.redirect("ForMSIEOnly.htm")
Else
　　Response.redirect("ForAll.htm")
End If

3.如何计算每天的平均反复访问人数
答：解决方法

< % startdate=DateDiff("d",Now,"01/01/1990")
if strdate< 0 then startdate=startdate*-1
avgvpd=Int((usercnt)/startdate) % >
显示结果
< % response.write(avgvpd) % >
that is it.this page have been viewed since November 10,1998

4.如何显示随机图象
< % dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)

超精华的asp代码大全第1/2页(2)

相关推荐