| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 | 
登录
注册
用户控制面板
搜索
道具
风格
短消息
论坛展区
帮助
编程论坛 → WEB开发 → 『 ASP技术论坛 』 → [求助]为什么我这页无法显示啊
我的收件箱(0)
欢迎加入我们，一同切磋技术
用户名：   
 
密　码：  
共有 617 人关注过本帖
标题：[求助]为什么我这页无法显示啊
只看楼主 加入收藏
MC6000
Rank: 1
等　级：新手上路
帖　子：1
专家分：0
注　册：2005-12-1
楼主
收藏
 问题点数：0 回复次数：2 
[求助]为什么我这页无法显示啊

我在自己机子上架设一个交友网站，首页是default.asp 但是用浏览器无法显示该页，源代码如下，希望高手解答

<%Option Explicit%>
<!--#include file="conn.asp"-->
<%
dim connpic
dim rs_user,rs_today,rs_lar,rs_new,rs_board,rs_boy,rs_girl
dim sql,records,today_records,rs_pic
dim i,j,k

if isempty(session("user_id")) then session("user_id")=1

'取得入会人数
Set rs_user = Server.CreateObject("ADODB.Recordset")
rs_user.open "user_reg",conn,1,1
records=rs_user.recordcount
rs_user.close:set rs_user=nothing

'取得当天入会人数
Set rs_today = Server.CreateObject("ADODB.Recordset")
rs_today.open "select * from user_reg where date=" & cdate(date) & "" ,conn,1,1
today_records=rs_today.recordcount
rs_today.close:set rs_today=nothing

'取得人气最高的网友（10位）
Set rs_lar = Server.CreateObject("ADODB.Recordset")
rs_lar.open "select * from larchives order by renqi desc",conn,1,1

'取得人气最高的男主角
Set rs_boy = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where photo>0 and sex like '" & "男" & "' order by renqi desc"
rs_boy.open sql,conn,1,1

'取得人气最高的女主角
Set rs_girl = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where photo>0 and sex like '" & "女" & "' order by renqi desc"
rs_girl.open sql,conn,1,1

'取得最新加入的网友（10位）
Set rs_new = Server.CreateObject("ADODB.Recordset")
rs_new.open "select * from larchives order by lar_id desc",conn,1,1

'取得寻友启事
Set rs_board = Server.CreateObject("ADODB.Recordset")
rs_board.open "select * from callboard order by id desc",conn,1,1

