-
Notifications
You must be signed in to change notification settings - Fork 0
/
index.asp
201 lines (178 loc) · 6.36 KB
/
index.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
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!-- Powered by UCAIS - Linfcstmr -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title><%=ay_sitename%></title>
<meta name="keywords" content="<%=ay_keywords%>" />
<meta name="description" content="<%=ay_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="content">
<div class="head">
</div>
<div id="menu_out">
<div id="menu_in">
<div id="menu">
<%call HeadNavigation()%>
</div>
</div>
</div>
<div class="main">
<div class="flash border">
<%Call FlashNews()%>
</div>
<div class="top_news border"> <a style="cursor:hand;" href="../list/?26.html"><b class="news"></b></a>
<%call Top_News()%>
</div>
<div class="notice border">
<%call Notice()%>
</div>
<div style="clear: both;"> </div>
</div>
<div class="mainStage">
<div class="dataCenter">
<div class="bb" style=" margin: -10px 0 0 0px;"><br />
</div>
<div class="qyfc border">
<div class="title"> <span></span><strong><a href="../list/?49.html">企业风采</a></strong></div>
<div style=" margin: 4px;"><%Call QiyeFlash()%></div>
</div>
</div>
<div class="ad1">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="732" height="70">
<param name="movie" value="images/ad1.swf" />
<param name="quality" value="high" />
<param name="wmode" value="opaque" />
<embed src="images/ad1.swf" quality="high" wmode="opaque" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="732" height="70"></embed>
</object>
</div>
<div class="mainBlock">
<%
set rs=server.createobject("adodb.recordset")
msql="select * from Ay_Class where bShowIndex=1 order by bParent,bOrder"
rs.open msql,conn,1,1
dim clsindex
clsindex=1
do while not rs.eof
select case (clsindex mod 2)
case 1
%>
<div class="main_left border">
<%call Index_Class(rs("bId"))%>
</div>
<%
case 0
%>
<div class="main_right border ">
<%call Index_Class(rs("bId"))%>
</div>
<div style="clear: both;"> </div>
</div>
<div class="mainBlock">
<%
end select
rs.movenext
clsindex=clsindex +1
loop
if rs.state<>0 then rs.close
set rs=nothing
%>
</div>
<div class="linkStage border">
<div class="title"> <span></span><strong>友情链接</strong></div>
<%call LinkList()%>
</div>
</div>
<div class="main">
<div class="border">
<div class="title">
<span></span><strong>资料中心</strong></div>
<table width="978" bgcolor="#EBF709">
<tr>
<td width="150"><a href="../list/?43.html"> 法律</a></td>
<td width="150"><a href="../list/?44.html"> 行政法规</a></td>
<td width="150"><a href="../list/?45.html"> 部门规章</a></td>
<td width="150"><a href="../list/?46.html"> 政策解读</a></td>
<td width="150"><a href="../list/?47.html"> 国家标准</a></td>
<td width="150"><a href="../list/?48.html"> 行业标准</a></td>
</tr>
<tr>
</tr>
</table>
</div>
</div>
<div class="main" style="margin-top:;">
<div class="gear border">
<div class="wzzb-bj">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="90%" align="center"><table align="center" width="95%" border="0">
<tr>
<td><a href="../list/?28.html"> 电气设备</a></td>
<td><a href="../list/?29.html"> 通信、信号装置</a></td>
<td><a href="../list/?30.html"> 照明设备</a></td>
<td><a href="../list/?32.html"> 钻孔机具及附件</a></td>
<td><a href="../list/?33.html"> 爆破器材</a></td>
<td><a href="../list/?34.html"> 提升、运输设备</a></td>
</tr>
<tr>
<td><a href="../list/?36.html"> 动力机车</a></td>
<td><a href="../list/?37.html"> 通风、防尘装备</a></td>
<td><a href="../list/?38.html"> 支护设备</a></td>
<td><a href="../list/?39.html"> 阻燃抗静电产品</a></td>
<td><a href="../list/?40.html"> 采掘机械</a></td>
<td><a href="../list/?41.html"> 监测监控仪器</a></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
</tr>
</table>
<div style=" width:958px;">
<div style="float:left;width:945px;overflow:hiddenr;">
<marquee direction="left" scrollamount="4" scrolldelay="1" onmouseover="this.stop()" onmouseout="this.start()" border="0" width="100%" height="140px"><%call HotPic()%></marquee>
<div style="clear: both;"> </div>
</div>
</div>
</div>
</div>
</td>
</tr>
</table>
</div>
</div>
<div class="main">
<div class="footer"> <br />
Copyright © 2008-2015 黑龙江科技学院-黑龙江省东部煤电化工程技术研发平台. All rights reserved. <a href="admin/index.asp">管理登陆</a></div><br />
<div align="center">
<%
dim count
Set fs=CreateObject("scripting.filesystemobject")
Set hs=fs.opentextfile(server.Mappath("count.txt"))
count=hs.readline
if session("iscount")="" then
session("iscount")="iscount"
count=count+1
end if
response.write "您是第" & count & "位访问者！"
Set hs=fs.createtextfile(server.Mappath("count.txt"))
hs.writeline(count)
hs.close
set fs=nothing
%> </div>
</div>
</div>
</body>
</html>