网页代码（学习）

二、设置亮、暗边框颜色

表格有亮边框(bordercolorlight)和暗边框(bordercolordark)两个属性，把表格边框(border)设为1px，亮边框(bordercolorlight)设为背景色，暗边框(bordercolordark)设为你需要的实际边框颜色就可以了，实列如下：
-----------------------------------------------------------------

三、用CSS定义（一） （推荐使用）

代码为：
style="border-collapse: collapse"

实例如下：
-----------------------------------------------------------------

四、用CSS定义（二）

代码为：
style="border: 1px solid #000000;"

实例如下：
-----------------------------------------------------------------

4,各种播放器代码

SWF格式:

3.1.avi格式

3.2.mpg格式

3.3.smi格式

3.4.rm格式

3.5.wmv格式

5,ASP结构化

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit:Response.Buffer = True%>












<%
‘首页类
Class clsDefault
‘类初始
Private Sub Class_Initialize

End Sub
‘类销毁
Private Sub Class_Terminate

End Sub

‘设置属性
Public Property Let display(Logic)
display = Logic
Select Case (display)
Case True
Call show()
Case False
Case Else
Response.Write "Default类display属性错误，必须是True/False"
End Select
End Property

Private Sub show()
‘输出
Response.Write ""
Response.Write "

‘引用类
Dim Default
Set Default = New clsDefault
Default.display = True
Set Default = Nothing
%>

6,WScript.Network及WScript.Shell简单使用示范:
WScript.Network:

<%
Set WshNetwork = server.CreateObject("WScript.Network")
Response.WRite "Domain = " & WshNetwork.UserDomain & "
"
Response.WRite "Computer Name = " & WshNetwork.ComputerName & "
"
Response.WRite "User Name = " & WshNetwork.UserName & "
"
%>

Result:
Domain =
Computer Name = Kafree
User Name = IUSR_VHOST1

WScript.Shell:
<%
Set WshShell = server.CreateObject("WScript.Shell")
Response.WRite "Domain = " & WshShell.CurrentDirectory & "
"

Set WshSysEnv=WshShell.Environment("SYSTEM")
Response.WRite "WINDIR = " & WshSysEnv("WINDIR") & "
"

%>

Result:
Domain = D:\WINNT\system32
WINDIR = %SystemRoot%

7,Request.ServerVariables(http://www.elook.net.cn/ServerVariables.asp）:
列出所有已格式化的HTTP标头：

HTTP_ACCEPT:*/*HTTP_ACCEPT_LANGUAGE:zh-cnHTTP_CONNECTION:Keep-AliveHTTP_HOST:elook.net.cnHTTP_USER_AGENT:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2)HTTP_COOKIE:ASPSESSIONIDCCQCQCBC=AGFFNAMAOIEKLFCAJLKNFEMEHTTP_ACCEPT_ENCODING:gzip, deflate                

Accept: */*Accept-Language: zh-cnConnection: Keep-AliveHost: elook.net.cnUser-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2)Cookie: ASPSESSIONIDCCQCQCBC=AGFFNAMAOIEKLFCAJLKNFEMEAccept-Encoding: gzip, deflate

ALL_HTTP:HTTP_ACCEPT:*/*HTTP_ACCEPT_LANGUAGE:zh-cnHTTP_CONNECTION:Keep-AliveHTTP_HOST:elook.net.cnHTTP_USER_AGENT:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2)HTTP_COOKIE:ASPSESSIONIDCCQCQCBC=AGFFNAMAOIEKLFCAJLKNFEMEHTTP_ACCEPT_ENCODING:gzip, deflate

ALL_RAW:Accept: */*Accept-Language: zh-cnConnection: Keep-AliveHost: elook.net.cnUser-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2)Cookie: ASPSESSIONIDCCQCQCBC=AGFFNAMAOIEKLFCAJLKNFEMEAccept-Encoding: gzip, deflate

APPL_MD_PATH:/LM/W3SVC/10/Root

APPL_PHYSICAL_PATH:f:\homeweb\homec\8esky203\

AUTH_PASSWORD:

AUTH_TYPE:

AUTH_USER:

CERT_COOKIE:

CERT_FLAGS:

CERT_ISSUER:

CERT_KEYSIZE:

CERT_SECRETKEYSIZE:

CERT_SERIALNUMBER:

CERT_SERVER_ISSUER:

CERT_SERVER_SUBJECT:

CERT_SUBJECT:

CONTENT_LENGTH:0

CONTENT_TYPE:

GATEWAY_INTERFACE:CGI/1.1

HTTPS:off

HTTPS_KEYSIZE:

HTTPS_SECRETKEYSIZE:

