-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathshow.asp
More file actions
113 lines (99 loc) · 2.41 KB
/
Copy pathshow.asp
File metadata and controls
113 lines (99 loc) · 2.41 KB
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
<!--#include file="inc/dbconn.asp"-->
<%
sub show_enrol_type()
dim H
H = "<select name='enrol_type'>"
H = H & "<option value='全职'>全职</option>"
H = H & "<option value='兼职'>兼职</option>"
H = H & "<option value='临时'>临时</option>"
H = H & "</select>"
response.Write H
end sub
sub show_auth()
dim myconn
set myconn = open_conn
dim sql
sql="select * from auth order by auth_id"
dim rs
set rs = myconn.Execute(sql)
if rs.eof then
dim H1
H1 = "<select name='auth_id'>"
H1 = H1 & "<option>没有权限记录</option>"
response.Write H1
close_object(rs)
close_object(myconn)
else
dim H2
H2 = "<select name='auth_name'>"
do while not rs.eof
H2 = H2 & "<option value="&rs("auth_id")&">"&rs("auth_name")&"</option>"
rs.MoveNext
loop
H2 = H2 & "</select>"
response.Write H2
close_object(rs)
close_object(myconn)
end if
end sub
sub show_province()
dim myconn
set myconn = open_conn
dim sql
sql="select * from province order by pr_id"
'response.Write sql
'response.end
dim rs
set rs = myconn.Execute(sql)
dim H2
H2 = "<select name='pr_id'>"
do while not rs.eof
H2 = H2 & "<option value="&rs("pr_id")&">"&rs("pr_name")&"</option>"
rs.MoveNext
loop
H2 = H2 & "</select>"
response.Write H2
close_object(rs)
close_object(myconn)
end sub
sub show_trade()
dim myconn
set myconn = open_conn
dim sql
sql="select * from trade order by trade_id"
'response.Write sql
'response.end
dim rs
set rs = myconn.Execute(sql)
dim H2
H2 = "<select name='trade_id'>"
do while not rs.eof
H2 = H2 & "<option value="&rs("trade_id")&">"&rs("trade_name")&"</option>"
rs.MoveNext
loop
H2 = H2 & "</select>"
response.Write H2
close_object(rs)
close_object(myconn)
end sub
sub show_nationality()
dim myconn
set myconn = open_conn
dim sql
sql="select * from nationality order by na_id"
'response.Write sql
'response.end
dim rs
set rs = myconn.Execute(sql)
dim H2
H2 = "<select name='na_id'>"
do while not rs.eof
H2 = H2 & "<option value="&rs("na_id")&">"&rs("na_name")&"</option>"
rs.MoveNext
loop
H2 = H2 & "</select>"
response.Write H2
close_object(rs)
close_object(myconn)
end sub
%>