网页代码

2005-11-12 00:00:00

799 596

20,Iframe透明背景1).打開您的主網頁，複製程式碼到之中：要確定絕對不能刪去"allowtransparency="true"這一行喔！2).打開您iframe裡面的網頁，複製程式碼到之中：編輯內容：

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

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

另外，在表格里加入style=";word-break:break-all"，可以防止内容撑破本格。22,实现网页转换特殊过渡效果（作者：techsun本文选自《5D多媒体》）当我们点击网页上的链接时，浏览器页面就会转到链接指向的新的页面，我们想在页面转换时加上过渡效果。

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

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随机产生一种过渡方式

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

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

//自动滚屏varcurrentpos,timer;functioninitialize(){timer=setInterval("scrollwindow()",30);}

functionsc(){clearInterval(timer);}

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

varday="";varmonth="";varampm="";varampmhour="";varmyweekday="";varyear="";mydate=newDate();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="星期日";elseif(myweekday==1)weekday="星期一";elseif(myweekday==2)weekday="星期二";elseif(myweekday==3)weekday="星期三";elseif(myweekday==4)weekday="星期四";elseif(myweekday==5)weekday="星期五";elseif(myweekday==6)weekday="星期六";

以下的放在目标位置：

29,滚动显示区域

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

31,右键打开收藏夹

33,写组件DLL时有用的代码OptionExplicitPrivateobjContextAsObjectPrivateResponseAsResponsePrivateRequestAsRequestPrivateServerAsServerPrivateApplicationAsApplicationPrivateSessionAsSessionPrivateSubClass_Initialize()DimobjContextAsObjectContextSetobjContext=GetObjectContext()SetResponse=objContext("Response")SetRequest=objContext("Request")SetServer=objContext("Server")SetApplication=objContext("Application")SetSession=objContext("Session")EndSubPrivateSubClass_Terminate()SetobjContext=NothingSetResponse=NothingSetRequest=NothingSetServer=NothingSetApplication=NothingSetSession=NothingEndSub

34,DVBBS7.0中的一段打开Access、SQL数据库的代码SubConnectionDatabaseDimConnStrIfIsSqlDataBase=1Then‘sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）DimSqlDatabaseName,SqlPassword,SqlUsername,SqlLocalNameSqlDatabaseName="dvbbs7"SqlPassword=""SqlUsername="dvbbs"SqlLocalName="(local)"ConnStr="Provider=Sqloledb;UserID="&SqlUsername&";Password="&SqlPassword&";InitialCatalog="&SqlDatabaseName&";DataSource="&SqlLocalName&";"Else‘免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.aspDb="data/dvbbs6.mdb"ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)EndIfOnErrorResumeNextSetconn=Server.CreateObject("ADODB.Connection")conn.openConnStrIfErrThenerr.ClearSetConn=NothingResponse.Write"数据库连接出错，请检查连接字串。"‘注释，需要把这几个字翻译成英文。Response.EndEndIfEndSub

35,SQL注入防御代码(作者：NB联盟－小竹)FunctionReqNum(StrName)ReqNum=Request(StrName)ifNotisNumeric(ReqNum)thenResponse.Write"参数必须为数字型!"Response.EndEndifEndFunction

FunctionReqStr(StrName)ReqStr=Replace(Request(StrName),"‘","‘‘")EndFunction

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

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

36,ASP3.0内置Application、ASPError、Request、Session、ObjectContext、Server等7个对象。

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

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

dvHTMLEncode=fStringendifendfunction

functionnohtml(str)dimreSetre=newRegExpre.IgnoreCase=truere.Global=Truere.Pattern="(\<.[^\<]*\>)"str=re.replace(str,"")re.Pattern="(\<\/[^\<]*\>)"str=re.replace(str,"")nohtml=strsetre=nothingendfunction

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

copypowereasy.dll%windir%\system32regsvr32%windir%\system32\powereasy.dll

更新组件.bat:netstopiisadmin/yregsvr32/u/s%windir%\system32\powereasy.dllcopypowereasy.dll%windir%\system32regsvr32/s%windir%\system32\powereasy.dllnetstartw3svc

卸载组件.bat:netstopiisadmin/yregsvr32/u%windir%\system32\powereasy.dlldel%windir%\system32\powereasy.dllnetstartw3svc

39,永远带着框架

在子框架文件中之间加入:其中，框架.htm为顶层框架文件。

破解方法：<body></body>

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

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

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

<%‘---------------------‘writeby绿水青山‘---------------------

dimlurllurl=Request.QueryString("url")

selectcaseLcase(right(lurl,3))case".rm","ram"%>>
><%case".ra"%>><%caseelse%>type=audio/x-pn-realaudio-pluginwidth=500height=150border=0autostart=1><%endselectendselect%>

42,Showevent.keycodeKeycodesforthenumberandpunctuationkeysarethesameastheASCIIcodeofthenumberonthekey=16=17=18functiondocument.onkeydown(){txt.value="keyCode="+window.event.keyCode;

}

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

在之间加上如下代码：

image=newArray(4);//定义image为图片数量的数组image[0]=tu0.gif//背景图象的路径image[1]=tu1.gifimage[2]=tu2.gifimage[3]=tu3.gifimage[4]=tu4.gifnumber=Math.floor(Math.random()*image.length);document.write("");

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

在之间加上如下代码：

在之间加上如下代码：很酷吧!