%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Namo WebEditor v4.0(Trial)">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>交友网站</title>
<meta name="generator" content="Namo WebEditor v4.0(Trial)">
<style type="text/css"></style>
<link rel="stylesheet" href="ysb.css">
</head>
<body bgcolor="#ffffff" text="black" link="#003300" vlink="#660000" alink="#CC0033" leftmargin="1"
topmargin="0">
<table width="772" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="images/top.gif" width="772" height="112" usemap="#Map2" border="0"></td>
</tr>
</table>
<table border="0" width="772" cellspacing="0" cellpadding="0" bordercolor="white" bordercolordark="white" bordercolorlight="white" bgcolor="#FFFFFF" align="center">
<tr>
<td width="182" bgcolor="#ffffff" valign="top" align="center" bordercolor="#660000">
<table
border="0" cellspacing="0" width="160"
height="1" cellpadding="0">
<tr>
<td height="102" bgcolor="white">
<table cellspacing=0 cellpadding=0 width="100%"
border=0>
<tbody>
<tr>
<td width="100%"></td>
</tr>
<tr>
<td width="100%"><img src="image/03.gif" width="165" height="24"></td>
</tr>
<tr>
<td>
<div align=center>
<center>
<table border="0" width="165" background="image/bg2.gif">
<tr align="center" valign="bottom">
<td width="100%">
<form action="login.asp" method="POST">
<table border="0" width="160" cellspacing="0" cellpadding="0">
<tr>
<td width="31%" align="center" height="25">用户名:</td>
<td width="69%" height="25">
<input name=user_name style="BACKGROUND-COLOR:#FFEBE1;BORDER-BOTTOM:#000000 1px solid;BORDER-LEFT:#000000 1px solid;BORDER-RIGHT:#000000 1px solid;BORDER-TOP:#000000 1px solid;FONT-SIZE:9pt;WIDTH:80px">
</td>
</tr>
<tr valign="bottom">
<td width="31%" align="center" height="25">密&nbsp;
码:</td>
<td width="69%" height="25">
<input name=password style="BACKGROUND-COLOR:#FFEBE1;BORDER-BOTTOM:#000000 1px solid;BORDER-LEFT:#000000 1px solid;BORDER-RIGHT:#000000 1px solid;BORDER-TOP:#000000 1px solid;FONT-SIZE:9pt;WIDTH:80px" type="password">
</td>
</tr>
<tr align="center" valign="bottom">
<td colspan="2" height="30">
<input type="image" border="0" name="login" src="images/denglu.GIF" width="30" height="15" alt="用户登录">
<a href="reg.asp" target="_blank" title="刚刚做完，只有几十张卡片！"><img src="images/zhuce.GIF" width="30" height="15" border="0" alt="新用户注册"></a>
</td>
</tr>
<tr align="center" valign="bottom">
<td colspan="2" height="17">&nbsp; </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<img src="image/02.gif" width="165" height="26" usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="58,4,146,22" href="reg.asp" target="_blank"></map>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
<table border="1" width="160" cellspacing="0" cellpadding="0" bordercolorlight="#330000" bordercolordark="#FFFFFF" bordercolor="#330000">
<tr bgcolor="#FFCCFF">
<td width="90" height="17" align="center">会员总数</td>
<td width="67" height="17" align="center">今日加入</td>
</tr>
<tr bgcolor="#FFEBE1">
<td width="90" align="center" height="20" bgcolor="#FFEBE1"><%=records%><font color="#FF0000">　</font></td>
<td width="67" align="center" height="20" bgcolor="#FFEBE1"><%=today_records%><font color="#FF0000">　</font></td>
</tr>
</table>
<br>
<table border="1" width="160" bordercolor="#CC0000" cellspacing="0" cellpadding="0" bordercolorlight="#990000" bordercolordark="#FFFFFF">
<tr bgcolor="#FFCCFF">
<td width="155" align="center" height="17"> 网 际 寻 友</td>
</tr>
<tr bgcolor="#FFEBE1">
<td width="155">
<form action="searchout.asp" method="POST">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bordercolor="#A5EF00">
<tr>
<td width="15%" height="17">
<input type="checkbox" name="c_sex" value="ON" checked>
</td>
<td width="20%" height="17">性别:</td>
<td width="65%" height="17">
<input type="radio" value="男" name="sex">
男
<input type="radio" value="女" name="sex" checked>
女</td>
</tr>
<tr>
<td width="15%" height="17">
<input type="checkbox" name="c_photo" value="ON" checked>
</td>
<td width="20%" height="17">照片</td>
<td width="65%" height="17">
<input type="radio" value="有" name="photo" checked>
有
<input type="radio" value="无" name="photo">
无 </td>
</tr>
<tr>
<td width="15%">
<input type="checkbox" name="c_name" value="ON">
</td>
<td width="20%">姓名:</td>
<td width="65%">
<input name=name style="BACKGROUND-COLOR:#FFEBE1;BORDER-BOTTOM:#000000 1px solid;BORDER-LEFT:#000000 1px solid;BORDER-RIGHT:#000000 1px solid;BORDER-TOP:#000000 1px solid;FONT-SIZE:9pt;WIDTH:90px">
</td>
</tr>
<tr>
<td width="15%">
<input type="checkbox" name="c_netname" value="ON">
</td>
<td width="20%">网名:</td>
<td width="65%">
<input name=netname style="BACKGROUND-COLOR:#FFEBE1;BORDER-BOTTOM:#000000 1px solid;BORDER-LEFT:#000000 1px solid;BORDER-RIGHT:#000000 1px solid;BORDER-TOP:#000000 1px solid;FONT-SIZE:9pt;WIDTH:90px" >
</td>
</tr>
<tr>
<td width="15%">
<input type="checkbox" name="c_job" value="ON">
</td>
<td width="20%">职业:</td>
<td width="65%">
<SELECT name="job" size="1">
<OPTION selected value=管理>管理</OPTION>
<OPTION value=工程>工程</OPTION>
<OPTION value=金融财务>金融财务</OPTION>
<OPTION value=技术>技术</OPTION>
<OPTION value=经济业务>经济业务</OPTION>
<OPTION value=法律>法律</OPTION>
<OPTION value=保险>保险</OPTION>
<OPTION value=教师>教师</OPTION>
<OPTION value=科研>科研</OPTION>
<OPTION value=设计>设计</OPTION>
<OPTION value=行政>行政</OPTION>
<OPTION value=文体卫生>文体卫生</OPTION>
<OPTION value=服务>服务</OPTION>
<OPTION value=军队公安>军队公安</OPTION>
<OPTION value=IT>IT</OPTION>
<OPTION value=公务员>公务员</OPTION>
<OPTION value=其它>其它</OPTION>
</SELECT>
</td>
</tr>
<tr>
<td width="15%">
<input type="checkbox" name="c_age" value="ON">
</td>
<td width="20%">年龄:</td>
<td width="65%">
<input type="text" name="age1" size="2" value="30">
岁到
<input type="text" name="age2" size="2" value="20">
岁</td>
</tr>
<tr valign="bottom">
<td colspan="3" height="30">
<p align="center">
<input type="submit" name="Submit" value="搜索">