HTTPS_SERVER_ISSUER:

HTTPS_SERVER_SUBJECT:

INSTANCE_ID:10

INSTANCE_META_PATH:/LM/W3SVC/10

LOCAL_ADDR:218.85.133.52

LOGON_USER:

PATH_INFO:/ServerVariables.asp

PATH_TRANSLATED:f:\homeweb\homec\8esky203\ServerVariables.asp

QUERY_STRING:

REMOTE_ADDR:219.137.95.96

REMOTE_HOST:219.137.95.96

REMOTE_USER:

REQUEST_METHOD:GET

SCRIPT_NAME:/ServerVariables.asp

SERVER_NAME:www.elook.net.cn

SERVER_PORT:80

SERVER_PORT_SECURE:0

SERVER_PROTOCOL:HTTP/1.1

SERVER_SOFTWARE:Microsoft-IIS/5.0

URL:/ServerVariables.asp

HTTP_ACCEPT:*/*

HTTP_ACCEPT_LANGUAGE:zh-cn

HTTP_CONNECTION:Keep-Alive

HTTP_HOST:www.elook.net.cn

HTTP_USER_AGENT:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2)

HTTP_COOKIE:ASPSESSIONIDCCQCQCBC=AGFFNAMAOIEKLFCAJLKNFEME

HTTP_ACCEPT_ENCODING:gzip, deflate

8,加入背景音乐
IE:
NS:
*.mid你的背景音乐的midi格式文件

9,简单的window.open方法
　 onclick="javascript:window.open(‘文件路径/文件名‘,‘newwindow‘,
　 ‘toolbar=no,scrollbars=yes,resizable=no,top=0,left=0,
　 width=400,height=300‘);">文字或图片

　参数解释：
　 js脚本结束

10,拉动页面时背景图不动
　

11,让浏览器在保存页面时保存失败

19,从历史列表中装入一个 URL
『上一页』
『下一页』
『往后2页』
『往前2页』

20,Iframe 透 明 背 景
1). 打開您的主網頁，複製程式碼到 之中：

要確定絕對不能刪去 "allowtransparency="true" 這一行喔！

2). 打開您 iframe 裡面的網頁，複製程式碼到 之中：


編輯內容：

不需修改，但如果 iframe 裡的網頁裡有先預設背景圖／背景顏色，要先把該設定刪除～

21,论坛贴图，当图片过大就会引网页的变形的解决方法：
设置表格样式：style=";word-break:break-all"
这样就不变形了。。。

另外，在表格里加入style=";word-break:break-all"，可以防止内容撑破本格。


22,实现网页转换特殊过渡效果（作者：techsun　　本文选自《5D多媒体》）
当我们点击网页上的链接时，浏览器页面就会转到链接指向的新的页面，我们想在页面转换时加上过渡效果。

打开这个页面的原代码，在与插入代码：

这样这个过渡效果就完成了，很简单吧。现在我们来测试一下效果如何，打开这个页面，然后点击页面上的链接，页面在转到下一个页面的过程中，我们看到页面是从上到下慢慢的转换到第二个页面的。

我们现在再试一个效果，将那段代码换成：

我们看到页面是从中间向左右两端展开过渡的，而且速度上快了一点。原因在于Duration和Transition的值不同。Duration的值为网页动态过渡的时间，单位为秒。

Transition是过渡方式，它的值为0到23，分别对应24种过渡方式。如下表：0 盒状收缩 1 盒状放射
2 圆形收缩 3 圆形放射
4 由下往上 5 由上往下
6 从左至右 7 从右至左
8 垂直百叶窗 9 水平百叶窗
10 水平格状百叶窗 11垂直格状百叶窗
12 随意溶解 13从左右两端向中间展开
14从中间向左右两端展开 15从上下两端向中间展开
16从中间向上下两端展开 17 从右上角向左下角展开
18 从右下角向左上角展开 19 从左上角向右下角展开
20 从左下角向右上角展开 21 水平线状展开
22 垂直线状展开 23 随机产生一种过渡方式

当Transition为23时，会随机产生0到22中的一个过渡效果。例如：

除了上面两个参数，还有一个http-equiv：http-equiv="Page-Exit"的意思是指页面离开时产生效果。
它有一种写法，如：http-equiv="Page-Enter"则是指页面进入时产生的效果。

23,禁止网页图片的下载

下面的代码将帮助你禁止网页中目标对象被下载：

24,查看当前网页的HTML源代码:

在网页的BODY中加入以下的代码:

//自动滚屏
var currentpos,timer;
function initialize()
{
timer=setInterval ("scrollwindow ()",30);
}

function sc()
{
clearInterval(timer);
}

function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos !=document.body.scrollTop) {sc();}
}
document.onmousedown=sc
document.ondblclick=initialize

26,设为首页、加入收藏夹的代码
设为首页
加入收藏夹  

27,时间显示1

28,时间显示2

以下的放在目标位置：

29,滚动显示区域
scrollAmount=1 scrollDelay=5 width="98%">

2001.5.7　海风文学社文学社举行

2000.12.9color=#008080>　海风文学社社庆九周年,连同海大另外三大社团联谊，诸多海风新老社员参加了这次有意义的活动。

2000.12.16color=#008080>　海风文学社主页开通，这是真正属于海风文学社的第一个网站。

30,关闭窗口
javascript:window.close() 　　　　　(window.close()必须小写）

31, 右键打开收藏夹

脚本说明:
把如下代码加入区域中

32,Kafree使用的一份CSS模板

33,写组件DLL时有用的代码
Option Explicit
Private objContext As Object
Private Response As Response
Private Request As Request
Private Server As Server
Private Application As Application
Private Session As Session
Private Sub Class_Initialize()
Dim objContext As ObjectContext
Set objContext = GetObjectContext()
Set Response = objContext("Response")
Set Request = objContext("Request")
Set Server = objContext("Server")
Set Application = objContext("Application")
Set Session = objContext("Session")
End Sub
Private Sub Class_Terminate()
Set objContext = Nothing
Set Response = Nothing
Set Request = Nothing
Set Server = Nothing
Set Application = Nothing
Set Session = Nothing
End Sub

34,DVBBS7.0中的一段打开Access、SQL数据库的代码
Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
‘sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = ""
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
‘免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.asp
Db = "data/dvbbs6.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"‘注释，需要把这几个字翻译成英文。
Response.End
End If
End Sub

35,SQL注入防御代码(作者：NB联盟－小竹)
Function ReqNum ( StrName )
ReqNum = Request ( StrName )
if Not isNumeric ( ReqNum ) then
Response.Write "参数必须为数字型!"
Response.End
End if
End Function

Function ReqStr ( StrName )
ReqStr = Replace ( Request(StrName), "‘", "‘‘" )
End Function

以上面三句SQL语句，说明一下调用方法：
1.SQL="Select * from Users where UserID=" & ReqNum("ID")
2.SQL="Select * from Users where UserID=‘" & ReqStr("ID") & "‘"
3.SQL="Select * from Users where UserName like ‘%" & ReqStr("Name") & "%‘"

　　 重申一点：上面的方法无论对SQLServer库还是Access或是其它数据库，都是绝对适用、绝对安全，但注意一点，SQLServer的存储过程是个例外，该情况下要把单引号替换成四个单引号，以保安全。

36,ASP 3.0内置Application、ASPError、Request、Session、ObjectContext、Server等7个对象。

下面的是一段将ADODB.Connection放入Application的方法：
Set Application("oConn")=Server.CreateObject("ADODB.Connection")
Application("oConn").Open Connstr
Set Application("oConn")=Nothing

37,ASP常用的几段代码(来自 动力3.51)

‘**************************************************
‘函数名：gotTopic
‘作 用：截字符串，汉字一个算两个字符，英文算一个字符
‘参 数：str ----原字符串
‘ strlen ----截取长度
‘返回值：截取后的字符串
‘**************************************************
function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
end function

‘**************************************************
‘函数名：strLength
‘作 用：求字符串长度。汉字算两个字符，英文算一个字符。
‘参 数：str ----要求长度的字符串
‘返回值：字符串长度
‘**************************************************
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("中国")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
if err.number<>0 then err.clear
end function

Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(javascript)"
t=re.Replace(v,"javascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"jscript:")
re.Pattern="(js:)"
t=re.Replace(t,"js:")
‘re.Pattern="(value)"
‘t=re.Replace(t,"value")
re.Pattern="(about:)"
t=re.Replace(t,"about:")
re.Pattern="(file:)"
t=re.Replace(t,"file:")
re.Pattern="(document.cookie)"
t=re.Replace(t,"documents.cookie")
re.Pattern="(vbscript:)"
t=re.Replace(t,"vbscript:")
re.Pattern="(vbs:)"
t=re.Replace(t,"vbs:")
re.Pattern="(on(mouse|exit|error|click|key))"
t=re.Replace(t,"on$2")
‘re.Pattern="(&#)"
‘t=re.Replace(t,"＆#")
FilterJS=t
set re=nothing
end if
End Function

function dvHTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "

")
fString = Replace(fString, CHR(10), "
")

dvHTMLEncode = fString
end if
end function

function dvHTMLCode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, " "," ")
fString = Replace(fString, """, CHR(34))
fString = Replace(fString, "'", CHR(39))
fString = Replace(fString, "

",CHR(10) & CHR(10))
fString = Replace(fString, "
", CHR(10))
dvHTMLCode = fString
end if
end function

function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function

38,注册组件可用到的批处理文件
第一次注册组件.bat:

copy powereasy.dll %windir%\system32
regsvr32 %windir%\system32\powereasy.dll

更新组件.bat:
net stop iisadmin /y
regsvr32 /u /s %windir%\system32\powereasy.dll
copy powereasy.dll %windir%\system32
regsvr32 /s %windir%\system32\powereasy.dll
net start w3svc

卸载组件.bat:
net stop iisadmin /y
regsvr32/u %windir%\system32\powereasy.dll
del %windir%\system32\powereasy.dll
net start w3svc

39,永远带着框架

在子框架文件中之间加入:

其中，框架.htm为顶层框架文件。

破解方法：




<body><br></body>

40,改变IE地址栏的IE图标

　　我们要先做一个16*16的icon（图标文件），保存为index.ico。把这个图标文件上传到根目录下并在首页之间加上如下代码：

41,ASP代码里嵌入各种播放器

<%
‘---------------------
‘ write by 绿水青山
‘---------------------

dim lurl
lurl=Request.QueryString("url")

select case Lcase(right(lurl,4))
case ".swf"
%>

<%
CASE ".wmv",".mpg",".avi"
%>

<%
CASE ".mp3",".mid"
%>

<%
case else

select case Lcase(right(lurl,3))
case ".rm","ram"
%>

<%
case ".ra"
%>

<%
case else
%>

type=audio/x-pn-realaudio-plugin width=500 height=150 border=0 autostart=1>
<%
end select
end select
%>

42,Show event.keycode
Key codes for the number and punctuation keys are the same as the ASCII code of the number on the key
=16
=17
=18

43,随机变换背景图象（一个可以刷新心情的特效）

　　在之间加上如下代码：

44,表格的半透明显示效果

　　在之间加上如下代码：　　

　　在之间加上如下代码：
　　

45,Dvbbs 6.x To 7.0升级文件中的一些涉及表、字段操作的SQL语句

‘更改数据库表名，入口参数：老表名、新表名
Sub RenameTable(oldName, newName)
On Error Resume Next
objADOXDatabase.Tables(oldName).Name = newName
If Err Then
Response.Write TableTop & "更改表名错误，请手动将数据库中 "&oldName&" 表名更改为 "&newName&"，原因" & Err.Description & "
" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "更改表名 "&OldName&" To "&newName&" 成功
" & TableEnd
Response.Flush
End If
End Sub

‘删除字段通用函数
Sub DelColumn(TableName,ColumnName)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Drop "&ColumnName&"")
If Err Then
Response.Write TableTop & "删除 "&TableName&" 表中字段错误，请手动将数据库中 "&ColumnName&" 字段删除，原因" & Err.Description & "
" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "删除 "&TableName&" 表中字段 "&ColumnName&" 成功
" & TableEnd
Response.Flush
End If
End Sub

‘添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Add "&ColumnName&" "&ColumnType&"")
If Err Then
Response.Write TableTop & "新建 "&TableName&" 表中字段错误，请手动将数据库中 "&ColumnName&" 字段建立，属性为 "&ColumnType&"，原因" & Err.Description & "
" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "新建 "&TableName&" 表中字段 "&ColumnName&" 成功
" & TableEnd
Response.Flush
End If
End Sub

‘更改字段通用函数
Sub ModColumn(TableName,ColumnName,ColumnType)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Alter Column "&ColumnName&" "&ColumnType&"")
If Err Then
Response.Write TableTop & "更改 "&TableName&" 表中字段属性错误，请手动将数据库中 "&ColumnName&" 字段更改为 "&ColumnType&" 属性，原因" & Err.Description & "
" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "更改 "&TableName&" 表中字段属性 "&ColumnName&" 成功
" & TableEnd
Response.Flush
End If
End Sub

‘删除表通用函数
Sub DelTable(TableName)
On Error Resume Next
Conn.Execute("Drop Table "&TableName&"")
If Err Then
Response.Write TableTop & "删除 "&TableName&" 表错误，请手动将数据库中 "&TableName&" 表删除，原因" & Err.Description & "
" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "删除 "&TableName&" 表成功
" & TableEnd
Response.Flush
End If
End Sub

46,今天在动网，看到有人问如何使Frmae背景透明?刚好我以前用过，Kafree现提供代码：
IFRAME里加上属性：allowtransparency="true"
IFRAME的SRC网页加上：