-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdelete_enrol.asp
142 lines (124 loc) · 4.14 KB
/
delete_enrol.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
<%@language="vbscript"%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn"/>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<link href="inc/css_job.css" rel="stylesheet" type="text/css">
<title>MyJob易聘网 - 求职</title>
<!--#include file="inc\dbconn.asp"-->
</head>
<body>
<!--#include file="inc/inc_top.asp"-->
<!--#include file="inc/emptyline.asp"-->
<!--职位列表-->
<table class="main" cellpadding="0" cellspacing="0" width="778">
<tr>
<td class="main_td1" valign="top">
<!--#include file="inc/ad_index_left.asp"-->
</td>
<td width="7"></td>
<td class="main_td2" valign="top">
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="CE0421" height="20" class="style6" colspan="5" align="center">招聘信息列表</td>
<tr bgcolor="d5d5d5" class="style4">
<td height="20" align="center" width="60%">招聘企业</td>
<td height="20" align="center" width="22%">招聘从事行业</td>
<td height="20" align="center" width="18%">发布招聘信息时间</td>
</tr>
<%
dim myconn
set myconn = open_conn
const adOpenStatic=3
dim rs
set rs = server.createobject("ADODB.Recordset")
dim sql
sql="select enrol_id,enrol_type,enrol_trade,enrol_time,com_id from enrol order by enrol_id"
rs.open sql,myconn,adOpenStatic
rs.pagesize=20
dim pageno
pageno=cint(request.querystring("pageno"))
if pageno<1 then
pageno=1
end if
if pageno>rs.pagecount then
pageno=rs.pagecount
end if
rs.absolutepage=pageno
dim i
response.write "<form name=myform action='deletesql_enrol.asp' method=post>"
response.write "<table width='100%' cellpadding='0' cellspacing='0'>"
dim sql2,rs2
dim myconn2,connstr2
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
set myconn2 = server.createObject("ADODB.Connection")
connstr2 = "DSN=job"
myconn2.open connstr2
sql2="select com_name from coms where com_id="&rs("com_id")&""
set rs2 = myconn2.execute(sql2)
if i mod 2 = 0 then
response.write "<tr bgcolor='#d5d5d5'>"
else
response.write "<tr>"
end if
response.write "<td align='left' width='60%' height='20'>"
response.write "<input type='checkbox' name='enrollist' value="&rs("enrol_id")&">"
response.write "<a href='lookjob.asp?comno="&rs("enrol_id")&"'>"&rs2("com_name")&"</a></td>"
response.write "<td align='center' width='22%' height='20'>"
response.write ""&rs("enrol_trade")&"</td>"
response.write "<td align='center' width='18%' height='20'>"
response.write ""&rs("enrol_time")&""
response.write "</td>"
rs.movenext
rs2.close
myconn2.close
set myconn2 = nothing
response.write "</tr>"
next
response.write "<tr><td colspan='1'>"
response.write "<input type='submit' name='shanchu' value='招聘信息删除'>"
response.write "</td></tr>"
response.write "</table>"
response.write "</form>"
response.Write "<table cellpadding='0' cellspacing='0'width='100%'>"
response.write "<form method='get' action='delete_enrol.asp'>"
response.Write "<tr>"
response.Write "<td>"
response.write "招聘信息数"&rs.recordcount&""
response.Write "</td>"
response.Write "<td height=20 align=right>"
if pageno<>1 then
response.write "<a href='delete_enrol.asp?pageno=1'>首页 </a>"
response.write "<a href='delete_enrol.asp?pageno="&pageno-1&"'>上一页 </a>"
else
response.write "首页 "
response.write "上一页 "
end if
if pageno<>rs.pagecount then
response.write "<a href='delete_enrol.asp?pageno="&pageno+1&"'>下一页 </a>"
response.write "<a href='delete_enrol.asp?pageno="&rs.pagecount&"'>尾页</a>"
else
response.write "下一页 "
response.write "尾页"
end if
response.write " 转到<input type=text name=pageno size=2 >页/共"&rs.pagecount&"页"
rs.close
response.Write "</td>"
response.Write "</tr>"
response.write "</form>"
response.Write "</table>"
set rs = nothing
close_object myconn
%>
</table>
<!--职位列表 end-->
</td>
</tr>
</table>
<!--#include file="inc/emptyline.asp"-->
<!--#include file="inc/inc_foot.asp"-->
</body>
</html>