-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdel_com.asp
150 lines (139 loc) · 4.31 KB
/
del_com.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
143
144
145
146
147
148
149
150
<%@language="vbscript"%>
<!--#include file="inc/dbconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn"/>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<link href="inc/css_default.css" rel="stylesheet" type="text/css">
<title>MyJob易聘网 - 后台管理</title>
<style type="text/css">
<!--
.main{
width:778;
text-align:center;
font-size:9pt;
font-family:"宋体";
}
.main_td1{
width:140;
text-align:center;
font-size:9pt;
font-family:"宋体";
}
.main_td2{
width:631;
text-align:center;
font-size:9pt;
font-family:"宋体";
}
-->
</style>
</head>
<body>
<%if session("auth_id") = "1" then%>
<!--#include file="inc/inc_top.asp"-->
<!--#include file="inc/emptyline.asp"-->
<table class="main" cellpadding="0" cellspacing="0">
<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">
<!--删除企业用户-->
<%if session("auth_id") = "1" then%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="CE0421" height="20" class="style6" colspan="3" align="center">删除企业</td>
<tr bgcolor="d5d5d5" class="style4">
<td height="20" align="center" width="60%">企业名称</td>
<td height="20" align="center" width="40%">公司地址</td>
</tr>
<tr><td colspan="5">
<%
dim myconn
set myconn = open_conn
const adOpenStatic=3
set rs = server.createobject("ADODB.Recordset")
sql="select * from coms order by com_id desc"
rs.open sql,myconn,adOpenStatic
rs.pagesize=20
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
response.write "<form name=myform action='subdel_com.asp' method=post>"
response.write "<table align='center' width='100%' cellpadding='0' cellspacing='0'>"
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
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='comlist' value="&rs("com_id")&">"
response.write "<a href='lookjob.asp?comno="&rs("com_id")&"'>"&rs("com_name")&"</a></td>"
response.write "<td align='center' width='40%' height='20'>"
response.write ""&rs("com_address")&""
response.write "</td>"
rs.movenext
response.write "</tr>"
next
response.write "<tr><td>"
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_com.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_com.asp?pageno=1'>首页 </a>"
response.write "<a href='delete_com.asp?pageno="&pageno-1&"'>上一页 </a>"
else
response.write "首页 "
response.write "上一页 "
end if
if pageno<>rs.pagecount then
response.write "<a href='delete_com.asp?pageno="&pageno+1&"'>下一页 </a>"
response.write "<a href='delete_com.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
%>
</td></tr>
</table>
<%else%>
<!--#include file="inc/nudroit.asp"-->
<%end if%>
<!--删除企业用户 end-->
</td>
</tr>
</table>
<!--#include file="inc/emptyline.asp"-->
<!--#include file="inc/inc_foot.asp"-->
<%else%>
<!--#include file="inc/nudroit.asp"-->
<%end if%>
</body>
</html>