甄嬛传跟芈月传区别:网页制作必备之初级代码

1.获得系统时间:

<%=now()%>

2.取得来访用的IP:

<%=request.servervariables("remote_host")%>

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

4.去除IE混动条:

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

6.随机数:

<%randomize%>

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

N为可改变数

7.向上混动代码:

9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206" height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh

8.自动关闭网页:

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

9.随机背景音乐:

<%randomize%>

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

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 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 value (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)) * 8)

gfxSpex = True

end if　

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

Next

response.write "

set objFC = nothing

set objF = nothing

set objFSO = nothing　

%>

22.点击返回上页代码:

23.点击刷新代码:

24.点击刷新代码2:

25.弹出警告框代码:

26.状态栏信息

27.背景色变换

28.点击打开新窗口

29.分页代码:

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

<%‘‘包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%>

<%‘‘＊建立数据库连接，这里是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("

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

Response.Write("

Set Columns=rs.Fields 　

‘‘显示表头

For i=0 to Columns.Count-1

Response.Write("

Next

Response.Write("

‘‘显示内容

For i=1 to rs.PageSize

Response.Write("

For j=0 to Columns.Count-1

Response.Write("

Next

Response.Write("

rs.movenext

if rs.EOF then exit for

Next　

Response.Write("

END IF

%>

40种网页常用小技巧(JavaScript)

1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键

2. 取消选取、防止复制

3. onpaste="return false" 不准粘贴

4. oncopy="return false;" oncut="return false;" 防止复制

5. IE地址栏前换成自己的图标

6. 可以在收藏夹中显示出你的图标

7. 关闭输入法

8. 永远都会带着框架

9. 防止被人frame

10. 网页将不能被另存为

11.

onclick="window.location = "view-source:"+ "http://www.pconline.com.cn"">

12.删除时确认

删除

13. 取得控件的绝对位置

//Javascript

//VBScript

14. 光标是停在文本框文字的最后

15. 判断上一页的来源

javascript :

document.referrer

16. 最小化、最大化、关闭窗口

本例适用于IE

17.屏蔽功能键Shift,Alt,Ctrl

18. 网页不会被缓存

或者

19.怎样让表单没有凹凸感？

或

20.