</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<br>
</td>
<!--1td-->
<td width="439" valign="top">
<table border="0" width="100%">
<tr align="center">
<td>
<table border="0" width="419" cellspacing="0" cellpadding="0" height="163">
<tr>
<td width="228" valign="top"> <%Set connpic = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data/picture.asp")
connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

if rs_girl.eof and rs_girl.bof then%>
<table border="0" width="213" cellspacing="0" cellpadding="0">
<tr>
<td width="100" align="right" rowspan="7"><img border="0" src="image/x.jpg" width="79" height="105"></td>
<td width="15" align="center" rowspan="7">&nbsp;</td>
<td><font color="#FFFFFF">&nbsp;</font></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td rowspan="5">&nbsp;</td>
</tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
</table>
<%else
Set rs_pic = Server.CreateObject("ADODB.Recordset")
sql="select * from pic where user_id=" & rs_girl("user_id")
rs_pic.open sql,connpic,1,1

%>
<table border="0" width="209" cellspacing="0" cellpadding="0">
<tr>
<td width="100" align="center" rowspan="7" height="155"><a href='read.asp?user_id=<%=rs_girl("user_id")%>'><font color="black"><img border="1" src='display.asp?id=<%=rs_pic("id")%>' width="90" height="120"></font></a></td>
<td width="15" rowspan="7" valign="bottom">&nbsp;</td>
<td><font color="black">&nbsp;</font></td>
</tr>
<tr>
<td>性别:<font color="#CC0033">女</font></td>
</tr>
<tr>
<td>网名:<font color="#ff0000"><%=rs_girl("netname")%></font></td>
</tr>
<tr>
<td>年龄:<font color="#ff0000"><%=rs_girl("age")%></font></td>
</tr>
<tr>
<td>学历:<font color="#ff0000"><%=rs_girl("education")%></font></td>
</tr>
<tr>
<td>职业:<font color="#ff0000"><%=rs_girl("job")%></font></td>
</tr>
<tr>
<td>来自:<font color="#ff0000"><%=left(rs_girl("home"),3)%></font></td>
</tr>
</table>
<%rs_girl.close:set rs_girl=nothing%> <%end if%> </td>
<td width="202"> <%if rs_boy.eof and rs_boy.eof then%>
<table border="0" width="206" cellspacing="0" cellpadding="0">
<tr>
<td width="100" align="center" rowspan="7"><img border="0" src="image/x.jpg" width="79" height="105"></td>
<td width="15" align="center" rowspan="7">&nbsp;</td>
<td width="60">&nbsp;</td>
</tr>
<tr>
<td width="60"></td>
</tr>
<tr>
<td width="60"></td>
</tr>
<tr>
<td width="60"></td>
</tr>
<tr>
<td width="60"></td>
</tr>
<tr>
<td width="60" bgcolor="white"></td>
</tr>
<tr>
<td width="60"></td>
</tr>
</table>
<%else
Set rs_pic = Server.CreateObject("ADODB.Recordset")
sql="select * from pic where user_id=" & rs_boy("user_id")
rs_pic.open sql,connpic,1,1
%>
<table border="0" width="208" cellspacing="0" cellpadding="0">
<tr>
<td width="100" align="center" rowspan="7" height="155"><a href='read.asp?user_id=<%=rs_boy("user_id")%>'>
<img border="1" src='display.asp?id=<%=rs_pic("id")%>' width="90" height="120"></a></td>
<td width="15" align="center" rowspan="7">&nbsp;</td>
<td><font color="black">&nbsp;</font></td>
</tr>
<tr>
<td>性别:<font color="#FF0000">男</font></td>
</tr>
<tr>
<td>网名:<font color="#ff0000"><%=rs_boy("netname")%></font></td>
</tr>
<tr>
<td>年龄:<font color="#ff0000"><%=rs_boy("age")%></font></td>
</tr>
<tr>
<td>学历:<font color="#ff0000"><%=rs_boy("education")%></font></td>
</tr>
<tr>
<td>职业:<font color="#ff0000"><%=rs_boy("job")%></font></td>
</tr>
<tr>
<td>来自:<font color="#ff0000"><%=left(rs_boy("home"),3)%></font></td>
</tr>
</table>
<%rs_pic.close:set rs_pic=nothing:set connpic=nothing
rs_boy.close:set rs_boy=nothing
end if%> </td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="100%" valign="top">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>&nbsp; </td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0" cellpadding="5" cellspacing="0" align="center" width="100%">
<tr>
<td bordercolor="#FF9900" colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25%"><img src="image/1%5B3%5D.gif" width="12" height="12">
本周强力推荐<img src="image/1%5B3%5D.gif" width="12" height="12"></td>
<td width="75%">
<hr noshade size="1">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" width="30%" rowspan="8"><a href='read.asp?user_id=143'><font color="black"><img border="1" src='display.asp?id=4' width="90" height="120"></font></a><a href="read.asp?user_id=143" target="_blank"><br>
详细资料--&gt; </a></td>
<td rowspan="8" align="center" valign="top">
<table width="98%" border="0" cellspacing="0" cellpadding="2">
<tr align="center" bgcolor="#FFFFFF">
<td width="70%" height="15">第1期（2月12日--3月19日）</td>
</tr>
<tr>
<td width="70%">
<p>网名：<font color="#660000"> 真水无香</font></p>
</td>
</tr>
<tr align="center">
<td width="70%" align="left">来自：<font color="#660000">
广东省深圳市</font></td>
</tr>
<tr align="center">
<td width="70%" align="left">
<p>职业： 管理</p>
</td>
</tr>
<tr align="center">
<td width="70%" align="left">
<p>性格： 比较犹豫</p>
</td>
</tr>
<tr align="center">
<td width="70%" align="left">
<p>OICQ：<font color="#660000"> -没填-</font></p>
</td>
</tr>
<tr align="center">
<td width="70%" align="left">
<p>生日：<font color="#660000"> 保密</font></p>
</td>
</tr>
<tr align="center">
<td width="70%" align="left"> 主页： <font color="#660000"></font></td>
</tr>

