deletefile

超精华的asp代码⼤全

显⽰页⾯加载时间

重复域中的斑马线

显⽰字符串前20个字符并在结尾处添加“……”

如果动态图⽚为空，使⽤默认图⽚代替

如果数据为空，使⽤默认提⽰信息代替

显⽰页⾯加载时间

页⾯顶部添加下⾯的代码：

<%

DimstrStartTime

DimstrEndTime

strStartTime=Timer'开始时间

%>

页⾯(同⼀页)的末尾添加：

<%

'加载完毕的时间

strEndTime=Timer

("页⾯加载时间:")

ormatNumber(strEndTime-strStartTime,4)

("秒.")

%>

重复域中的斑马线

<%

'此模块放置在重复域之外

DimRecordCounter

Recordcounter=0

%>

<%

'将重复域中第⼀个标签的CLASS属性代码⽤本模块替换

'本模块基于CSS来改变单元格背景⾊，你也可以直接设置背景⾊来实现斑马线

RecordCounter=Recordcounter+1

IfRecordCounterMod2=1Then

"altRow1"

Else

"altRow2"

EndIf

%>

显⽰字符串前20个字符并在结尾处添加“……”

<%

DimCutShort

CutShort=("YourField").Value

EFT(CutShort,20)&"........"

%>

如果动态图⽚为空，⽤默认图⽚代替

<%

DimPicShow

PicShow=("shMainPix").Value

IFPicShow<>""THEN%>

">

<%ELSE%>

<%EndIf%>

如果数据为空，⽤默认提⽰信息代替。

<%

DimstrShowHide

strShowHide=("YourDataField").Value

IFstShowHide<>""THEN%>

数据为空

<%ENDIF%>

纯编码实现Access数据库的建⽴或压缩

<%

'

###以下是⼀个类⽂件，下⾯的注解是调⽤类的⽅法

'#注意：如果系统不⽀持建⽴stemObject对象，那么数据库压缩功能将⽆法使⽤

'#Access数据库类

'#CreateDbFile建⽴⼀个Access数据库⽂件

'#CompactDatabase压缩⼀个Access数据库⽂件

'#建⽴对象⽅法:

'#Seta=NewDatabaseTools

'#by(萧寒雪)s.f.

'

#ClassDatabaseTools

PublicfunctionCreateDBfile(byValdbFileName,byValDbVer,byValSavePath)

'建⽴数据库⽂件

'IfDbVeris0ThenCreateAccess97dbFile

'IfDbVeris1ThenCreateAccess2000dbFile

OnerrorresumeNext

IfRight(SavePath,1)<>""OrRight(SavePath,1)<>"/"ThenSavePath=Trim(SavePath)&""

IfLeft(dbFileName,1)=""OrLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))

IfDbExists(SavePath&dbFileName)Then

("对不起，该数据库已经存在!")

CreateDBfile=False

Else

DimCa

SetCa=Object("g")

<>0Then

("⽆法建⽴，请检查错误信息

"&&"

"&ption)

Exitfunction

EndIf

IfDbVer=0Then

("Provider=.3.51;DataSource="&SavePath&dbFileName)

Else

("Provider=.4.0;DataSource="&SavePath&dbFileName)

EndIf

SetCa=Nothing

CreateDBfile=True

EndIf

Endfunction

PublicfunctionCompactDatabase(byValdbFileName,byValDbVer,byValSavePath)

'压缩数据库⽂件

'0为access97

'1为access2000

OnErrorresumenext

IfRight(SavePath,1)<>""OrRight(SavePath,1)<>"/"ThenSavePath=Trim(SavePath)&""

IfLeft(dbFileName,1)=""OrLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))

IfDbExists(SavePath&dbFileName)Then

("对不起，该数据库已经存在!")

CompactDatabase=False

Else

DimCd

SetCd=Object("ine")

<>0Then

("⽆法压缩，请检查错误信息

"&&"

"&ption)

Exitfunction

EndIf

IfDbVer=0Then

tDatabase("Provider=.3.51;DataSource="&SavePath&dbFileName,"Provider=.3.51;Data

Source="&SavePath&dbFileName&".;JetOLEDB;EncryptDatabase=True")

Else

tDatabase("Provider=.4.0;DataSource="&

SavePath&dbFileName,"Provider=.4.0;DataSource="&

SavePath&dbFileName&".;JetOLEDB;EncryptDatabase=True")

EndIf

'删除旧的数据库⽂件

callDeleteFile(SavePath&dbFileName)

'将压缩后的数据库⽂件还原

callRenameFile(SavePath&dbFileName&".",SavePath&dbFileName)

SetCd=False

CompactDatabase=True

EndIf

endfunction

PublicfunctionDbExists(byValdbPath)

'查找数据库⽂件是否存在

OnErrorresumeNext

Dimc

Setc=Object("tion")

"Provider=.4.0;DataSource="&dbPath

<>0Then

DbExists=false

else

DbExists=True

EndIf

setc=nothing

Endfunction

PublicfunctionAppPath()

'取当前真实路径

AppPath=h("./")

Endfunction

PublicfunctionAppName()

'取当前程序名称

AppName=Mid(Variables("SCRIPT_NAME"),(InStrRev(Variables("SCRIPT_NAME"),"/",-1,1))+1,Len(Variables("SCRIPT_NAME")))

EndFunction

PublicfunctionDeleteFile(filespec)

'删除⼀个⽂件

Dimfso

Setfso=CreateObject("stemObject")

<>0Then

("删除⽂件发⽣错误!请查看错误信息

"&&"

"&ption)

DeleteFile=False

EndIf

File(filespec)

Setfso=Nothing

DeleteFile=True

Endfunction

PublicfunctionRenameFile(filespec1,filespec2)

'修改⼀个⽂件

Dimfso

Setfso=CreateObject("stemObject")

<>0Then

("修改⽂件名时发⽣错误!请查看错误信息

"&&"

"&ption)

RenameFile=False

EndIf

le(filespec1,filespec2,True)

File(filespec1)

Setfso=Nothing

RenameFile=True

Endfunction

EndClass

%>

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

<%

ConstJET_3X=4

FunctionCompactDB(dbPath,boolIs97)

Dimfso,Engine,strDBPath

strDBPath=left(dbPath,instrrev(DBPath,""))

Setfso=CreateObject("stemObject")

ists(dbPath)Then

SetEngine=CreateObject("ine")

IfboolIs97="True"Then

tDatabase"Provider=.4.0;DataSource="&dbpath,_

"Provider=.4.0;JetOLEDB:DatabasePassword='XXXXXXXX';DataSource="&strDBPath&";"_

&"JetOLEDB:EngineType="&JET_3X

Else

tDatabase"Provider=.4.0;JetOLEDB:DatabasePassword='XXXXXXXX';DataSource="&dbpath,_

"Provider=.4.0;DataSource="&strDBPath&""

EndIf

lestrDBPath&"",dbpath

File(strDBPath&"")

Setfso=nothing

SetEngine=nothing

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

Else

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

EndIf

EndFunction

%>

asp编程有⽤的例⼦（⼀）

1.如何⽤Asp判断你的⽹站的虚拟物理路径

答：使⽤Mappath⽅法

ThePhysicalpathtothisvirtualwebsiteis:

<%=h("")%>

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

答：使⽤theRequestobject⽅法

strBrowser=Variables("HTTP_USER_AGENT")

IfInstr(strBrowser,"MSIE")<>0Then

ct("")

Else

ct("")

EndIf

3.如何计算每天的平均反复访问⼈数

答：解决⽅法