收集整理的代码

最新推荐文章于 2022-04-17 12:51:29 发布

RemanticMemory

最新推荐文章于 2022-04-17 12:51:29 发布

阅读量1.7k

点赞数

分类专栏： asp.net技术文章标签： javascript function object transition application border

本文链接：https://blog.csdn.net/remanticmemory/article/details/1537599

版权

asp.net技术专栏收录该内容

56 篇文章 0 订阅

订阅专栏

收集整理的代码

1,总结的一些尺寸：
不同分辨率下浏览器不出现滚动条的极限尺寸:
780*452(状态栏浮,800x600) 780*480（无浮动栏,800x600）1004*651（无浮动栏，1024x768） 1004*623（状态栏浮，1024x768）

其它:
banner:468*60 网站标志(没有规定尺寸):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>此网页使用了框架，但您的浏览器不支持框架。</p>
</body>
</noframes>
</frameset>
</html>

3,制作1px边框表格的几种方法（来源：视觉中国　作者：钟钟）

一、用嵌套表格

用两个表格嵌套，外层的表格的长与宽比里层的多出2px，并设置对齐属性为水平居中、垂直居中，然后把外层表格的背景设为你需要的边框颜色，里层表格背景设为与网页背景相同，这样就实现我们的愿望了，实例如下：
-----------------------------------------------------------------
<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，你会发现，在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)属性，否则不会出现预想的结果。

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 客户端发送的所有 HTTP 标题文件。
ALL_RAW 检索未处理表格中所有的标题。
ALL_RAW 和 ALL_HTTP 不同，ALL_HTTP 在标题文件名前面放置 HTTP_ prefix，并且标题名称总是大写的。使用 ALL_RAW 时，标题名称和值只在客户端发送时才出现。 <script language="JavaScript" type="text/javascript"> </script>

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="#"
　 οnclick="javascript:window.open('文件路径/文件名','newwindow',
　 'toolbar=no,scrollbars=yes,resizable=no,top=0,left=0,
　 width=400,height=300');">文字或图片</a>

　参数解释：
　 <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 是否显示状态栏内的信息（通常是文件已经打开），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 οncοntextmenu="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,窗口定时关闭
先将如下代码网页文件的区：
　 <script language="JavaScript">
　 function closeit() { setTimeout("self.close()",10000) //毫秒 }
　 </script>
然后再在<body>标内加入如：<body οnlοad="closeit()">

15,网页自动关闭
　 <html>
　 <head>
　 <object id=closes type="application/x-oleobject"
　 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
　 <param name="Command" value="Close">
　 </object>
　 </head>
　 <body οnlοad="window.setTimeout('closes.Click()',10000)">
　这个窗口会在10秒过后自动关闭,而且不会出现提示.
　 </body>
　 </html>

16,网页自动刷新
在head部记入
　 <META HTTP-EQUIV="Refresh" content="20">
其中20为20秒后自动刷新，你可以更改为任意值。

17,网页自动转页
<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). 打開您的主網頁，複製程式碼到 <body></body> 之中：
<IFRAME src="網頁二.htm" /*iframe 內的網頁*/
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 裡面的網頁，複製程式碼到 <head></head> 之中：
<style type="text/css">

</style>

編輯內容：

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

21,论坛贴图，当图片过大就会引网页的变形的解决方法：
设置表格样式：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/" οnlοad="javascript:if(this.width>100)this.width=100"></td>
</tr>
</table>

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

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

打开这个页面的原代码，在<head>与</head>插入代码：
<meta http-equiv="Page-Exit" content="revealTrans(Duration=3,Transition=5)">

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

我们现在再试一个效果，将那段代码换成：
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1,Transition=14)">

我们看到页面是从中间向左右两端展开过渡的，而且速度上快了一点。原因在于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中的一个过渡效果。例如：<meta http-equiv="Page-Exit" content="revealTrans(Duration=2,Transition=23)">

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

23,禁止网页图片的下载

下面的代码将帮助你禁止网页中目标对象被下载：<a href="javascript:void(0)" onMouseDown="alert('对不起!图片不能下载！')"></a>

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

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

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

25,网页中双击向下滚屏

//自动滚屏
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.οnmοusedοwn=sc
document.οndblclick=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路网')">加入收藏夹</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,滚动显示区域
<MARQUEE direction=up height=125 οnmοuseοut=this.start() οnmοuseοver=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>　海风文学社社庆九周年,连同海大另外三大社团联谊，诸多海风新老社员参加了这次有意义的活动。</FONT>
<LI><FONT color=#008000>2000.12.16</FONT><FONT
color=#008080>　海风文学社主页开通，这是真正属于海风文学社的第一个网站。</FONT> </LI>
</MARQUEE>

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

31, 右键打开收藏夹

脚本说明:
把如下代码加入<body>区域中
<script language=JavaScript1.2>
if (document.all)
document.body.οnmοusedοwn=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数据库的代码
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,"&#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为图片数量的数组
　　 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语句

'更改数据库表名，入口参数：老表名、新表名
Sub RenameTable(oldName, newName)
On Error Resume Next
objADOXDatabase.Tables(oldName).Name = newName
If Err Then
Response.Write TableTop & "更改表名<font color=blue>错误</font>，请手动将数据库中 <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

'删除字段通用函数
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>，请手动将数据库中 <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

'添加字段通用函数
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>，请手动将数据库中 <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

'更改字段通用函数
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>，请手动将数据库中 <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

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

RemanticMemory

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
2
评论
收集整理的代码

收集整理的代码1,总结的一些尺寸：不同分辨率下浏览器不出现滚动条的极限尺寸:780*452(状态栏浮,800x600) 780*480（无浮动栏,800x600）1004*651（无浮动栏，1024x768） 1004*623（状态栏浮，1024x768）其它:banner:468*60 网站标志(没有规定尺寸):111*36 LOGO：88*31 2,HTML模板"http://www.
复制链接

扫一扫