<tr align="center">
<td width="70%" align="left">
<p>自我介绍：喜欢玩风云江湖</p>
</td>
</tr>
</table>
</td>
</tr>
<tr align="center"> </tr>
<tr align="center"> </tr>
<tr align="center"> </tr>
<tr align="center"> </tr>
<tr align="center"> </tr>
<tr align="center"> </tr>
<tr align="center"> </tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td>&nbsp; </td>
</tr>
</table>
</td>
<!--2td-->
<td width="151" bgcolor="white" valign="top" align="center">
<table border="0" width="98%" cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr valign="top">
<td></td><br>
</tr>
</table>
<table border="0" width="100%" bgcolor="#067B0F" cellpadding="1" cellspacing="1">
<tr>
<td width="151">
<table
border="0" cellspacing="0" width="100%" height="1" align="center" cellpadding="0">
<tr bgcolor="#067B0F">
<td width="153" height="15" bgcolor="#FFCCFF">
<p
align="center"><font face="Wingdings" color="#000000">1</font><font face="Wingdings" color="#FFFF33">
</font><font color="#000000">人气排行榜 </font>
</td>
</tr>
<tr>
<td width="153" height="33" bgcolor="white">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#FFEBE1">
<tr bgcolor="#FFEBE1">
<td width="28%" align="center" ><font color="#000000">性别</font></td>
<td width="46%" align="center" height="16">
<p align="left"><font color="#000000">网名</font></p>
</td>
<td width="26%" align="center" height="16"><font color="#FFFFFF">人气</font>
</td>
</tr>
<%i=1%> <%do while not(rs_lar.eof) and i<11%>
<tr>
<td width="28%" align="center" height="18" ><%=rs_lar("sex")%></td>
<td width="46%" align="center" height="18">
<p align="left"><a href="read.asp?user_id=<%=rs_lar("user_id")%>"><%=rs_lar("netname")%></a>
</td>
<td width="26%" align="center" height="18"><%=rs_lar("renqi")%>
</td>
</tr>
<%i=i+1%> <%rs_lar.movenext%> <%loop%> <%rs_lar.close%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table border="0" width="100%" bgcolor="#067B0F" cellspacing="1" cellpadding="1">
<tr>
<td width="151">
<table
border="0" cellspacing="0" width="100%" bordercolor="white" cellpadding="0">
<tr bgcolor="#067B0F">
<td height="15" bgcolor="#FFCCFF">
<p
align="center"><font face="Wingdings" color="#FFFF66">1
</font><font color="#FFFF66">最新加入网友</font>
</td>
</tr>
<tr>
<td height="23" bgcolor="white">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#FFEBE1">
<tr bgcolor="#FFEBE1">
<td width="26%" bgcolor="#FFEBE1">
<p align="center"><font color="#000000">性别</font></p>
</td>
<td width="53%" height="16">
<p align="left"><font color="#000000">网名</font></p>
</td>
<td width="21%" height="16"><font color="#000000">人气</font></td>
</tr>
<%i=1%> <%do while not(rs_new.eof) and i<11%>
<tr bgcolor="#FFEBE1" class="unnamed1">
<td width="26%" align="center" height="18"><%=rs_new("sex")%></td>
<td width="53%" align="left" height="18" bgcolor="#FFEBE1">
<p align="left"><a href="read.asp?user_id=<%=rs_new("user_id")%>"><%=rs_new("netname")%></a>
</td>
<td width="21%" align="center" height="18"><%=rs_new("renqi")%></td>
</tr>
<%i=i+1%> <%rs_new.movenext%> <%loop%> <%rs_new.close%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<p>&nbsp;</p>
<p> [<a href="adminlogin.asp">管理入口</a>] </p>
</table>
<table width=772 border=0 cellspacing=0 cellpadding=0 align="center">
<tr align=center>
<td colspan=2 height="17">
<hr width=350 size=1 noshade>
<tr align=center>
<td colspan=2 height="17"> Copyright &copy;亮中计算机技术服务有限公司 2004


</table>
<map name="Map2">
<area shape="rect" coords="235,94,274,113" href="default.asp">
<area shape="rect" coords="298,96,363,111" href="your.asp">
<area shape="rect" coords="383,95,445,110" href="list.asp">
<area shape="rect" coords="472,95,531,111" href="register.asp">
<area shape="rect" coords="556,95,615,109" href="sendphoto.asp">
<area shape="rect" coords="638,92,698,110" href="pics.asp">
</map>
</html>

搜索更多相关主题的帖子: 浏览器　希望　include　交友网站　
2005-12-01 21:36
hxfly
Rank: 5Rank: 5
等　级：贵宾
威　望：17
帖　子：5810
专家分：118
注　册：2005-4-7
第 2 楼
收藏
 得分:0 

2005-12-02 09:25
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等　级：蒙面侠
威　望：5
帖　子：1281
专家分：4998
注　册：2005-10-12
第 3 楼
收藏
 得分:0 
代码太长了吧?

----我怎能在别人的苦难面前转过脸去----
2005-12-02 09:32
快速回复：[求助]为什么我这页无法显示啊
数据加载中...
 
　　　



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.022690 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved