📄 viewcom.asp
字号:
<!--#include file="../dbconn.asp"-->
<html>
<head>
<script language="javascript">
function popwin2(id,path)
{ window.open("comview.asp?userid="+id+"&ppath="+path,"","height=450,width=580,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<link rel="stylesheet" type="text/css" href="../css/cdol.css">
<title>企业信息</title>
</head>
<body bgcolor="#E6E5B8" >
<p align="left">现在位置：<a href="../index.asp">首页</a>—浏览公司信息
<%
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
sql="select userid,name,class,address,email from company order by date desc"
rootRs.Open sql,conn,1,1
If rootRs.Bof OR rootRs.Eof Then
Response.Write "目前没有内容。"
else
Response.Write "<center><font color=green><b>共有 "
response.write rootrs.recordcount
Response.Write " 家公司注册</b></font></center>"
set mail=rootrs("email")
set id=rootrs("userid")
rootRs.pagesize=10
rootRs.AbsolutePage =1
if cint(Request("page"))>0 then rootRs.AbsolutePage =Request("page")
RowCount =rootRs.pagesize
%>
<%Do While Not rootRs.Eof AND RowCount>0%>
<ul>
<li><table border="1" width="52%" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="5" bgcolor="#A4D1FF">
<tr>
<td width="25%" align="center"><a href="mailto:<%Response.Write mail%>"><%=rootrs("name")%></a></td>
<td width="13%" align="center"><a href="jobview.asp?userid=<%=rootrs("userid")%>">招聘信息</a></td>
<td width="13%" align="center"><a href="javascript:popwin2(<%=rootrs("userid")%>)">详细信息</a></td>
</tr>
</table></ul>
<%rootRs.MoveNext
RowCount=RowCount-1
Loop
End If
%>
<%
If rootRs.pagecount>1 then
j=rootRs.pagecount
Response.Write "<center><table border='0'>"
Response.Write "<tr>"
Response.Write "<td>共" & j & "页：</td>"
For i=1 to rootRs.pagecount
Response.Write "<td><a href='viewcom.asp?page=" & i & "'>"
Response.Write "[第"& i &"页]</a>"
Response.Write "</td>"
Next
Response.Write "</tr></table></center>"
End if
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -