发个符合XHTML 1.0 Transitional标准的页面

Anlige 2008-05-04 10:01:14



<%

response.buffer=false

if request.querystring("act")="logout" then

response.Cookies("user").Expires=now()

response.redirect "index.asp"

end if

Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&vbcrlf

Response.Write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbCrLf

Response.Write "<head>" & vbCrLf

Response.Write "<title>知寻网</title>" & vbCrLf

Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />" & vbCrLf

Response.Write "<meta name=""keywords"" content=""知寻网"" />" & vbCrLf

Response.Write "<meta name=""description"" content=""知寻网"" />" & vbCrLf

Response.Write "<meta name=""robots"" content=""all"" />" & vbCrLf

Response.Write "<meta name=""AUTHOR"" content=""Anlige"" />" & vbCrLf

Response.Write "<link rel=""stylesheet"" href=""inc/index.css"" type=""text/css"" />" & vbCrLf

Response.Write "</head>" & vbCrLf

Response.Write "<body>" & vbCrLf

Response.Write "<div class=""bkg"">" & vbCrLf

Response.Write "<div id=""head"" style=""background:url('images/bg3.jpg') repeat-x;border:#eeeeee 1px solid;text-align:right;padding-right:15px;padding-top:3px;width:948px;height:25px;"">" & vbCrLf

if request.cookies("user")("id")="" then

Response.Write "<a href=""login.asp"">登录</a>   <a href=""Register.asp"">注册</a>"

else

Response.Write "欢迎你"&request.cookies("user")("count")&vbcrlf

Response.Write "   <a href=""index.asp?act=logout"">注销</a>"&vbcrlf

end if

Response.Write "   找回密码 | <a style=""cursor:hand;"" onclick=""this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.zhi2xun.cn');"">设为主页</a> <a style=""cursor:hand;"" onclick=""javascript:window.external.addFavorite('http://ww.i-source.cn','知寻网----诚心与爱心的见证！');"">加入收藏</a> 联系我们"

Response.Write "</div>" & vbCrLf

Response.Write "<div style=""width:948px;height:100px;vertical-align:middle;padding-top:20px"">" & vbCrLf

%>

<table style="width:948px;border:0px;border-collapse: collapse">

<tr>

<td align="center"><a href="index.asp"><img style="border:0px" src="images/index.jpg" alt="a" /></a></td>

<td align="center"><img style="border:0px" src="http://www.ii-home.cn/images/lost.jpg" alt="a" /></td>

<td align="center"><img style="border:0px" src="http://www.ii-home.cn/images/find.jpg" alt="a" /></td>

<td align="center"><img style="border:0px" src="http://www.ii-home.cn/images/logo.jpg" alt="a" /></td>

<td align="center"><img style="border:0px" src="http://www.ii-home.cn/images/my.jpg" alt="a" /></td>

<td align="center"><img style="border:0px" src="http://www.ii-home.cn/images/search.jpg" alt="a" /></td>

<td align="center"><img style="border:0px" src="http://www.ii-home.cn/images/liuyan.jpg" alt="a" /></td>

</tr>

<tr>

<td align="center"><a href="index.asp">首页</a></td>

<td align="center">找失物</td>

<td align="center">寻失主</td>

<td align="center"><font size="2" face="隶书">知寻网</font></td>

<td align="center">我的知寻</td>

<td align="center">高级搜索</td>

<td align="center">留言簿</td>

</tr>

</table>

<%

Response.Write "</div>" & vbCrLf

Response.Write "<div style=""border:#D0DBE7 1px solid;text-align:left;padding-left:3px;padding-top:6px;width:948px;height:30px;"">" & vbCrLf

Response.Write "<b><span id=""mytime"" style=""border-right:1px #dddddd solid;padding:3px;padding-top:4px;"">"&now()&"</span></b>  "

Response.Write "<font color=""red"">         支持知寻(0)    反对知寻(0)</font></div>" & vbCrLf

%>

<div style="margin-top:6px;text-align:left;border:#D0DBE7 1px solid;padding:3px;width:948px;height:60px;">

<b>友情链接:</b><br />新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度  新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 新浪 搜狐 百度 



</div>

<%

Response.Write "<table id=""footer"" cellspacing=""0"" cellpadding=""0"" style=""width:948px;margin-top:15px;margin-bottom:10px;border:0px;border-collapse: collapse"">" & vbCrLf

Response.Write "<tr>" & vbCrLf

Response.Write "    <td align=""center"" style=""padding-top:5px"">" & vbCrLf

Response.Write "关于本站 | 广告服务 | 合作伙伴 | 联系我们 | 版权说明<br />" & vbCrLf

Response.Write "CopyRight 2008-- 版权所有zhi2xun.cn<br />" & vbCrLf

response.write "<img src=""http://www.ii-home.cn/images/biaoshi.gif"" width=""15"" style=""vertical-align:bottom;margin-bottom:6px"" alt=""a"" />备案号:鲁ICP备07501292号"

Response.Write "          </td>" & vbCrLf

Response.Write "        </tr>" & vbCrLf

Response.Write "</table></div>" & vbCrLf

Response.Write "</body>" & vbCrLf

Response.Write "</html>"

%>