📄 default.asp
字号:
<%loop%>
<%rs_new.close%>
</table>
</td>
</tr>
</table>
</td>
<td width="13" height="172"></td>
</center>
<td width="197" height="172" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="183" valign="top">
<font color="#FFFFFF">1</font>
</td>
</tr>
<tr>
<td width="183" valign="top">
<%Set connpic = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("pic.mdb")
connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
if rs_girl.eof and rs_girl.bof then%>
<table border="0" width="175" cellspacing="0" cellpadding="0">
<tr>
<td width="93" valign="top" rowspan="7"><img border="0" src="image/lanmang.gif" width="90" height="120"></td>
<td width="82"><font color="#FFFFFF"> </font></td>
</tr>
<tr>
<td width="82"></td>
</tr>
<tr>
<td width="82"><font color="black"> </font></td>
</tr>
<tr>
<td width="82"></td>
</tr>
<tr>
<td width="82"></td>
</tr>
<tr>
<td width="82"><font color="black"> </font></td>
</tr>
<tr>
<td width="82"><font color="black"> </font></td>
</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="176" cellspacing="0" cellpadding="0">
<tr>
<td width="94" valign="top" rowspan="7"><a href='read.asp?user_id=<%=rs_girl("user_id")%>'><font color="black"><img border="0" src='display.asp?id=<%=rs_pic("id")%>' width="90" height="120"></font></a></td>
<td width="82"><font color="black"> </font></td>
</tr>
<tr>
<td width="82" bgcolor="white"><font color="black">性别:女</font></td>
</tr>
<tr>
<td width="82"><font color="black">网名:<%=rs_girl("netname")%></font></td>
</tr>
<tr>
<td width="82"><font color="black">年龄:<%=rs_girl("age")%></font></td>
</tr>
<tr>
<td width="82"><font color="black">学历:<%=rs_girl("education")%></font></td>
</tr>
<tr>
<td width="82"><font color="black">职业:<%=rs_girl("job")%></font></td>
</tr>
<tr>
<td width="82"><font color="black">来自:<%=rs_girl("home")%></font></td>
</tr>
</table>
<%rs_girl.close:set rs_girl=nothing%>
<%end if%>
</td>
</tr>
</table>
</td>
<center>
<td width="200" height="172" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"> <td width="179" valign="top">
<font color="#FFFFFF">1</font>
</td>
</tr>
<tr>
<td width="100%"> <td width="179" valign="top">
<%if rs_boy.eof and rs_boy.eof then%>
<table border="0" width="177" cellspacing="0" cellpadding="0">
<tr>
<td width="93" valign="top" rowspan="7"><img border="0" src="image/lanmang.gif" width="90" height="120"></td>
<td width="84"><font color="black"> </font></td>
</tr>
<tr>
<td width="84"></td>
</tr>
<tr>
<td width="84"><font color="black"> </font></td>
</tr>
<tr>
<td width="84"></td>
</tr>
<tr>
<td width="84"></td>
</tr>
<tr>
<td width="84" bgcolor="white"><font color="black"> </font></td>
</tr>
<tr>
<td width="84"><font color="black"> </font></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="177" cellspacing="0" cellpadding="0">
<tr>
<td width="94" valign="top" rowspan="7"><a href='read.asp?user_id=<%=rs_boy("user_id")%>'><img border="0" src='display.asp?id=<%=rs_pic("id")%>' width="90" height="120"></a></td>
<td width="83"><font color="black"> </font></td>
</tr>
<tr>
<td width="83"><font color="black">性别:男</font></td>
</tr>
<tr>
<td width="83"><font color="black">网名:<%=rs_boy("netname")%></font></td>
</tr>
<tr>
<td width="83"><font color="black">年龄:<%=rs_boy("age")%></font></td>
</tr>
<tr>
<td width="83"><font color="black">学历:<%=rs_boy("education")%></font></td>
</tr>
<tr>
<td width="83"><font color="black">职业:<%=rs_boy("job")%></font></td>
</tr>
<tr>
<td width="83"><font color="black">来自:<%=rs_boy("home")%></font></td>
</tr>
</table>
<p></p>
<%rs_pic.close:set rs_pic=nothing:set connpic=nothing
rs_boy.close:set rs_boy=nothing
end if%>
</td>
</tr>
</table>
</td>
<td width="15" height="172"></td>
<td width="171" height="157" bgcolor="#FFFFFF" align="left">
<div align="right">
<table border="1" cellpadding="0" cellspacing="0" width="87%" height="70" bordercolorlight="#000000" bordercolordark="#FFF4C8">
<tr>
<td width="100%" height="76" bgcolor="#FFF4C8">
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="100%"> □ 用 户 登 陆</td>
</tr>
</table>
<TABLE align=center bgColor=#FFF4C8 border=0 cellPadding=0
width=147 height="145" cellspacing="0">
<TBODY>
<tr>
<TD width="100%" height="105">
<form action="login.asp" method="POST">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="48%" align="center">用户名:</td>
<td width="52%"><input maxlength="20" name="user_name" size="8"></td>
</tr>
<tr>
<td width="48%" align="center">密 码:</td>
<td width="52%"><input maxlength="20" name="password" size="8" type="password"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center">
<INPUT border=0 name=I1 src="pic/s.gif" type=image>
</td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center">[<a href="reg.asp">注册会员</a>][<a href="no.htm">忘记密码</a>]</td>
</tr>
</table>
</form>
</TD>
</tr>
<TR>
</FORM></TR>
<TR>
<TD align=middle bgColor=#FFF4C8 vAlign=center width="121" height="40">
<table border="0" width="144" cellspacing="0" cellpadding="0" height="35">
<tr>
<td width="68" align="center" height="14"><font color="#000000">会员总数</font></td>
<td width="72" align="center" height="14"><font color="#000000">今日加入</font></td>
</tr>
<tr>
<td width="68" align="center" bgcolor="#FFF4C8" height="21"><%=records%><font color="#FF0000"> </font></td>
<td width="72" align="center" bgcolor="#FFF4C8" height="21"><%=today_records%><font color="#FF0000"> </font></td>
</tr>
</table>
</TD></TR>
</TBODY></TABLE></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="174" height="21" bgcolor="#FFFFFF"><img border="0" src="pic/re.GIF" width="150" height="22"></td>
<td width="15" height="24"></td>
<td width="401" height="24" colspan="2"><img border="0" src="pic/news.GIF" width="399" height="28"></td>
<td width="15" height="24"></td>
<td width="171" height="21" bgcolor="#FFFFFF" align="right"><img border="0" src="pic/hezuo.GIF" width="150" height="22"></td>
</tr>
<tr>
<td width="174" height="181" bgcolor="#FFFFFF">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -