一些ASP初学者常用的代码（转）

Oct 26, 2004 Author: | Filed under: Uncategorized

一些ASP初学者常用的代码

1.获得系统时间:

<%=now()%>

2.取得来访用的IP:

<%=request.serverVariables(remote_host)%>

3.获得系统,浏览器版本:

4.去除IE混动条:

5.进入网站,跳出广告:

6.随机数:

<%randomize%>

<%=(int(rnd()*n)+1)%>

N为可改变数

7.向上混动代码:

line-height: 150%; font-style:italic; font-weight:bold scrollamount=2 width=206

height=207 bgcolor=#FFFF00>hhhhhhhhhhhhhhhhhhh

8.自动关闭网页:

本页10秒后自动关闭,请注意刷新页面

9.随机背景音乐:

<%randomize%>

.mid loop=-1>　

可以修改数字，限制调用个数，我这里是６０个．

10.自动刷新本页面:

11.ACCESS数据库连接:

option explicit

dim startime,endtime,conn,connstr,db

startime=timer()

'更改数据库名字

db=data/dvBBS5.mdb

Set conn = Server.CreateObject(ADODB.Connection)

connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(db)

'如果你的服务器采用较老版本Access驱动，请用下面连接方法

'connstr=driver={Microsoft Access Driver (*.mdb)};dbq= & Server.MapPath(db)

conn.Open connstr

function CloseDatabase

Conn.close

Set conn = Nothing

End Function

12.SQL数据库连接:

option explicit

dim startime,endtime,conn,connstr,db

startime=timer()

connstr=driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs

Set conn = Server.CreateObject(ADODB.Connection)

conn.Open connstr

function CloseDatabase

Conn.close

Set conn = Nothing

End Function

13.用键盘打开网页代码:

这里是Ctrl+Enter和Alt+S的代码自己查下键盘的ASCII码再换就行

14.让层不被控件复盖代码:

＃前面

＃后面

15.动网FLASH广告代码:

16.VBS弹出窗口小代码:

16.使用FSO修改文件特定内容的函数

function FSOchange(filename,Target,String)

Dim objFSO,objCountFile,FiletempData

Set objFSO = Server.CreateObject(Scripting.FileSystemObject)

Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)

FiletempData = objCountFile.ReadAll

objCountFile.Close

FiletempData=Replace(FiletempData,Target,String)

Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)

objCountFile.Write FiletempData

objCountFile.Close

Set objCountFile=Nothing

Set objFSO = Nothing

End Function

17.使用FSO读取文件内容的函数

function FSOFileRead(filename)

Dim objFSO,objCountFile,FiletempData

Set objFSO = Server.CreateObject(Scripting.FileSystemObject)

Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)

FSOFileRead = objCountFile.ReadAll

objCountFile.Close

Set objCountFile=Nothing

Set objFSO = Nothing

End Function

18.使用FSO读取文件某一行的函数

function FSOlinedit(filename,lineNum)

if linenum < 1 then exit function

dim fso,f,temparray,tempcnt

set fso = server.CreateObject(scripting.filesystemobject)

if not fso.fileExists(server.mappath(filename)) then exit function

set f = fso.opentextfile(server.mappath(filename),1)

if not f.AtEndofStream then

tempcnt = f.readall

f.close

set f = nothing

temparray = split(tempcnt,chr(13)&chr(10))

if lineNum>ubound(temparray)+1 then

exit function

else

FSOlinedit = temparray(lineNum-1)

end if

end function

19.使用FSO写文件某一行的函数

function FSOlinewrite(filename,lineNum,Linecontent)

if linenum < 1 then exit function

dim fso,f,temparray,tempCnt

set fso = server.CreateObject(scripting.filesystemobject)

if not fso.fileExists(server.mappath(filename)) then exit function

set f = fso.opentextfile(server.mappath(filename),1)

if not f.AtEndofStream then

tempcnt = f.readall

f.close

temparray = split(tempcnt,chr(13)&chr(10))

if lineNum>ubound(temparray)+1 then

exit function

else

temparray(lineNum-1) = lineContent

end if

tempcnt = join(temparray,chr(13)&chr(10))

set f = fso.createtextfile(server.mappath(filename),true)

f.write tempcnt

end if

f.close

set f = nothing

end function

20.使用FSO添加文件新行的函数

function FSOappline(filename,Linecontent)

dim fso,f

set fso = server.CreateObject(scripting.filesystemobject)

if not fso.fileExists(server.mappath(filename)) then exit function

set f = fso.opentextfile(server.mappath(filename),8,1)

f.write chr(13)&chr(10)&Linecontent

f.close

set f = nothing

end function

21.读文件最后一行的函数

function FSOlastline(filename)

dim fso,f,temparray,tempcnt

set fso = server.CreateObject(scripting.filesystemobject)

if not fso.fileExists(server.mappath(filename)) then exit function

set f = fso.opentextfile(server.mappath(filename),1)

if not f.AtEndofStream then

tempcnt = f.readall

f.close

set f = nothing

temparray = split(tempcnt,chr(13)&chr(10))

FSOlastline = temparray(ubound(temparray))

end if

end function

利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，宽、高等)

'::: BMP, GIF, JPG and PNG :::　

'::: This function gets a specified number of bytes from any :::

'::: file, starting at the offset (base 1) :::

'::: :::

'::: Passed: :::

'::: flnm => Filespec of file to read :::

‘::: offset => Offset at which to start reading :::

‘::: bytes => How many bytes to read :::

‘::: :::

‘:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

function GetBytes(flnm, offset, bytes)

Dim objFSO

Dim objFTemp

Dim objTextStream

Dim lngSize

on error resume next

Set objFSO = CreateObject(Scripting.FileSystemObject)　

‘ First, we get the filesize

Set objFTemp = objFSO.GetFile(flnm)

lngSize = objFTemp.Size

set objFTemp = nothing

fsoForReading = 1

Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)

if offset > 0 then

strBuff = objTextStream.Read(offset - 1)

end if

if bytes = -1 then ‘ Get All!

GetBytes = objTextStream.Read(lngSize) ‘ReadAll

else

GetBytes = objTextStream.Read(bytes)

end if

objTextStream.Close

set objTextStream = nothing

set objFSO = nothing

end function　

‘:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

‘::: :::

‘::: Functions to convert two bytes to a numeric ＆#118alue (long) :::

‘::: (both little-endian and big-endian) :::

‘::: :::

‘:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

function lngConvert(strTemp)

lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))

end function

function lngConvert2(strTemp)

lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))

end function　

‘:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

‘::: :::

‘::: This function does most of the real work. It will attempt :::

‘::: to read any file, regardless of the extension, and will :::

‘::: identify if it is a graphical image. :::

‘::: :::

‘::: Passed: :::

‘::: flnm => Filespec of file to read :::

‘::: width => width of image :::

‘::: height => height of image :::

‘::: depth => color depth (in number of colors) :::

‘::: strImageType=> type of image (e.g. GIF, BMP, etc.) :::

‘::: :::

‘:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

function gfxSpex(flnm, width, height, depth, strImageType)

dim strPNG

dim strGIF

dim strBMP

dim strType

strType =

strImageType = (unknown)

gfxSpex = False

strPNG = chr(137) & chr(80) & chr(78)

strGIF = GIF

strBMP = chr(66) & chr(77)

strType = GetBytes(flnm, 0, 3)

if strType = strGIF then ‘ is GIF

strImageType = GIF

Width = lngConvert(GetBytes(flnm, 7, 2))

Height = lngConvert(GetBytes(flnm, 9, 2))

Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)

gfxSpex = True

elseif left(strType, 2) = strBMP then ‘ is BMP

strImageType = BMP

Width = lngConvert(GetBytes(flnm, 19, 2))

Height = lngConvert(GetBytes(flnm, 23, 2))

Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))

gfxSpex = True

elseif strType = strPNG then ‘ Is PNG

strImageType = PNG

Width = lngConvert2(GetBytes(flnm, 19, 2))

Height = lngConvert2(GetBytes(flnm, 23, 2))

Depth = getBytes(flnm, 25, 2)

select case asc(right(Depth,1))

case 0

Depth = 2 ^ (asc(left(Depth, 1)))

gfxSpex = True

case 2

Depth = 2 ^ (asc(left(Depth, 1)) * 3)

gfxSpex = True

case 3

Depth = 2 ^ (asc(left(Depth, 1))) ‘8

gfxSpex = True

case 4

Depth = 2 ^ (asc(left(Depth, 1)) * 2)

gfxSpex = True

case 6

Depth = 2 ^ (asc(left(Depth, 1)) * 4)

gfxSpex = True

case else

Depth = -1

end select　

else

strBuff = GetBytes(flnm, 0, -1) ‘ Get all bytes from file

lngSize = len(strBuff)

