📄 information.asp
字号:
<!--#include file="conndb.asp"-->
<html>
<head>
<link href=style.css rel=STYLESHEET type=text/css>
</head>
<script language="javascript">
function newswin(url) {
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
oth = oth+",width=600,height=500";
var newswin=window.open(url,"newswin",oth);
newswin.focus();
return false;
}
</script>
<body background="pic/bg.gif" topmargin=0>
<center>
<table border="0" width="700" cellspacing="0" cellpadding="0">
<tr><td colspan="3" height="116"><!--#include file="head.htm"--></td></tr>
<tr>
<td width="100%" valign="top" align="center">
<%
Dim flg,sTitle,sql
flg = Request.QueryString("m")
'm=0-职位信息；m=1-企业信息；m=2-个人信息
If flg=0 Then
sTitle = "职 位 信 息"
sql = "Select * From Job Order By PostTime Desc"
ElseIf flg=1 Then
sTitle = "企 业 信 息"
sql = "Select * From Company Order By PostDate Desc"
Else
sTitle = "个 人 信 息"
sql = "Select * From Person p Order By PostTime Desc"
End If
Set rs = Server.CreateObject("ADODB.RECORDSET")
rs.Open sql,Conn,1,1
%>
<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolor="#5A8FF0">
<tr>
<td width="100%" bgcolor="#CEE7FF" height="18" align=center><font size=3><b><%=sTitle%></b></font></td>
</tr>
<tr>
<td width="100%" valign="top" align="left" height="1">
<%
If Not rs.EOF Then
rs.PageSize = 10
rs.AbsolutePage = 1
If Request("page")<>"" Then rs.AbsolutePage =Request("page")
RowCount =rs.PageSize
%>
<table border="1" width="100%" cellspacing="0" bordercolor="5A8FF0">
<tr><%If flg=0 Then%>
<td>职位名称</td><td>职位类别</td><td>要求</td>
<%ElseIf flg=1 Then%>
<td>企业名称</td><td>地域</td><td>类型</td><td>网址</td>
<%Else%>
<td>姓名</td><td>性别</td><td>应聘职位</td><td>英语水平</td><td>计算机技能</td>
<%End If%>
</tr>
<%
Do While Not rs.EOF And RowCount>0
%>
<tr>
<%If flg=0 Then%>
<td><a href='JobView.asp?jid=<%=rs("JobId")%>' onClick='return newswin(this.href)'><%=rs("Title")%></a></td>
<td><%=rs("Type")%> </td>
<td>学历:<%=rs("Education")%> 性别:<%=rs("Sex")%> 年龄:<%=rs("Age")%> 工作年限:<%=rs("WorkTime")%></td>
<%ElseIf flg=1 Then%>
<td><a href="CompView.asp?uid=<%=rs("CName")%>" onClick='return newswin(this.href)'><%=rs("Company")%></td>
<td width="12%"><%=rs("Location")%> </td>
<td width="20%"><%=rs("Type")%> </td>
<td width="30%"><%=rs("Http")%> </td>
<%Else%>
<td><a href="ResumeView.asp?uid=<%=rs("UserName")%>" onClick='return newswin(this.href)'><%=rs("RealName")%></td>
<td><%If rs("Sex") Then%>女<%Else%>男<%End If%></td>
<td><%=rs("AppTitle")%> </td>
<td><%=rs("English")%> </td>
<td><%=rs("Computer")%> </td>
<%End If%>
</tr>
<%
rs.MoveNext
RowCount = RowCount-1
Loop
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
If rs.PageCount>1 Then
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td><b>分页：</b></td>"
For i=1 To rs.PageCount
Response.Write "<td><a href='Information.asp?m="&flg&"&page=" & i & "'>"
Response.Write "[<b>" & i & "</b>]</a>"
Response.Write "</td>"
Next
Response.Write "</tr></table>"
End If
Else
Response.Write "暂且没有信息"
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -