2014-07-12 14:21:40

View Mode: Normal | Article List
September, 2004 | 1 | 2 | 3 | >

Html实现的转向

[ 2004-09-08 18:44:50 | Author: zhenhua ]
不隐藏转向之后的地址 代码一
------------------------------------------------------------------------------
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title></title>
</head>
<body>
<form name=loading>
<P align=center><FONT face=Arial color=#0066ff size=2>loading...</FONT> <INPUT
style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-WEIGHT: bolder; PADDING-BOTTOM: 0px; COLOR: #0066ff; BORDER-TOP-style: none;
...

Read More...

英文/数字/标点自动换行

[ 2004-09-08 18:44:08 | Author: zhenhua ]
表格对英文数字和标点的强制换行
1,固定表格
<table style="layout:fixed;width:600">


2,字符换行
td里面添加
style="word-break:break-all;word-wrap:break-word"

弹出窗口居中

[ 2004-09-08 18:43:34 | Author: zhenhua ]
方法:onclick、Javascript、window.open、
height=h,width=w,top='+(screen.availHeight-h)/2+',left='+(screen.availWidth-w)/2+',

防注入代码

[ 2004-09-08 18:42:50 | Author: zhenhua ]
ASP:
作者:Neeao
<%
'--------数据库连接部分--------------
dim dbkillSql,killSqlconn,connkillSql
dbkillSql="Sql.asp"
'On Error Resume Next
Set killSqlconn = Server.CreateObject("ADODB.Connection")
connkillSql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbkillSql)
killSqlconn.Open connkillSql
If Err Then
 err.Clear
 Set killSqlconn = Nothing
 Response.Write "数据库连接出错,请检查连接字串。"
 Response.End
End If

'--------定义部份------------------
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql
...

Read More...

ASP目录直读

[ 2004-09-08 18:41:54 | Author: zhenhua ]
<!---将此文件存index.asp看看效果就知道了加上权限就可以方便自己了,--->
<%
'const_domain_name为域名最后不要加斜杠
const const_domain_name="http://localhost"
%>
<style>
b,img,a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;}
span{font-size:12pt;}
</style>

<%
'------------------------------------------------显示当前目录下的子目录和文件
sub list
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("."))
set fs=f.SubFolders
Set fc =f.Files

For Each fss in fs
...

Read More...

弹广告的代码

[ 2004-09-08 18:40:37 | Author: zhenhua ]
1.
<script>
for(i=0;i<2;i++){
document.write("<form name=form"+i+" action=http://bbs.cn90.net target=_blank><\/form>");
eval("document.form"+i+".submit();");
}
</script>

2.加强:
<SCRIPT language=javascript>
window.showModelessDialog("http://mp3.it006.com/ad.htm","CHINAZindexP","center:no;dialogLeft:
5px;dialogTop:5px;scroll:0;status:0;help:0;resizable:0;dialogWidth:900px;dialogHeight:625px")
</SCRIPT>


3.一个IP只弹出一次的退窗代码

<%
if session("ad")<>"ad" then
%>
...

Read More...

ASP页面自动转换为Word文档

[ 2004-09-08 18:39:40 | Author: zhenhua ]
方法1:
<% Response.ContentType = "application/msword" %>


方法2:
<%
Response.Buffer=true
取得要下载的文件,如果不为空。就下载
dim url,trueurl
url="下载文件路径和下载文件名"
fname=Request("filename")
if fname<>"" then
trueurlurl=server.MapPath("/") &url
end if
set objFso=server.CreateObject("scripting.filesystemobject")
set fn=objFso.GetFile(trueurl)
flsize=fn.size
flname=fn.name
set fn=nothing
set objFso=nothing

set objStream=server.CreateObject("adodb.stream")
objStream.Open
objStream.Type=1
objStream.LoadFromFile url
...

Read More...

META标签使用详解

[ 2004-09-08 18:38:49 | Author: zhenhua ]
META标签,是HTML语言head区的一个辅助性标签。在几乎所有的page里,我们都可以看到类似下面这段html代码:
-------------------------------------------------------------------------
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
-------------------------------------------------------------------------

这就是meta标签的典型运用。meta标签有多少参数,有什么作用,为什么我们要特别重视它呢?让我们一起来发掘meta标签的奥妙!

根据HTML语言标准注释:meta标签是对网站发展非常重要的标签,它可以用于鉴别作者,设定页面格式,标注内容提要和关键字,以及刷新页面等等。

meta标签分两大部分:HTTP-EQUIV和NAME变量。

HTTP-EQUIV类似于HTTP的头部协议,它回应给浏览器一些有用的信息,以帮助正确和精确地显示网页内容。
...

Read More...
1 | 2 | 3 | >