flgFound = 0

strTarget = chr(255) & chr(216) & chr(255)

flgFound = instr(strBuff, strTarget)

if flgFound = 0 then

exit function

end if

strImageType = JPG

lngPos = flgFound + 2

ExitLoop = false

do while ExitLoop = False and lngPos < lngSize　

do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize

lngPos = lngPos + 1

loop

if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then

lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))

lngPos = lngPos + lngMarkerSize + 1

else

ExitLoop = True

end if

loop

‘

if ExitLoop = False then

Width = -1

Height = -1

Depth = -1

else

Height = lngConvert2(mid(strBuff, lngPos + 4, 2))

Width = lngConvert2(mid(strBuff, lngPos + 6, 2))

Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) *
gfxSpex = True

end if　

end function　

‘:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

‘::: Test Harness :::

‘:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::　

‘ To test, we’ll just try to show all files with a .GIF extension in the root of C:

Set objFSO = CreateObject(Scripting.FileSystemObject)

Set objF = objFSO.GetFolder(c:)

Set objFC = objF.Files

response.write

For Each f1 in objFC

if instr(ucase(f1.Name), .GIF) then

response.write

end if

response.write

& f1.name &

& f1.DateCreated &

& f1.Size &

if gfxSpex(f1.Path, w, h, c, strType) = true then

response.write w & x & h & & c & colors

else

response.write

end if

response.write

set objFC = nothing

set objF = nothing

set objFSO = nothing　

24.点击返回上页代码:

24.点击刷新代码:

24.点击刷新代码2:

25.弹出警告框代码:

26.状态栏信息

27.背景色变换

28.点击打开新窗口

29.分页代码:

<%''本程序文件名为：Pages.asp%>

<%''包含ADO常量表文件adovbs.inc，可从Program FilesCommon FilesSystemADO目录下拷贝%>

<%''＊建立数据库连接，这里是Oracle8.05数据库

Set conn=Server.CreateObject(ADODB.Connection)

conn.Open Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword; 　

Set rs=Server.CreateObject(ADODB.Recordset) ''创建Recordset对象

rs.CursorLocation=adUseClient ''设定记录集指针属性

''＊设定一页内的记录总数，可根据需要进行调整

rs.PageSize=10 　

''＊设置查询语句

StrSQL=Select ID,姓名,住址,电话 from 通讯录 Order By ID

rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText

<%IF rs.Eof THEN

Response.Write([数据库中没有记录！])

ELSE

”指定当前页码

If Request(CurrentPage)= Then

rs.AbsolutePage=1

Else

rs.AbsolutePage=CLng(Request(CurrentPage))

End If 　

”创建表单MyForm,方法为Get

Response.Write(

)

Response.Write(

)

”设置翻页超链接

if rs.PageCount=1 then

Response.Write([第一页] [上一页] [下一页] [最后一页] )

else

if rs.AbsolutePage=1 then

Response.Write([第一页] [上一页] )

Response.Write([下一页] )

Response.Write([最后一页] )

else

if rs.AbsolutePage=rs.PageCount then

Response.Write([第一页] )

Response.Write([上一页] )

Response.Write([下一页] [最后一页] )

else

Response.Write([第一页] )

Response.Write([上一页] )

Response.Write([下一页] )

Response.Write([最后一页] )

end if

”创建下拉列表框，用于选择浏览页码

Response.Write(第

页/共&rs.PageCount&页共&rs.RecordCount&条记录

)

Response.Write(

)　

”创建表格，用于显示

Response.Write(

Response.Write( bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>)　

Response.Write(

) 　

Set Columns=rs.Fields 　

”显示表头

For i=0 to Columns.Count-1

Response.Write(

)

Response.Write(

)

”显示内容

For i=1 to rs.PageSize

Response.Write(

)

For j=0 to Columns.Count-1

Response.Write(

)

Response.Write(

)　

rs.movenext

if rs.EOF then exit for

Response.Write(

)

Response.Write(&Columns(i).name&

&Columns(j)&

) 　

END IF

[align=right][size=1][color=#cccccc][Edit on 2004-10-26 15:47:29 By guoshuang][/color][/size][/align]

Flickr PhotoStream

郭爽的网页设计资料

一些ASP初学者常用的代码（转）

Leave a reply

Flickr PhotoStream

Recent Posts

Recent Comments

Pages

Categories

Tags

Archives

Blogroll

Meta

Advertising

Most Popular

Recent Comments

Latest Entries