韩国美女福利视频vip,美女视频来电铃声

Kafree收集整理的代碼

1,Kafree總結的一些尺寸：
不同分辨率下瀏覽器不出現(xiàn)滾動條的極限尺寸:
780*452(狀態(tài)欄浮,800x600) 780*480（無浮動欄,800x600）1004*651（無浮動欄，1024x768） 1004*623（狀態(tài)欄浮，1024x768）

其它:
banner:468*60 網(wǎng)站標志(沒有規(guī)定尺寸):111*36 LOGO：88*31

2,HTML模板
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title> New Document </title>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript" src="Script/Function.js"></script>
<style type="text/css">

</style>
<script language="JavaScript">

</script>
<script language="VBScript" type="text/VBScript">

</script>
</head>
<body>
</body>
</html>

框架：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<frameset rows="80,*" frameborder="NO" border="0" framespacing="0">
<frame src="" name="topFrame" scrolling="NO" noresize>
<frame src="" name="mainFrame">
<noframes>
<body>
<p>此網(wǎng)頁使用了框架，但您的瀏覽器不支持框架。</p>
</body>
</noframes>
</frameset>
</html>

3,制作1px邊框表格的幾種方法（來源：　作者：鐘鐘）

一、用嵌套表格

用兩個表格嵌套，外層的表格的長與寬比里層的多出2px，并設置對齊屬性為水平居中、垂直居中，然后把外層表格的背景設為你需要的邊框顏色，里層表格背景設為與網(wǎng)頁背景相同，這樣就實現(xiàn)我們的愿望了，實例如下：
-----------------------------------------------------------------
<table cellspacing="0" cellpadding="0" bgcolor="#000000" width="32" height="32" border="0">
<tr>
<td align="center">
<table cellspacing="0" cellpadding="0" bgcolor="#ffffff" width="30" height="30" border="0">
<tr>
<td>　</td>
</tr>
</td>
</tr>
</table>
-----------------------------------------------------------------

二、設置亮、暗邊框顏色

表格有亮邊框(bordercolorlight)和暗邊框(bordercolordark)兩個屬性，把表格邊框(border)設為1px，亮邊框(bordercolorlight)設為背景色，暗邊框(bordercolordark)設為你需要的實際邊框顏色就可以了，實列如下：
-----------------------------------------------------------------
<table border="1" cellpadding="0" cellspacing="0" width="32" height="32" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td>　</td>
</tr>
</table>
-----------------------------------------------------------------

三、用CSS定義（一）（推薦使用）

代碼為：
style="border-collapse: collapse"

實例如下：
-----------------------------------------------------------------
<table border="1" cellspacing="0" width="32" height="32" style="border-collapse: collapse" bordercolor="#000000" cellpadding="0">
<tr>
<td>　</td>
</tr>
</table>
-----------------------------------------------------------------
如果你用過Frontpage xp，你會發(fā)現(xiàn)，在Frontpage xp中定義的表格默認的設置就是用CSS定義過了的。

四、用CSS定義（二）

代碼為：
style="border: 1px solid #000000;"

實例如下：
-----------------------------------------------------------------
<table cellspacing="1" width="32" height="32" style="border: 1px solid #000000; ">
<tr>
<td>　</td>
</tr>
</table>
-----------------------------------------------------------------
有一點一定要注意：這時候不要再設置表格邊框(border)、亮邊框(bordercolorlight)和暗邊框(bordercolordark)屬性，否則不會出現(xiàn)預想的結果。

4,各種播放器代碼

SWF格式:
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="32" height="32">
<param name="movie" value="banner.swf">
<param name="quality" value="high">
<embed src="STYLE.CSS" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="32" height="32"></embed>
</object>

3.1.avi格式

3.2.mpg格式

3.3.smi格式

3.4.rm格式

</object>

3.5.wmv格式

5,ASP結構化

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






<LINK rel="stylesheet" href="/CSS/Default.css"/>

<script language="JavaScript" src="/JS/Default.js"></script>

<script language="VBScript" src="/VBS/Default.vbs"></script>

<%
‘首頁類
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 "<body>"
Response.Write "<center>"
‘輸出導航
‘引用類
Dim Menu
Set Menu = New clsMenu
Menu.display = true
Set Menu = Nothing
Response.Write "<table id=""tbdesign1"" class=""dsgnTB"">"
Response.Write "<tr>"
Response.Write " <td id=""tdnowposition"" class=""tdnowposition""></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write " <td id=""tdcontent"" class=""tdcontent""></td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</center>"
Response.Write "</body>"
End Sub
End Class

‘引用類
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 & "<br>"
Response.WRite "Computer Name = " & WshNetwork.ComputerName & "<br>"
Response.WRite "User Name = " & WshNetwork.UserName & "<br>"
%>

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

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

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

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

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

HTTP_ACCEPT:*/*
HTTP_ACCEPT_LANGUAGE:zh-cn
HTTP_CONNECTION:Keep-Alive
HTTP_HOST: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

列出所有未格式化的HTTP標頭：

Accept: */*
Accept-Language: zh-cn
Connection: Keep-Alive
Host: elook.net.cn
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2)
Cookie: ASPSESSIONIDCCQCQCBC=AGFFNAMAOIEKLFCAJLKNFEME
Accept-Encoding: gzip, deflate

ALL_HTTP:HTTP_ACCEPT:*/*
HTTP_ACCEPT_LANGUAGE:zh-cn
HTTP_CONNECTION:Keep-Alive
HTTP_HOST: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

ALL_RAW:Accept: */*
Accept-Language: zh-cn
Connection: Keep-Alive
Host: elook.net.cn
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2)
Cookie: ASPSESSIONIDCCQCQCBC=AGFFNAMAOIEKLFCAJLKNFEME
Accept-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

ALL_HTTP 客戶端發(fā)送的所有 HTTP 標題文件。
ALL_RAW 檢索未處理表格中所有的標題。
ALL_RAW 和 ALL_HTTP 不同，ALL_HTTP 在標題文件名前面放置 HTTP_ prefix，并且標題名稱總是大寫的。使用 ALL_RAW 時，標題名稱和值只在客戶端發(fā)送時才出現(xiàn)。

8,加入背景音樂
IE:<bgsound src="*.mid" loop=infinite>
NS:<embed src="*.mid" autostart=true hidden=true loop=true></embed>
*.mid你的背景音樂的midi格式文件

9,簡單的window.open方法
<a href="#"
　 onclick="javascript:window.open(‘文件路徑/文件名‘,‘newwindow‘,
　 ‘toolbar=no,scrollbars=yes,resizable=no,top=0,left=0,
　 width=400,height=300‘);">文字或圖片</a>

　參數(shù)解釋：
　 <SCRIPT LANGUAGE="javascript"> js腳本開始；
　 window.open 彈出新窗口的命令；
　 ‘文件路徑/文件名‘‘ 彈出窗口的文件名；
　 ‘newwindow‘ 彈出窗口的名字（不是文件名），非必須，可用空‘‘代替；彈出新窗口：‘_blank‘，原窗口：‘_self‘；
　 width=400 窗口寬度；
　 height=300 窗口高度；
　 top=0 窗口距離屏幕上方的象素值；
　 left=0 窗口距離屏幕左側的象素值；
　 toolbar=no 是否顯示工具欄，yes為顯示；
　 menubar，scrollbars 表示菜單欄和滾動欄。
　 resizable=no 是否允許改變窗口大小，yes為允許；
　 location=no 是否顯示地址欄，yes為允許；
　 status=no 是否顯示狀態(tài)欄內(nèi)的信息（通常是文件已經(jīng)打開），yes為允許；
　 </SCRIPT> js腳本結束

10,拉動頁面時背景圖不動
　 <style>
　 body{background-image:url(logo.gif);
　 background-repeat:no-repeat;
background-position:center;
background-attachment: fixed;}
　 </style>

11,讓瀏覽器在保存頁面時保存失敗
<noscript><iframe src="*.htm"></noscript>

12，禁止右鍵，禁止選擇文本
<body oncontextmenu="return false" onselectstart="return false">

13,隨機替換圖片
<script>
　 document.write(‘<img src="img/‘+parseInt(Math.random()*(5))
　 +‘.gif"height="40" width="50">‘)
</script>

　圖片文件名為0.gif 1.gif 2.gif 3.gif 4.gif

14,窗口定時關閉
先將如下代碼網(wǎng)頁文件的區(qū)：
　 <script language="JavaScript">
　 function closeit() { setTimeout("self.close()",10000) //毫秒 }
　 </script>
然后再在<body>標內(nèi)加入如：<body onload="closeit()">

15,網(wǎng)頁自動關閉
　 <html>
　 <head>
　 <object id=closes type="application/x-oleobject"
　 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
　 <param name="Command" value="Close">
　 </object>
　 </head>
　 <body onload="window.setTimeout(‘closes.Click()‘,10000)">
　這個窗口會在10秒過后自動關閉,而且不會出現(xiàn)提示.
　 </body>
　 </html>

16,網(wǎng)頁自動刷新
在head部記入
　 <META HTTP-EQUIV="Refresh" content="20">
其中20為20秒后自動刷新，你可以更改為任意值。

17,網(wǎng)頁自動轉頁
<META HTTP-EQUIV="Refresh" CONTENT="時間(秒);URL=地址">

18,保持layer在最前面，而不被Iframe、Object所覆蓋
在Layer中再插Iframe 或 Object 設z-Index值
　 <div z-Index:2><object xxx></object> ＃前面
　 <div z-Index:1><object xxx></object> ＃后面
　 <div id="Layer2" style="position:absolute; top:40;width:400px;
　 height:95px;z-index:2"> height=100% width=100%>
　 <iframe width=0 height=0></iframe>
　 </div>
　 <div id="Layer1" style="position:absolute; top:50;width:200px;
　 height:115px;z-index:1">
　 <iframe height=100% width=100%></iframe>
　 </div>

19,從歷史列表中裝入一個 URL
<a href=‘javascript:history.back()‘>『上一頁』</a>
<a href=‘javascript:history.forward()‘>『下一頁』</a>
<a href=‘javascript:history.go(-2)‘>『往后2頁』</a>
<a href=‘javascript:history.go(2)‘>『往前2頁』</a>

20,Iframe 透明背景
1). 打開您的主網(wǎng)頁，複製程式碼到 <body></body> 之中：
<IFRAME src="網(wǎng)頁二.htm" /*iframe 內(nèi)的網(wǎng)頁*/
name="frame" /*iframe 名稱*/
width="300" /*寬度(pixel)*/
height="300" /*高度(pixel)*/
style="position:absolute;
left:255; /*位置(從左邊算起)*/
top:100; /*位置(從上面算起)*/
scrolling=choice /*捲軸*/
frameborder="0" /*邊框*/
allowtransparency="true">
</IFRAME>
要確定絕對不能刪去 "allowtransparency="true" 這一行喔！

2). 打開您 iframe 裡面的網(wǎng)頁，複製程式碼到 <head></head> 之中：
<style type="text/css">

</style>

編輯內(nèi)容：

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

21,論壇貼圖，當圖片過大就會引網(wǎng)頁的變形的解決方法：
設置表格樣式：style="table-layout:fixed;word-break:break-all"
這樣就不變形了。。。

<table width="100" border="1" style="table-layout:fixed;word-break:break-all">
<tr>
<td height=100><img src="http://qqshow-user.tencent.com/81387140/10/00/" onload="javascript:if(this.width>100)this.width=100"></td>
</tr>
</table>

另外，在表格里加入style="table-layout:fixed;word-break:break-all"，可以防止內(nèi)容撐破本格。

22,實現(xiàn)網(wǎng)頁轉換特殊過渡效果（作者：techsun　　本文選自《5D多媒體》）
當我們點擊網(wǎng)頁上的鏈接時，瀏覽器頁面就會轉到鏈接指向的新的頁面，我們想在頁面轉換時加上過渡效果。

打開這個頁面的原代碼，在<head>與</head>插入代碼：
<meta http-equiv="Page-Exit" content="revealTrans(Duration=3,Transition=5)">

這樣這個過渡效果就完成了，很簡單吧。現(xiàn)在我們來測試一下效果如何，打開這個頁面，然后點擊頁面上的鏈接，頁面在轉到下一個頁面的過程中，我們看到頁面是從上到下慢慢的轉換到第二個頁面的。

我們現(xiàn)在再試一個效果，將那段代碼換成：
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1,Transition=14)">

我們看到頁面是從中間向左右兩端展開過渡的，而且速度上快了一點。原因在于Duration和Transition的值不同。Duration的值為網(wǎng)頁動態(tài)過渡的時間，單位為秒。

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 隨機產(chǎn)生一種過渡方式

當Transition為23時，會隨機產(chǎn)生0到22中的一個過渡效果。例如：<meta http-equiv="Page-Exit" content="revealTrans(Duration=2,Transition=23)">

除了上面兩個參數(shù)，還有一個http-equiv：http-equiv="Page-Exit"的意思是指頁面離開時產(chǎn)生效果。
它有一種寫法，如：http-equiv="Page-Enter"則是指頁面進入時產(chǎn)生的效果。

23,禁止網(wǎng)頁圖片的下載

下面的代碼將幫助你禁止網(wǎng)頁中目標對象被下載：<a href="javascript:void(0)" onMouseDown="alert(‘對不起!圖片不能下載！‘)"></a>

24,查看當前網(wǎng)頁的HTML源代碼:

在網(wǎng)頁的BODY中加入以下的代碼:

<FORM>
<INPUT TYPE="BUTTON" VALUE="查看本頁源代碼" onClick= ‘window.location = "view-source:" + window.location.href‘>
</form>

25,網(wǎng)頁中雙擊向下滾屏

//自動滾屏
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,設為首頁、加入收藏夾的代碼
<a href="#" onClick="this.style.behavior=‘url(#default#homepage)‘;this.setHomePage(‘http://www.elook.net.cn‘)">設為首頁</a>
<a href="javascript:window.external.addFavorite(‘http://www.elook.net.cn‘,‘e路網(wǎng)‘)">加入收藏夾</a>

27,時間顯示1

//-->
</script>

28,時間顯示2

<SCRIPT language=JavaScript>
var day="";
var month="";
var ampm="";
var ampmhour="";
var myweekday="";
var year="";
mydate=new Date();
myweekday=mydate.getDay();
mymonth=mydate.getMonth();
myday= mydate.getDate();
myyear= mydate.getYear();
myhours=mydate.getHours();
ampmhour=(myhours > 12) ? myhours - 12 : myhours;
if (ampmhour == "0") ampmhour=0;
ampm =(myhours >= 12) ? ‘ PM‘ : ‘ AM‘;
mytime=mydate.getMinutes();
myminutes =((mytime < 10) ? ‘:0‘ : ‘:‘) + mytime;
year=(myyear > 200) ? myyear : 1900 + myyear;
if(myweekday == 0)
weekday=" 星期日 ";
else if(myweekday == 1)
weekday=" 星期一 ";
else if(myweekday == 2)
weekday=" 星期二 ";
else if(myweekday == 3)
weekday=" 星期三 ";
else if(myweekday == 4)
weekday=" 星期四 ";
else if(myweekday == 5)
weekday=" 星期五 ";
else if(myweekday == 6)
weekday=" 星期六 ";
</SCRIPT>

以下的放在目標位置：

<SCRIPT>
document.write(year + "/" + (mymonth+1) + "/" +myday)
document.write(" " +weekday + " " + ampmhour + "" + myminutes + ampm);
</SCRIPT>

29,滾動顯示區(qū)域
<MARQUEE direction=up height=125 onmouseout=this.start() onmouseover=this.stop()
scrollAmount=1 scrollDelay=5 width="98%">
<LI><font color="#008000">2001.5.7</font>　<font color="#008080">海風文學社文學社舉行</font>
<LI><FONT color=#008000>2000.12.9</FONT><FONT
color=#008080>　海風文學社社慶九周年,連同海大另外三大社團聯(lián)誼，諸多海風新老社員參加了這次有意義的活動。</FONT>
<LI><FONT color=#008000>2000.12.16</FONT><FONT
color=#008080>　海風文學社主頁開通，這是真正屬于海風文學社的第一個網(wǎng)站。</FONT> </LI>
</MARQUEE>

30,關閉窗口
javascript:window.close() 　　　　　(window.close()必須小寫）

31, 右鍵打開收藏夾

腳本說明:
把如下代碼加入<body>區(qū)域中
<script language=JavaScript1.2>
if (document.all)
document.body.onmousedown=new Function("if (event.button==2||event.button==3)window.external.addFavorite(‘http://www.njcatv.net‘,‘南京有線電視臺‘)")
</script>

32,Kafree使用的一份CSS模板
<STYLE type=text/css>
BODY{
CURSOR: url(skins/8esky_com_21/g_move.ani);background-image:url(skins/8esky_com_21/bg.gif);background-position:center;FONT-SIZE: 12px;COLOR: #000000;FONT-FAMILY: 宋體;background-color: #FFFFFF;SCROLLBAR-ARROW-COLOR: #bcbcbc; SCROLLBAR-BASE-COLOR: #f8f8f8; BACKGROUND-COLOR: #ffffff
}
BODY {
BACKGROUND-COLOR: #ffffff; COLOR: #333333; FONT-FAMILY: "宋體","MS Shell Dlg", "Tahoma" ; FONT-SIZE: 12px; scrollbar-highlight-color: buttonface; scrollbar-shadow-color: buttonface; scrollbar-3dlight-color: buttonhighlight; scrollbar-track-color: #eeeeee; scrollbar-darkshadow-color: buttonshadow
}
A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
COLOR: #009966; TEXT-DECORATION: underline
}
A:hover {
COLOR: #000000; TEXT-DECORATION: underline
}
A.hr:link {
COLOR: #000000; FONT-SIZE: 12px; TEXT-DECORATION: none
}
A.hr:visited {
COLOR: #000000; FONT-SIZE: 12px; TEXT-DECORATION: none
}
A.hr:hover {
COLOR: #fc6a04; FONT-SIZE: 12px; TEXT-DECORATION: underline
}
A.hr:active {
COLOR: #cc0000; FONT-SIZE: 12px
}
.BACKGROUND-COLOR {
BACKGROUND-COLOR: #993300; COLOR: #ff9900; FILTER: alpha(opacity=100)
}
TD {
FONT-SIZE: 9pt
}
BODY {
FONT-SIZE: 9pt
}
TR {
FONT-SIZE: 9pt
}
.txt1 {
FONT-SIZE: 12px; HEIGHT: 17px
}
.hight {
LINE-HEIGHT: 16px

.litter4 {
LETTER-SPACING: 4px
}
.font {
FONT-SIZE: 13px
}
.big {
FONT-SIZE: 16pt
}
.hight20 {
LINE-HEIGHT: 20px
}
.t11 {
FONT-SIZE: 11pt; TEXT-DECORATION: none
}
.letter2 {
LETTER-SPACING: 2px
}
.box_boder {
BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid
}
.input1 {
BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; CURSOR: hand; FONT-FAMILY: "宋體"; FONT-SIZE: 9pt; HEIGHT: 18px
}
.editbox1 {
BORDER-BOTTOM: #665b8e 1px solid; BORDER-LEFT: #665b8e 1px solid; BORDER-RIGHT: #665b8e 1px solid; BORDER-TOP: #665b8e 1px solid; COLOR: #333333; CURSOR: text; FONT-FAMILY: "MS Shell Dlg", "Tahoma", "宋體"; FONT-SIZE: 12px; HEIGHT: 20px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px
}
.editbox2 {
BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: #333333; CURSOR: text; FONT-FAMILY: "MS Shell Dlg", "Tahoma", "宋體"; FONT-SIZE: 12px
}
.editbox3 {
BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: #333333; CURSOR: text; FONT-FAMILY: "MS Shell Dlg", "Tahoma", "宋體"; FONT-SIZE: 12px
}
.editbox4 {
BACKGROUND: #e3e3e3; BORDER-BOTTOM: #333333 1px solid; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; COLOR: #333333; CURSOR: text; FONT-FAMILY: "MS Shell Dlg", "Tahoma", "宋體"; FONT-SIZE: 9pt; HEIGHT: 20px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px
}
.editbox5 {
BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT: 1px; BORDER-TOP-WIDTH: 1px; COLOR: #333333; CURSOR: text; FONT-FAMILY: "MS Shell Dlg", "Tahoma", "宋體"; FONT-SIZE: 12px; HEIGHT: 20px
}
.button1 {
BACKGROUND: #cccccc; BORDER-BOTTOM: #665b8e 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #665b8e 1px solid; BORDER-TOP: #ffffff 1px solid; COLOR: #333333; CURSOR: hand; FONT-FAMILY: "MS Shell Dlg", "Tahoma", "宋體"; FONT-SIZE: 12px; HEIGHT: 20px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px
}
.table1 {
BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px
}
</STYLE>

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數(shù)據(jù)庫的代碼
Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
‘sql數(shù)據(jù)庫連接參數(shù)：數(shù)據(jù)庫名、用戶密碼、用戶名、連接名（本地用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
‘免費用戶第一次使用請修改本處數(shù)據(jù)庫地址并相應修改data目錄中數(shù)據(jù)庫名稱，如將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 "數(shù)據(jù)庫連接出錯，請檢查連接字串。"‘注釋，需要把這幾個字翻譯成英文。
Response.End
End If
End Sub

35,SQL注入防御代碼(作者：NB聯(lián)盟－小竹)
Function ReqNum ( StrName )
ReqNum = Request ( StrName )
if Not isNumeric ( ReqNum ) then
Response.Write "參數(shù)必須為數(shù)字型!"
Response.End
End if
End Function

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

以上面三句SQL語句，說明一下調(diào)用方法：
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或是其它數(shù)據(jù)庫，都是絕對適用、絕對安全，但注意一點，SQLServer的存儲過程是個例外，該情況下要把單引號替換成四個單引號，以保安全。

36,ASP 3.0內(nèi)置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)

‘**************************************************
‘函數(shù)名：gotTopic
‘作用：截字符串，漢字一個算兩個字符，英文算一個字符
‘參數(shù)：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

‘**************************************************
‘函數(shù)名：strLength
‘作用：求字符串長度。漢字算兩個字符，英文算一個字符。
‘參數(shù)：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,"&#106avascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"&#106script:")
re.Pattern="(js:)"
t=re.Replace(t,"&#106s:")
‘re.Pattern="(value)"
‘t=re.Replace(t,"&#118alue")
re.Pattern="(about:)"
t=re.Replace(t,"about&#58")
re.Pattern="(file:)"
t=re.Replace(t,"file&#58")
re.Pattern="(document.cookie)"
t=re.Replace(t,"documents&#46cookie")
re.Pattern="(vbscript:)"
t=re.Replace(t,"&#118bscript:")
re.Pattern="(vbs:)"
t=re.Replace(t,"&#118bs:")
re.Pattern="(on(mouse|exit|error|click|key))"
t=re.Replace(t,"&#111n$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), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")

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, "</P><P> ",CHR(10) & CHR(10))
fString = Replace(fString, "<BR> ", 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,永遠帶著框架

在子框架文件中<head></head>之間加入:
<SCRIPT language=JavaScript>

</SCRIPT>
其中，框架.htm為頂層框架文件。

破解方法：
<frameset rows="0,100" frameborder="NO" border="0" framespacing="0">
<frame src="blank.html" name="topFrame" scrolling="NO" noresize>
<frame src="子框架頁地址" name="mainFrame">
</frameset>
<noframes><body>
</body></noframes>

40,改變IE地址欄的IE圖標

　　我們要先做一個16*16的icon（圖標文件），保存為index.ico。把這個圖標文件上傳到根目錄下并在首頁<head></head>之間加上如下代碼：

41,ASP代碼里嵌入各種播放器

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

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

select case Lcase(right(lurl,4))
case ".swf"
%>
<p align=center>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="534" height="424">
<param name="movie" value="<%=lurl%>">
<param name="quality" value="high">
<embed src="<%=lurl%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="534" height="424"></embed>
</object>
<%
CASE ".wmv",".mpg",".avi"
%>
<p align=center>
<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=500 height=450 >
<param name=ShowStatusBar value=-1>
<param name=Filename value=<%=replace(lurl,chr(32),"%20",1)%>>
<embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=<%=replace(lurl,chr(32),"%20",1)%> width=500 height=100></embed>
</object>
<%
CASE ".mp3",".mid"
%>
<p align=center>
<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=500 height=70 >
<param name=ShowStatusBar value=-1>
<param name=Filename value=<%=replace(lurl,chr(32),"%20",1)%>>
<embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=<%=replace(lurl,chr(32),"%20",1)%> width=500 height=70></embed>
</object>
<%
case else

select case Lcase(right(lurl,3))
case ".rm","ram"
%>
<p align=center>
<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=500 height=350>
<PARAM NAME=SRC VALUE=<%=lurl%>><PARAM NAME=CONSOLE VALUE=Clip1>
<PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true>
</OBJECT>
<br>
<OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500>
<PARAM NAME=SRC VALUE=<%=lurl%>><PARAM NAME=AUTOSTART VALUE=-1>
<PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1>
</OBJECT>
<%
case ".ra"
%>
<p align=center>
<OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500>
<PARAM NAME=SRC VALUE=<%=lurl%>><PARAM NAME=AUTOSTART VALUE=-1>
<PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1>
</OBJECT>
<%
case else
%>
<p align=center>
<embed name=player src=<%=lurl%> 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
<Shift>=16
<Ctrl>=17
<Alt>=18
<input type=text name=txt>
<script language=javascript>
function document.onkeydown()
{
txt.value = "keyCode = "+window.event.keyCode;

}
</script

43,不同時間段顯示不同問候語

43,隨機變換背景圖象（一個可以刷新心情的特效）

　　在<head></head>之間加上如下代碼：

　　<Script Language="javascript">
　　 image = new Array(4); //定義image為圖片數(shù)量的數(shù)組
　　 image [0] = tu0.gif //背景圖象的路徑
　　 image [1] = tu1.gif
　　 image [2] = tu2.gif
　　 image [3] = tu3.gif
　　 image [4] = tu4.gif
　　 number = Math.floor(Math.random() * image.length);
　　 document.write("<BODY BACKGROUND="+image[number]+">");
　　 </Script>

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

　　在<head></head>之間加上如下代碼：　　<style>
　　 .alpha{filter: Alpha(Opacity=50)} //50表示50%的透明度
　　 </style>

　　在<body></body>之間加上如下代碼：
　　 <table border="1" width="100" height="62" class="alpha" bgcolor="#F2A664" >
　　 <tr>
　　 <td width="100%" height="62">
　　 <div align="center">很酷吧!</div>
　　 </td>
　　 </tr>
　　 </table>

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

‘更改數(shù)據(jù)庫表名，入口參數(shù)：老表名、新表名
Sub RenameTable(oldName, newName)
On Error Resume Next
objADOXDatabase.Tables(oldName).Name = newName
If Err Then
Response.Write TableTop & "更改表名<font color=blue>錯誤</font>，請手動將數(shù)據(jù)庫中 <B>"&oldName&"</B> 表名更改為 <B>"&newName&"</B>，原因" & Err.Description & "<BR>" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "更改表名 "&OldName&" To "&newName&" 成功 <BR>" & TableEnd
Response.Flush
End If
End Sub

‘刪除字段通用函數(shù)
Sub DelColumn(TableName,ColumnName)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Drop "&ColumnName&"")
If Err Then
Response.Write TableTop & "刪除 "&TableName&" 表中字段<font color=blue>錯誤</font>，請手動將數(shù)據(jù)庫中 <B>"&ColumnName&"</B> 字段刪除，原因" & Err.Description & "<BR>" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "刪除 "&TableName&" 表中字段 "&ColumnName&" 成功 <BR>" & TableEnd
Response.Flush
End If
End Sub

‘添加字段通用函數(shù)
Sub AddColumn(TableName,ColumnName,ColumnType)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Add "&ColumnName&" "&ColumnType&"")
If Err Then
Response.Write TableTop & "新建 "&TableName&" 表中字段<font color=blue>錯誤</font>，請手動將數(shù)據(jù)庫中 <B>"&ColumnName&"</B> 字段建立，屬性為 <B>"&ColumnType&"</B>，原因" & Err.Description & "<BR>" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "新建 "&TableName&" 表中字段 "&ColumnName&" 成功 <BR>" & TableEnd
Response.Flush
End If
End Sub

‘更改字段通用函數(shù)
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&" 表中字段屬性<font color=blue>錯誤</font>，請手動將數(shù)據(jù)庫中 <B>"&ColumnName&"</B> 字段更改為 <B>"&ColumnType&"</B> 屬性，原因" & Err.Description & "<BR>" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "更改 "&TableName&" 表中字段屬性 "&ColumnName&" 成功 <BR>" & TableEnd
Response.Flush
End If
End Sub

‘刪除表通用函數(shù)
Sub DelTable(TableName)
On Error Resume Next
Conn.Execute("Drop Table "&TableName&"")
If Err Then
Response.Write TableTop & "刪除 "&TableName&" 表<font color=blue>錯誤</font>，請手動將數(shù)據(jù)庫中 <B>"&TableName&"</B> 表刪除，原因" & Err.Description & "<BR>" & TableEnd
Err.Clear
Response.Flush
Else
Response.Write TableTop & "刪除 "&TableName&" 表成功 <BR>" & TableEnd
Response.Flush
End If
End Sub

46,今天在動網(wǎng)，看到有人問如何使Frmae背景透明?剛好我以前用過，Kafree現(xiàn)提供代碼：
IFRAME里加上屬性：allowtransparency="true"
IFRAME的SRC網(wǎng)頁加上：
<style type="text/css">

</style>

本站僅提供存儲服務，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權內(nèi)容，請點擊舉報。

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看