📄 left.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title></title>
</head>
<body leftmargin="70">
<table border="0" cellpadding="0" cellspacing="0" width="190" bgcolor="#FFFFFF" ALIGN="RIGHT">
<tr> <td width="192" background="pic/line_gb.gif" height="1" align="right"></td><td background="pic/height_bg.gif" width="10" rowspan="3" BGCOLOR="#FFFFFF"> </td></tr>
<TD WIDTH="192"><tr><td width="215" valign="top" align="right"><table border="0" cellpadding="0" cellspacing="0" width="100%" height="125">
<tr> <td width="100%" bgcolor="#EEEEEE" height="18"><b> </b><img border="0" src="images/3.gif"></td></tr>
<tr> <td width="100%" height="14"> <table border="0" cellpadding="0" cellspacing="0" width="100%">
<%if session("d_webname")<>"" then%> <tr> <%sql="select * from duser where d_webname='"&session("d_webname")&"'"
rs.open sql,conn,3,3
%> <td width="100%"> <table border="0" cellpadding="0" cellspacing="0" width="123%" height="85">
<tr> <td width="31%" height="23"> 用户名：</td><td width="69%" height="23"><font color="#FF0000"><%=rs("d_webname")%></font></td></tr>
<tr> <td width="31%" height="23"> 级 别：</td><td width="69%" height="23"><font color="#FF0000"><%if not isnull(rs("d_grade")) then%><%=rs("d_grade")%><%else%>会
员<%end if%></font></td></tr> <tr> <td width="31%" height="23"> 预制费：</td><td width="69%" height="23">剩
<font color="#FF0000"><%if not isnull(rs("d_money")) then%><%=rs("d_money")%><%else%>0<%end if%></font>
元RMB</td></tr> <tr> <td width="100%" height="23" colspan="2"> <table border="0" cellpadding="0" cellspacing="1" width="100%" height="23">
<tr> <td width="33%" height="19"> <a href="javascript:openScript('buy.asp',600,400)">购
物 篮</a></td><td width="33%" height="19" style="border-left: 1 solid #000000; border-right: 1 solid #000000"> <a href="Editreg.asp">修改资料</a></td><td width="34%" height="19"> <a href="javascript:openScript('number.asp',600,400)">订
单 号</a></td></tr> <tr> <td width="33%" height="19"> </td><td width="33%" height="19" style="border-left: 1 solid #000000; border-right: 1 solid #000000"> <a href="quit.asp">退出系统</a></td><td width="34%" height="19"> </td></tr>
</table></td></tr> </table></td></tr> <%else%> <tr> <td width="100%"><form method="post" action="login.asp">
<table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="32%"> 用户名：</td><td width="68%"><input type="text" name="d_webname" size="15" style="border: 1 solid #000000"></td></tr>
<tr> <td width="32%"> 密 码：</td><td width="68%"><input type="password" name="d_pass" size="15" style="border: 1 solid #000000"></td></tr>
<tr> <td width="100%" colspan="2"> <input type="submit" value="确定" name="B1">
<a href="reg.asp">免费注册</a> <a href="nopass.asp"> 忘记密码</a></td></tr> </table></form></td></tr>
<%end if%> </table></td></tr> <tr> <td width="100%" height="1" height="1">...............................</td> </tr>
<tr> <td width="100%" height="18" bgcolor="#EEEEEE"> <img border="0" src="images/2.gif"></td></tr>
<tr> <td width="100%" height="14"> <p style="margin-left: 10"><%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 10 * from news where id = '2' order by news_id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write "暂且没有内容"
end if
do while not rs.eof
if len(rs("news_title"))>28 then
title=left(rs("news_title"),28)
%> <img border="0" src="pic/cart.gif"> <a class="<%=rs("title_colour")%>" href="javascript:openScript('news.asp?news_id=<%=rs("news_id")%>',600,450)"><%=rs("news_title")%></a><br>
<%
else
%> <img border="0" src="pic/cart.gif"> <a class="<%=rs("title_colour")%>" href="javascript:openScript('news.asp?news_id=<%=rs("news_id")%>',600,450)"><%=rs("news_title")%></a><bR>
<%
end if
rs.movenext
loop
rs.Close
%> <p> </p></td></tr> <tr> <td width="100%" height="1">...............................</td></tr>
<tr> <td width="100%" height="18" bgcolor="#EEEEEE"> <img border="0" src="images/1.gif"></td></tr>
<tr> <td width="100%" height="7"> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="84">
<tr> <td width="100%" height="21"> <p style="margin-left: 10">服务OICQ：8119544</p></td></tr>
<tr> <td width="100%" height="21"> <p style="margin-left: 10"><a href="post.htm" target="_blank"><font color="#FF3399">银行汇款</font></a></p></td></tr>
<tr> <td width="100%" height="21"> <p style="margin-left: 10">销售邮箱：<a href="mailto:webmaster@3niao.com">webmaster@3niao.com</a></p></td></tr>
<tr> <td width="100%" height="16"> <p style="margin-left: 10">联系电话：13071624038</p></td></tr>
<tr> <td width="100%" height="12"> <p style="margin-left: 10"><font color="#FF0000">加入代理送此程序</font>
<p style="margin-left: 10"> </p></td></tr> </table></td></tr> <tr> <td width="100%" height="1">...............................</td></tr>
</table><TD WIDTH="192"></td><TD WIDTH="192"></tr> <tr> <td width="192" valign="top" align="right">
<table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%" height="18" bgcolor="#EEEEEE"><img border="0" src="images/4.gif"></td></tr>
<tr> <td width="100%" BGCOLOR="#FFFFFF"> <p style="margin-left: 10"><%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 10 * from news where id = '3' order by news_id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write "暂且没有内容"
end if
do while not rs.eof
if len(rs("news_title"))>28 then
title=left(rs("news_title"),28)
%> <img border="0" src="pic/bul.gif"> <a class="<%=rs("title_colour")%>" href="javascript:openScript('news.asp?news_id=<%=rs("news_id")%>',600,450)"><%=rs("news_title")%></a><br>
<%
else
%> <img border="0" src="pic/bul.gif"> <a class="<%=rs("title_colour")%>" href="javascript:openScript('news.asp?news_id=<%=rs("news_id")%>',600,450)"><%=rs("news_title")%><br>
</a> <p><bR> <%
end if
rs.movenext
loop
rs.Close
%><BR><BR><BR></p></td></tr> </table></td></tr> </table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -