Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > WEB(ASP,PHP,...) > View Code
StrLeft.asp
Package: qiyeguanli.rar　[view]
Upload User: ahxunteng
Upload Date: 2022-05-16
Package Size: 1606k
Code Size: 19k
Category:

WEB(ASP,PHP,...)

Development Platform:

VBScript

StrLeft.asp：Code Content
  2. <%
  3. Sub Style_Bulletin()
  4. %>
  5. <% if strSkins <= 200 and strSkins >= 1 then%>
  6. <DIV align="center">
  7. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  8. <TR> 
  9. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>网 站 公 告</SPAN></TD>
  10. </TR>
  11. </TABLE>
  12. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  13. <TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  14.   <TR> 
  15. <TD vAlign=top><DIV align="center">
  16. <table width="168" height="120" border="0" cellPadding="0" cellSpacing="0" class="unnamed1">
  17. <tr>
  18.   <td align="center">
  19. <marquee scrollamount='1'scrolldelay='170'direction= 'up' width='170'height='118'id="xiaoqing" onmouseover="xiaoqing.stop()" onmouseout="xiaoqing.start()">
  20.             <%=CSJ_Bulletin%>
  21.           </marquee></td>
  22. </tr>
  23. </table>
  24. </DIV></TD>
  25. </TR>
  26. <TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  27. </TABLE>
  28. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE></DIV>
  29. <%
  30. elseif strSkins <= 250 and strSkins >= 201 then
  31. %>
  32. <DIV align="center">
  33. <table border="0" cellspacing="0" cellpadding="0">
  34.     <tr>
  35.       <td><img border="0" src="../Skin/201/window/zs-glay-top.gif" width="206" height="48" /></td>
  36.     </tr>
  37.     <tr>
  38.       <td background="../Skin/201/window/glay-mid.gif">
  39.         <DIV align="center">
  40. <table width="168" height="120" border="0" cellPadding="0" cellSpacing="0" class="unnamed1">
  41. <tr>
  42.   <td align="center">
  43. <marquee scrollamount='1'scrolldelay='170'direction= 'up' width='170'height='118'id="xiaoqing" onmouseover="xiaoqing.stop()" onmouseout="xiaoqing.start()"><%=CSJ_Bulletin%></marquee>
  44.                   </td>
  45. </tr>
  46. </table>
  47. </DIV>
  48.   </td>
  49.     </tr>
  50.     <tr>
  51.       <td><img border="0" src="../Skin/201/window/glay-buttom.gif" width="206" height="15" /></td>
  52.     </tr>
  53. </table>
  54. <table cellpadding="0" cellspacing="0" border="0">
  55.     <tr>
  56.       <td height="8"><img src='../img/1x1_pix.gif' width="3" height="1" /></td>
  57.     </tr>
  58. </table>
  59. </DIV>
  60. <%end if%>
  61. <%
  62. End Sub
  63. Sub Style_Login()
  64. if strSkins <= 100 and strSkins >= 1 then
  65. %>
  66. <%
  67. elseif strSkins <= 200 and strSkins >= 101 then
  68. %>
  69. <DIV align="center">
  70. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  71. <TR> 
  72. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>会 员 登 陆</SPAN></TD>
  73. </TR>
  74. </TABLE>
  75. <TABLE cellPadding=0 cellSpacing=0 class="ML_Titlebg">
  76. <TR><TD height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  77. <TR> 
  78. <TD vAlign=top>
  79. <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  80. <tr> 
  81. <td><% call ShowUserLogin() %></td>
  82. </tr>
  83. </table>
  84. </TD>
  85. </TR>
  86. <TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  87. </TABLE>
  88. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  89. </DIV>
  90. <%
  91. elseif strSkins <= 250 and strSkins >= 201 then
  92. %>
  93. <DIV align="center">
  94.   <% call ShowUserLogin4() %>
  95.   <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  97. </DIV>
  98. <%
  99. end if
  100. End Sub
  102. Sub Style_CoProfile()
  103. %>
  104. <DIV align="center">
  105. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  106. <TR> 
  107. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>公 司 简 介</SPAN></TD>
  108. </TR>
  109. </TABLE>
  110. <TABLE cellPadding=0 cellSpacing=0 class="ML_Titlebg">
  111. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  112. <TR>
  113. <TD class='ML_TdImgLI'></TD>
  114. <TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Profile">公 司 介 绍</a></TD>
  115. </TR>
  116. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  117. <TR>
  118. <TD class='ML_TdImgLI'></TD>
  119. <TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Ceo">总 裁 致 辞</a></TD>
  120. </TR>
  121. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  122. <TR>
  123. <TD class='ML_TdImgLI'></TD>
  124. <TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Culture">公 司 文 化</a></TD>
  125. </TR>
  126. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  127. <TR>
  128. <TD class='ML_TdImgLI'></TD>
  129. <TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Organize">组 织 机 构</a></TD>
  130. </TR>
  131. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  132. <TR>
  133. <TD class='ML_TdImgLI'></TD>
  134. <TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Principle">精 神 理 念</a></TD>
  135. </TR>
  136. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  137. <TR>
  138. <TD class='ML_TdImgLI'></TD>
  139. <TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Contact">联 系 我 们</a></TD>
  140. </TR>
  141. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  142. </TABLE>
  143. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  144. </DIV>
  145. <%
  146. End Sub
  148. Sub Style_News()
  149. %>
  150. <DIV align="center">
  151. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  152. <TR> 
  153. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>新 闻 中 心</SPAN></TD>
  154. </TR>
  155. </TABLE>
  156. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  157. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  158. <TR> 
  159. <TD class='ML_TdImgLI'></TD>
  160. <TD class='ML_Tdbg'><a href="News.asp?Action=Co">公 司 新 闻</a></TD>
  161. </TR>
  162. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  163. <TR> 
  164. <TD class='ML_TdImgLI'></TD>
  165. <TD class='ML_Tdbg'><a href="News.asp?Action=Ye">业 内 资 讯</a></TD>
  166. </TR>
  167. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  168. <TR> 
  169. <TD class='ML_TdImgLI'></TD>
  170. <TD class='ML_Tdbg'><a href="News.asp?Action=Pr">产 品 动 态</a></TD>
  171. </TR>
  172. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  173. </TABLE>
  174. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  175. </DIV>
  176. <%
  177. End Sub
  179. Sub Style_Product()
  180. %>
  181. <DIV align="center">
  182. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  183. <TR> 
  184. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>产 品 列 表</SPAN></TD>
  185. </TR>
  186. </TABLE>
  187. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  188. <TR><TD height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  189. <TR>
  190. <TD vAlign=top><% call ShowSmallClass_Tree() %></TD>
  191. </TR>
  192. </TABLE>
  193. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  194. </DIV>
  195. <%
  196. End Sub
  198. Sub Style_Search()
  199. %>
  200. <DIV align="center">
  201. <%if strSkins <= 200 and strSkins >= 1 then%>
  202. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  203. <TR> 
  204. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>产 品 搜 索</SPAN></TD>
  205. </TR>
  206. </TABLE>
  207. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  208. <TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  209. <TR> 
  210. <TD vAlign=top><% call ShowSearch(1) %></TD>
  211. </TR>
  212. <TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  213. </TABLE>
  214. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  215. <%
  216. elseif strSkins <= 250 and strSkins >= 201 then '新风格==============================================================
  217. %>
  218. <table border="0" cellspacing="0" cellpadding="0">
  219.   
  220.   <tr>
  221.     <td><img border="0" src="../Skin/201/window/search-glay-top.gif" width="206" height="48" /></td>
  222.   </tr>
  223.   <tr>
  224.     <td background="../Skin/201/window/glay-mid.gif"><div align="center">
  225.         <table width="92%" border="0" align="center" cellpadding="2" cellspacing="0">
  226.           <tr>
  227.             <td align="center"><form action="../chinese/Search.asp" method="post">
  228.                 <font color="#666666">请输入搜索关键字：<br />
  229.                 <input name="keyword" type="text" class="form" id="keyword" size="15" />
  230.                 <input type="submit" value="搜 索 " name="sub" class="form" />
  231.                 </font>
  232.                 </p>
  233.             </form></td>
  234.           </tr>
  235.       </table></td>
  236.   </tr>
  237.   <tr>
  238.     <td><img border="0" src="../Skin/201/window/glay-buttom.gif" width="206" height="15" /></td>
  239.   </tr>
  240. </table>
  241. <table cellpadding="0" cellspacing="0" border="0">
  242.   <tr></tr>
  243.   <tr>
  244.     <td height="8"><img src='../img/1x1_pix.gif' width="3" height="1" /></td>
  245.   </tr>
  246. </table>
  247. <% end if%>
  248. </DIV>
  249. <%
  250. End Sub
  252. Sub Style_Honor()
  253. %>
  254. <DIV align="center">
  255. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  256. <TR> 
  257. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>公 司 荣 誉</SPAN></TD>
  258. </TR>
  259. </TABLE>
  260. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  261. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  262. <TR>
  263. <TD class='ML_TdImgLI'></TD>
  264. <TD class='ML_Tdbg'><a href="Honor.asp?Action=Honor">公 司 荣 誉</a></TD>
  265. </TR>
  266. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  267. <TR>
  268. <TD class='ML_TdImgLI'></TD>
  269. <TD class='ML_Tdbg'><a href="Honor.asp?Action=Img">公 司 形 象</a></TD>
  270. </TR>
  271. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  272. </TABLE>
  273. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  274. </DIV>
  275. <%
  276. End Sub
  278. Sub Style_Sale()
  279. %>
  280. <DIV align="center">
  281. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  282. <TR> 
  283. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>营 销 网 络</SPAN></TD>
  284. </TR>
  285. </TABLE>
  286. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  287. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  288. <TR> 
  289. <TD class='ML_TdImgLI'></TD>
  290. <TD class='ML_Tdbg'><a href="Sale.asp?Action=Sale">国 内 市 场</a></TD>
  291. </TR>
  292. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  293. <TR> 
  294. <TD class='ML_TdImgLI'></TD>
  295. <TD class='ML_Tdbg'><a href="Sale.asp?Action=Salea">国 际 市 场</a></TD>
  296. </TR>
  297. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  298. </TABLE>
  299. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  300. </DIV>
  301. <%
  302. End Sub
  304. Sub Style_Job()
  305. %>
  306. <DIV align="center">
  307. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  308. <TR> 
  309. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>人 才 招 聘</SPAN></TD>
  310. </TR>
  311. </TABLE>
  312. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  313. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  314. <TR> 
  315. <TD class='ML_TdImgLI'></TD>
  316. <TD class='ML_Tdbg'><a href="Job.asp">人 才 招 聘</a></TD>
  317. </TR>
  318. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  319. <TR> 
  320. <TD class='ML_TdImgLI'></TD>
  321. <TD class='ML_Tdbg'><a href="Jobs.asp">人 才 策 略</a></TD>
  322. </TR>
  323. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  324. </TABLE>
  325. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  326. </DIV>
  327. <%
  328. End Sub
  330. Sub Style_Download()
  331. %>
  332. <DIV align="center">
  333. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  334. <TR> 
  335. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>下 载 列 表</SPAN></TD>
  336. </TR>
  337. </TABLE>
  338. <TABLE cellPadding=0 cellSpacing=0 class="ML_Titlebg">
  339. <TR><TD height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  340. <TR>
  341. <TD vAlign=top><% call Show_DownSmallClass_Tree() %></TD>
  342. </TR>
  343. </TABLE>
  344. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  345. </DIV>
  346. <%
  347. End Sub
  349. Sub Style_Member()
  350. %>
  351. <DIV align="center">
  352. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  353. <TR> 
  354. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>会 员 中 心</SPAN></TD>
  355. </TR>
  356. </TABLE>
  357. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  358. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  359. <TR> 
  360. <TD class='ML_TdImgLI'></TD>
  361. <TD class='ML_Tdbg'><a href="Faq.asp">常见问题解答</a></TD>
  362. </TR>
  363. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  364. <TR> 
  365. <TD class='ML_TdImgLI'></TD>
  366. <TD class='ML_Tdbg'><a href="Went.asp">用户信息反馈</a></TD>
  367. </TR>
  368. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  369. <TR> 
  370. <TD class='ML_TdImgLI'></TD>
  371. <TD class='ML_Tdbg'><a href="Manage.asp">修改会员资料</a></TD>
  372. </TR>
  373. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  374. <TR> 
  375. <TD class='ML_TdImgLI'></TD>
  376. <TD class='ML_Tdbg'><a href="ManagePwd.asp">修改会员密码</a></TD>
  377. </TR>
  378. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  379. <TR> 
  380. <TD class='ML_TdImgLI'></TD>
  381. <TD class='ML_Tdbg'><a href="E_shop.asp">购物订单查询</a></TD>
  382. </TR>
  383. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  384. <TR> 
  385. <TD class='ML_TdImgLI'></TD>
  386. <TD class='ML_Tdbg'><a href="NetBook.asp">站内留言中心</a></TD>
  387. </TR>
  388. <TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  389. <TR> 
  390. <TD class='ML_TdImgLI'></TD>
  391. <TD class='ML_Tdbg'><a href="UserLogout.asp">退出会员中心</a></TD>
  392. </TR>
  393. <TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  394. </TABLE>
  395. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  396. </DIV>
  397. <%
  398. End Sub
  400. Sub Style_Mail()
  401. %>
  402. <DIV align="center">
  403. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  404. <TR> 
  405. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>邮 件 列 表</SPAN></TD>
  406. </TR>
  407. </TABLE>
  408. <TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
  409. <TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  410. <TR> 
  411. <form method="POST" action="Mail_chk.asp">
  412. <TD vAlign=top>
  413. <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  414. <tr> 
  415. <td height="25"> <div align="center"><input name='email'type='text'value="@" size='15' class=form></div></td>
  416. </tr>
  417. <tr> 
  418. <td height="25"><div align="center"> 
  419. <input type="submit" value="订阅" name="action">
  420. &nbsp; 
  421. <input type="submit" value="退订" name="action">
  422. </div></td>
  423. </tr>
  424. </table>
  425. </TD>
  426. </form>
  427. </TR>
  428. <TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  429. </TABLE>
  430. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  431. </DIV>
  432. <%
  433. End Sub
  435. Sub Style_Fellow()
  436. %>
  437. <DIV align="center">
  438. <TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
  439. <TR> 
  440. <TD class='ML_TdPtbg'><SPAN class=GlowLeft>友 情 连 接</SPAN></TD>
  441. </TR>
  442. </TABLE>
  443. <TABLE cellPadding=0 cellSpacing=0 class="ML_Titlebg">
  444. <TR><TD height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  445. <%
  446. dim rs_links,sqltext4,i
  447. set rs_links=server.createobject("adodb.recordset")
  448. sqltext4="select top 10 * from Links order by id desc"
  449. rs_links.open sqltext4,conn,1,1
  451. i=0
  452. do while not rs_links.eof
  453. %>
  454. <TR vAlign=center>
  455. <TD align='center' class='ML_Tdbg'>
  456. <a href="<%=rs_links("link")%>" title="<%=rs_links("note")%>"target="_blank"><%=rs_links("name")%></a></TD>
  457. </TR>
  458. <TR><TD class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  459. <%
  460. rs_links.movenext
  461. i=i+1
  462. if i=10 then exit do
  463. loop
  464. rs_links.close 
  465. %>
  466. </TABLE>
  467. <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
  468. </DIV>
  469. <%
  470. End Sub
  471. Sub Style_Adcolumn()
  472. %>
  473. <SCRIPT LANGUAGE="JavaScript" src="../Skin/<%=strSkins%>/BsImgLogo.js"></SCRIPT>
  474. <%
  475. End Sub
  476. '首页
  477. Sub Left_Index() 
  478. if strSkins <= 200 and strSkins >= 1 then
  479. Call Style_Login() '会员登陆
  480. Call Style_Bulletin() '网站公告
  481. elseif strSkins <= 250 and strSkins >= 201 then 
  482. end if
  483. Call Style_CoProfile() '公司简介
  484. Call Style_Product() '产品列表
  485. Call Style_Mail() '邮件列表
  486. Call Style_Fellow() '友情连接
  487. End Sub
  489. '首页右
  490. Sub Right_Index() 
  491. Call Style_Login() '会员登陆
  492. Call Style_Bulletin() '网站公告
  493. Call Style_Search() '产品搜索
  494. End Sub
  496. '下载中心
  497. Sub Right_Download() 
  498. Call Style_Login() '会员登陆
  499. Call Style_Search() '产品搜索
  500. End Sub
  502. '公司简介
  503. Sub Left_CoProfile() 
  504. if strSkins <= 200 and strSkins >= 1 then
  505. Call Style_Login() '会员登陆
  506. elseif strSkins <= 250 and strSkins >= 201 then 
  507. end if
  508. Call Style_CoProfile() '公司简介
  509. Call Style_Mail() '邮件列表
  510. Call Style_Fellow() '友情连接
  511. End Sub
  513. '新闻资讯
  514. Sub Left_News() 
  515. if strSkins <= 200 and strSkins >= 1 then
  516. Call Style_Login() '会员登陆
  517. elseif strSkins <= 250 and strSkins >= 201 then 
  518. end if
  519. Call Style_News() '新闻中心
  520. Call Style_Mail() '邮件列表
  521. Call Style_Fellow() '友情连接
  522. End Sub
  524. '产品展示
  525. Sub Left_Product() 
  526. if strSkins <= 200 and strSkins >= 1 then
  527. Call Style_Login() '会员登陆
  528. elseif strSkins <= 250 and strSkins >= 201 then 
  529. end if
  530. Call Style_Product() '产品列表
  531. Call Style_Fellow() '友情连接
  532. End Sub
  534. '公司荣誉
  535. Sub Left_Honor() 
  536. if strSkins <= 200 and strSkins >= 1 then
  537. Call Style_Login() '会员登陆
  538. elseif strSkins <= 250 and strSkins >= 201 then 
  539. end if
  540. Call Style_Honor() '公司荣誉
  541. Call Style_Mail() '邮件列表
  542. Call Style_Fellow() '友情连接
  543. End Sub
  545. '营销网络
  546. Sub Left_Sale() 
  547. if strSkins <= 200 and strSkins >= 1 then
  548. Call Style_Login() '会员登陆
  549. elseif strSkins <= 250 and strSkins >= 201 then 
  550. end if
  551. Call Style_Sale() '营销网络
  552. Call Style_Mail() '邮件列表
  553. Call Style_Fellow() '友情连接
  554. End Sub
  556. '人才招聘
  557. Sub Left_Job() 
  558. if strSkins <= 200 and strSkins >= 1 then
  559. Call Style_Login() '会员登陆
  560. elseif strSkins <= 250 and strSkins >= 201 then 
  561. end if
  562. Call Style_Job() '人才招聘
  563. Call Style_Mail() '邮件列表
  564. Call Style_Fellow() '友情连接
  565. End Sub
  567. '下载中心
  568. Sub Left_Download() '下载列表
  569. if strSkins <= 200 and strSkins >= 1 then
  570. Call Style_Login() '会员登陆
  571. elseif strSkins <= 250 and strSkins >= 201 then 
  572. end if
  573. Call Style_Download() '产品列表
  574. Call Style_Fellow() '友情连接
  575. End Sub
  577. '会员中心
  578. Sub Left_Member() 
  579. Call Style_Member() '会员中心
  580. Call Style_Mail() '邮件列表
  581. Call Style_Fellow() '友情连接
  582. End Sub
  584. 'call Style_Bulletin()
  585. %>