📄 main.asp
字号:
<% Response.Buffer=True %>
<!--#include file="../inc/company.inc"-->
<% uname=session("cuid")
set rs=server.createobject("adodb.recordset")
sql="select * from cmailbox where reid='"&uname&"'and newmail=0"
rs.open sql,conn,1,1
mailnum=rs.recordcount
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql2="select * from company where uname='"&uname&"'"
rs.open sql2,conn,1,1
click=rs("click") %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" href="../inc/index.css" type="text/css">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>大庆数码网络—>企业信息市场—>登录首页</title>
</head>
<SCRIPT language=JavaScript src="../inc/window.js"></SCRIPT>
<!--#include file="../inc/top.htm"-->
<form action=search.asp method=post>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="780" height="445">
<tr>
<td width="778" height="18" valign="top" colspan="5" bgcolor="#396BA5">
</td>
</tr>
<tr>
<td width="139" valign="top" bgcolor="#396BA5" height="371" rowspan="2">
<p align="center">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="118" height="280">
<tr>
<td width="100%" height="163" background="../images/stat-bg.GIF" valign="top">
<p align="center"><br>
<a href="main.asp">登录首页</a><br>
<br>
<a href="register.asp">登录/更新公司资料</a><br>
<br>
<a href="publish.asp">发布/更新产品信息</a><br>
<br>
<a href="../changepwd.asp?stype=company" target="_blank">修改登录密码</a><br>
<br>
<a href="search.asp">全部信息列表</a>
</td>
</tr>
<tr>
<td width="100%" height="117" background="../images/stat-bg.GIF" valign="top">
<p align="center"><br>
<br>
<a href="favorite.asp">我的收藏夹<br>
<br>
<a href="mailbox.asp">我的信箱</a><br>
<br>
<a href="../exit.asp">退出登录</a>
</td>
</tr>
</table>
</center>
</div>
<p align="center">
</td>
<td width="32" height="371" valign="top" rowspan="2"><img border="0" src="../images/selfk.GIF"></td>
</center>
<td width="477" height="349" valign="top">
<div align="left">
<table border="1" cellpadding="0" cellspacing="0" width="447" height="3" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<tr>
<td width="445" height="8" valign="top">
</td>
</tr>
<tr>
<td width="445" height="109" valign="top" bgcolor="#EBEEF3" bordercolor="#000000" bordercolorlight="#C6CEDE" bordercolordark="#C6CEDE"><br>
亲爱的用户:<font color="#ff0000"><%=uname%></font>，您好！<br>
<% if rs("job")<>"" then %>
<br>
您的<a href="publish.asp">产品信息</a>共被查阅[<%=click%>]次！
<%else%>
<br><font color="#ff0000">
您尚未发布<a href="publish.asp">产品信息</a>，请尽快发布<a href="publish.asp">产品信息</a>！否则不能使用发信功能！</font>
<%end if%>
<% if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from cmailbox where reid='"&uname&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<SCRIPT language=JavaScript>alert('对不起，你的信箱内暂无信件！');"
response.write"this.location.href='main.asp';</SCRIPT>"
end if
rs.pagesize=10
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount %>
<div align="left">
<table border="1" cellpadding="0" cellspacing="0" width="477" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<tr>
<td height="1" colspan="6" valign="bottom" width="473"><font color="#000000"> </font></td>
</tr>
<tr>
<td width="473" height="6" colspan="6" valign="bottom"><font color="#000000"></font><font color="#000000">
<% page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
您的信箱内共有[<font color="#ff0000"><%=rs.recordcount%></font>]封站内信件 其中有[<font color="#ff0000"><%=mailnum%></font>]封新邮件</td>
</td>
</tr>
<tr>
<td width="445" height="3" valign="top">
</td>
</tr>
</table>
</div>
<% set rs=server.createobject("adodb.recordset")
sql3="select * from company where job<>'""' order by id desc"
rs.open sql3,conn,1,1%>
<div align="left">
<table border="1" cellpadding="0" cellspacing="0" width="450" height="24" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<tr>
<td height="20" width="465" colspan="5" bgcolor="#C6CEDE" valign="bottom"> 最新五十条产品信息</td>
</tr>
<tr>
<td height="19" width="187" bgcolor="#EBEEF3" valign="bottom">
<p align="left"> 公司名称</td>
<td width="30" height="18" bgcolor="#EBEEF3" valign="bottom">
供需</td>
<td height="19" width="204" bgcolor="#EBEEF3" valign="bottom">
<p align="left"> 产品类型</td>
<td height="19" width="34" bgcolor="#EBEEF3" valign="bottom">
<p align="center">发信</td>
<td height="19" width="34" bgcolor="#EBEEF3" valign="bottom">
<p align="center">收藏</td>
</tr>
<% do while not rs.eof %>
<tr>
<td height="19" width="187" bgcolor="#EBEEF3" valign="bottom"> <a href="javascript:openwin('../company.asp?uid=<%=rs("uname")%>','top=10,left=300,width=460,height=420')"><% if len(rs("cname"))>12 then%><%=Left(rs("cname"),12)%>...<%else%><%=rs("cname")%><%end if%></a></td>
<td width="30" height="18" bgcolor="#EBEEF3" valign="bottom"> <%=rs("zpnum")%></td>
<td height="19" width="204" bgcolor="#EBEEF3" valign="bottom"> <a
href="javascript:openwin('../job.asp?uid=<%=rs("uname")%>','top=10,left=300,width=460,height=420')"><%=rs("job")%>
</a></td>
<td height="19" width="34" bgcolor="#EBEEF3" valign="bottom">
<p align="center"><a href="javascript:openwin('sendmail.asp?reid=<%=rs("uname")%>','top=20,left=200,width=470,height=400')"><font face="Wingdings" color="#000060" size="2">*</font></a></td>
<td height="19" width="34" bgcolor="#EBEEF3" valign="bottom">
<p align="center"><font face="Wingdings"><a href="addfav.asp?fav=<%=rs("uname")%>"><font color="#000060">1</font></a></font></td>
</tr>
<% c=c+1
rs.movenext
if c>=50 then exit do
loop
rs.close
set rs=nothing %>
</table>
</div>
</td>
<center>
<td width="1" height="371" valign="top" bgcolor="#00006A" rowspan="2"></td>
<td width="126" height="371" valign="top" bgcolor="#F3F3F3" rowspan="2"> </td>
</tr>
<tr>
<td width="461" height="8" valign="bottom" colspan="5">
<form action="search.asp" method=post>
<p align="center"><br>
<font color="#000000">
搜索器: </font><INPUT
maxLength=20 size=16 name="key" style="background-color: #EBEBEB; color: #00006A; font-family: 宋体; font-size: 9pt" value="请输入关键字-S" onclick="Javascript:this.value='';">
<input type="submit" value="搜 索" style="font-family: 宋体; font-size: 9pt; color: #00006A">
</form>
<br>
</td>
</tr>
<tr>
<td width="778" height="1" valign="top" colspan="5" bgcolor="#396BA5">
<p align="center">
</td>
</tr>
<tr>
<td height="3" valign="top" colspan="5" width="778">
</td>
</tr>
<tr>
<td height="14" valign="top" colspan="5" width="778">
<p align="center"><script language="javascript" src="../inc/copyright.js"></script>
</td>
</tr>
<tr>
<td height="3" valign="top" colspan="5" width="778">
</td>
</tr>
</table>
</center>
</div>
</body>
</form>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -