Category

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

WEB(ASP,PHP,...)

Development Platform:

VBScript

En_SysProduct3.asp：Code Content
  2. <%
  3. dim strFileName,MaxPerPage,ShowSmallClassType
  4. dim totalPut,CurrentPage,TotalPages
  5. dim BeginTime,EndTime
  6. dim founderr, errmsg
  7. dim EnBigClassName,EnSmallClassName,SpecialName,keyword,strField
  8. dim rs,sql,sqlArticle,rsArticle,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlSpecial,rsSpecial
  9. dim SpecialTotal
  10. BeginTime=Timer
  11. EnBigClassName=Trim(request("EnBigClassName"))
  12. EnSmallClassName=Trim(request("EnSmallClassName"))
  13. SpecialName=trim(request("SpecialName"))
  14. keyword=trim(request("keyword"))
  15. if keyword<>"" then 
  16. keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","&lt;"),">","&gt;")," ","&nbsp;")
  17. end if
  18. strField=trim(request("Field"))
  20. if request("page")<>"" then
  21.     currentPage=cint(request("page"))
  22. else
  23. currentPage=1
  24. end if
  26. sqlBigClass="select * from PrBigClasss order by BigClassID"
  27. Set rsBigClass= Server.CreateObject("ADODB.Recordset")
  28. rsBigClass.open sqlBigClass,conn,1,1
  31. '=========================================================================
  32. '过程名：ShowSmallClass_Tree
  33. '作  用：树形目录方式显示栏目
  34. '参  数：无
  35. '=========================================================================
  36. Sub ShowSmallClass_Tree()
  37. %>
  38. <SCRIPT language=javascript>
  39. function opencat(cat,img){
  40. if(cat.style.display=="none"){
  41. cat.style.display="";
  42. img.src="../img/class2.gif";
  43. } else {
  44. cat.style.display="none"; 
  45. img.src="../img/class1.gif";
  46. }
  47. }
  48. </Script>
  49. <TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
  50. <%
  51. dim i
  52. if rsBigClass.eof and rsBigClass.bof then
  53. Response.Write "The column is under construction……"
  54. else
  55. i=1
  56. do while not rsBigClass.eof
  57. %>
  58. <TR>
  59. <TD language=javascript onmouseup="opencat(cat10<%=i%>000,&#13;&#10; img10<%=i%>000);" id=item$pval[catID]) style="CURSOR: hand" width=26 height=24 align=center><IMG id=img10<%=i%>000 src="../img/class1.gif" width=20 height=20></TD>
  60. <TD class='ML_Tdbg'><a href='En_Product.asp?EnBigClassName=<%=rsBigClass("EnBigClassName")%>'><%=rsBigClass("EnBigClassName")%></a></TD>
  61. </TR>
  62. <TR>
  63. <TD id=cat10<%=i%>000 style="DISPLAY: none" bgColor=#fefdf5 colspan="2">
  64. <%
  65. dim rss,sqls,j
  66. set rss = server.CreateObject ("adodb.recordset")
  67. sqls="select * from PrSmallClass where EnBigClassName='" & rsBigClass("EnBigClassName") & "'order by SmallClassID"
  68. rss.open sqls,conn,1,1
  69. if rss.eof and rss.bof then
  70. Response.Write "No small class"
  71. else
  72. j=1
  73. do while not rss.eof
  74. %>
  75. <IMG height=20 src="../img/class3.gif" width=26 align=absMiddle border=0><a href="En_Product.asp?EnBigClassName=<%=rss("EnBigClassName")%>&EnSmallclassname=<%=rss("EnSmallClassName")%>"><%=rss("EnSmallClassName")%></a><BR>
  76. <%
  77. rss.movenext
  78. j=j+1
  79. loop
  80. end if
  81. rss.close
  82. set rss=nothing
  83. %>
  84. </TD>
  85. </TR>
  86. <%
  87. rsBigClass.movenext
  88. i=i+1
  89. loop
  90. end if
  91. %>
  92. </TABLE>
  93. <%
  94. end Sub 
  96. '=========================================================================
  97. '过程名：ShowVote
  98. '作  用：显示网站调查
  99. '参  数：无
  100. '=========================================================================
  101. sub ShowVote()
  102. dim sqlVote,rsVote,i
  103. sqlVote="select top 1 * from Vote where IsSelected=True"
  104. Set rsVote= Server.CreateObject("ADODB.Recordset")
  105. rsVote.open sqlVote,conn,1,1
  106. if rsVote.bof and rsVote.eof then 
  107. response.Write "&nbsp;There is not any investigation" 'There is not any investigation没有任何调查
  108. else
  109. response.write "<form name='VoteForm'method='post'action='En_vote.asp'target='_blank'><td>"
  110. response.write "&nbsp;&nbsp;&nbsp;&nbsp;" & rsVote("EnTitle") & "<br>"
  111. if rsVote("VoteType")="Single" then
  112. for i=1 to 8
  113. if trim(rsVote("Select" & i) & "")="" then exit for
  114. response.Write "<input type='radio'name='VoteOption'value='" & i & "'>" & rsVote("Select" & i) & "<br>"
  115. next
  116. else
  117. for i=1 to 8
  118. if trim(rsVote("Select" & i) & "")="" then exit for
  119. response.Write "<input type='checkbox'name='VoteOption'value='" & i & "'>" & rsVote("Select" & i) & "<br>"
  120. next
  121. end if
  122. response.write "<br><input name='VoteType'type='hidden'value='" & rsVote("VoteType") & "'>"
  123. response.write "<input name='Action'type='hidden'value='Vote'>"
  124. response.write "<input name='ID'type='hidden'value='" & rsVote("ID") & "'>"
  125. response.write "<div align='center'>"
  126. response.write "<a href='javascript:VoteForm.submit();'><img src='images/voteSubmit.gif' width='52'height='18'border='0'></a>&nbsp;&nbsp;"
  127.         response.write "<a href='En_Vote.asp?Action=Show'target='_blank'><img src='images/voteView.gif' width='52'height='18'border='0'></a>"
  128. response.write "</div></td></form>"
  129. end if
  130. rsVote.close
  131. set rsVote=nothing
  132. end sub
  134. '=========================================================================
  135. '过程名：ShowClassGuide
  136. '作  用：显示栏目导航位置
  137. '参  数：无
  138. '=========================================================================
  139. sub ShowClassGuide()
  140. response.write  "<a href='En_Product.asp'>ProductShow</a>&nbsp;&gt;&gt;" 'ProductShow 产品展示
  141. if EnBigClassName="" and EnSmallClassName="" then
  142. response.write "&nbsp;All products"
  143. else
  144. if EnBigClassName<>"" then
  145. response.write "&nbsp;<a href='En_Product.asp?EnBigClassName=" & EnBigClassName & "'>" & EnBigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  146. if EnSmallClassName<>"" then
  147. response.write "<a href='En_Product.asp?EnBigClassName=" & EnBigClassName & "&EnSmallClassName=" & EnSmallClassName & "'>" & EnSmallClassName & "</a>"
  148. else
  149. response.write "All small class"
  150. end if
  151. end if
  152. end if
  153. end sub
  155. '=========================================================================
  156. '过程名：ShowArticleTotal
  157. '作  用：显示文章总数
  158. '参  数：无
  159. '=========================================================================
  160. sub ShowArticleTotal()
  161. dim sqlTotal
  162. dim rsTotal
  163. sqlTotal="select Count(*) from Product where Passed=True "
  164. if EnBigClassName<>"" then
  165. sqlTotal=sqlTotal & " and EnBigClassName='" & EnBigClassName & "'"
  166. if EnSmallClassName<>"" then
  167. sqlTotal=sqlTotal & " and EnSmallClassName='" & EnSmallClassName & "'"
  168. end if
  169. else
  170. if SpecialName<>"" then
  171. sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "'"
  172. end if
  173. end if
  174. Set rsTotal= Server.CreateObject("ADODB.Recordset")
  175. rsTotal.open sqlTotal,conn,1,1
  176. if rsTotal.eof and rsTotal.bof then
  177. totalPut=0
  178. response.write "Altogether 0 a product" '共有  个产品
  179. else
  180. totalPut=rsTotal(0)
  181. response.Write "Altogether " & totalPut & " a product" '共有  个产品
  182. end if
  183. rsTotal.close
  184. set rsTotal=nothing
  185. end sub
  187. '=========================================================================
  188. '过程名：ShowArticle
  189. '=========================================================================
  190. sub ShowArticle(TitleLen)
  191. if TitleLen<0 or TitleLen>200 then
  192. TitleLen=50
  193. end if
  194.     if currentpage<1 then
  195.     currentpage=1
  196.     end if
  197. if (currentpage-1)*MaxPerPage>totalput then
  198. if (totalPut mod MaxPerPage)=0 then
  199.     currentpage= totalPut  MaxPerPage
  200. else
  201.     currentpage= totalPut  MaxPerPage + 1
  202. end if
  203.     end if
  204. if currentPage=1 then
  205.         sqlArticle="select top " & MaxPerPage
  206. else
  207. sqlArticle="select "
  208. end if
  210. sqlArticle=sqlArticle & " ArticleID,Product_Id,EnBigClassName,EnSmallClassName,IncludePic,EnTitle,EnSpec,Size,EnMemo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True "
  212. if EnBigClassName<>"" then
  213. sqlArticle=sqlArticle & " and EnBigClassName='" & EnBigClassName & "'"
  214. if EnSmallClassName<>"" then
  215. sqlArticle=sqlArticle & " and EnSmallClassName='" & EnSmallClassName & "'"
  216. end if
  217. else
  218. if SpecialName<>"" then
  219. sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "'"
  220. end if
  221. end if
  222. sqlArticle=sqlArticle & " order by articleid desc"
  223. Set rsArticle= Server.CreateObject("ADODB.Recordset")
  224. rsArticle.open sqlArticle,conn,1,1
  225. if rsArticle.bof and  rsArticle.eof then
  226. response.Write("<br><li>There are not any products</li>")
  227. else
  228. if currentPage=1 then
  229. call ArticleContent(TitleLen)
  230. else
  231. if (currentPage-1)*MaxPerPage<totalPut then
  232.               rsArticle.move  (currentPage-1)*MaxPerPage
  233.           dim bookmark
  234.             bookmark=rsArticle.bookmark
  235.              call ArticleContent(TitleLen)
  236.          else
  237.          currentPage=1
  238.             call ArticleContent(TitleLen)
  239.      end if
  240. end if
  241. end if
  242. rsArticle.close
  243. set rsArticle=nothing
  244. end sub
  246. sub ArticleContent(intTitleLen)
  247.     dim i,strTemp
  248.     i=0
  249. do while not rsArticle.eof
  250. strTemp=""
  251. 'strTemp = strTemp & ""
  252. strTemp= strTemp & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
  253. strTemp= strTemp & "<tr>"
  254. strTemp= strTemp & "<td width=30% rowspan=6>"
  255. strTemp= strTemp & "<div align=center><a href=En_ProductShow.asp?ArticleID=" & rsArticle("articleid") & ">" 
  256. strTemp= strTemp & "<img border=0 src='" & rsArticle("DefaultPicUrl") & "' width=120 height=120>" 
  257. strTemp= strTemp & "</a></div></td>"
  258. strTemp= strTemp & "<td width=12% height=12>Name：</td>"
  259. strTemp= strTemp & "<td><a href=En_ProductShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("EnTitle") & "</a></td>"
  260. strTemp= strTemp & "</tr>"
  262. strTemp= strTemp & "<tr>"
  263. strTemp= strTemp & "<td width=12% height=12>Spec：</td>"
  264. strTemp= strTemp & "<td>" & rsArticle("EnSpec") & "</td>"
  265. strTemp= strTemp & "</tr>"
  267. strTemp= strTemp & "<tr>"
  268. strTemp= strTemp & "<td width=12% height=12>Size：</td>"
  269. strTemp= strTemp & "<td>" & rsArticle("Size") & "</td>"
  270. strTemp= strTemp & "</tr>"
  272. strTemp= strTemp & "<tr>"
  273. strTemp= strTemp & "<td height=12>class：</td>"
  274. strTemp= strTemp & "<td><a href='En_Product.asp?EnBigClassName=" & rsArticle("EnBigClassName") & "'>" & rsArticle("EnBigClassName") & "</a> → "
  275. strTemp= strTemp & "<a href='En_Product.asp?EnBigClassName=" & rsArticle("EnBigClassName") & "&EnSmallClassName=" & rsArticle("EnSmallClassName") & "'>" & rsArticle("EnSmallClassName") & ""
  276. strTemp= strTemp & "</a></td>"
  277. strTemp= strTemp & "</tr>" 
  279. strTemp= strTemp & "<tr>"
  280. strTemp= strTemp & "<td height=12>Info：</td>"
  281. strTemp= strTemp & "<td><a href=En_ProductShow.asp?ArticleID=" & rsArticle("articleid") & "><img src=../Img/En_arrow_7.gif border=0></a></td>"
  282. strTemp= strTemp & "</tr>"
  284. strTemp= strTemp & "<tr>"
  285. strTemp= strTemp & "<td colspan=2>"
  286. strTemp= strTemp & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
  287. strTemp= strTemp & "<tr>" 
  288. strTemp= strTemp & "<td width=50% height=12>"
  289. strTemp= strTemp & "<div align=center></div></td>"
  290. strTemp= strTemp & "<td width=50% height=12>"
  291. strTemp= strTemp & "<div align=center><a href='javascript:eshop(" & rsArticle("Product_Id") & ")'><img border=0 src=../Img/En_addtocart.gif width=95 height=17>"
  292. strTemp= strTemp & "</a></div></td>"
  293. strTemp= strTemp & "</tr>"
  294. strTemp= strTemp & "</table>"
  295. strTemp= strTemp & "</td>"
  296. strTemp= strTemp & "</tr>" 
  298. strTemp= strTemp & "<tr>" 
  299. strTemp= strTemp & "<td height=1 colspan=3 bgcolor=#CCCCCC></td>"
  300. strTemp= strTemp & "</tr>"
  301. strTemp= strTemp & "</table>"
  302. response.write strTemp
  303. rsArticle.movenext
  304. i=i+1
  305. if i>=MaxPerPage then exit do
  306. loop
  307. end sub 
  309. '=========================================================================
  310. '过程名：ShowSearchTerm
  311. '作  用：显示搜索条件信息
  312. '参  数：无
  313. '=========================================================================
  314. sub ShowSearchTerm()
  315. response.write "|&nbsp;ProductSearch&nbsp;&gt;&gt; " 'Product search产品搜索
  316. if EnBigClassName<>"" then
  317. response.write "<a href='En_Default.asp?EnBigClassName=" & EnBigClassName & "'>" & EnBigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  318. if EnSmallClassName<>"" then
  319. response.write "<a href='En_Default.asp?EnBigClassName=" & EnBigClassName & "&EnSmallClassName=" & EnSmallClassName & "'>" & EnSmallClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  320. else
  321. response.write "All Small Class &nbsp;&gt;&gt;&nbsp;" 'All Small Class所有小类
  322. end if
  323. end if
  324. if keyword<>"" then
  325.   select case strField
  326. case "EnTitle"
  327. response.Write "Contain in the name <font color=red>"&keyword&"</font> Products" '名称中含有  的产品
  328. case "EnContent"
  329. response.Write "Contain description <font color=red>"&keyword&"</font> Products" '说明含有  的产品 
  330. case else
  331. response.Write "Contain name <font color=red>"&keyword&"</font> Products" '名称中含有  的产品 
  332.   end select
  333. else
  334.   response.write "&nbsp;All products" '所有产品
  335. end if
  336. end sub
  338. '=========================================================================
  339. '过程名：SearchResultTotal
  340. '作  用：显示搜索结果总数
  341. '参  数：无
  342. '=========================================================================
  343. sub SearchResultTotal()
  344. dim rsTotal,sqlTotal
  345. sqlTotal="select count(*) from Product where Passed=True "
  346. if EnBigClassName<>"" then
  347. sqlTotal=sqlTotal & " and EnBigClassName='" & EnBigClassName & "'"
  348. if EnSmallClassName<>"" then
  349. sqlTotal=sqlTotal & " and EnSmallClassName='" & EnSmallClassName & "'"
  350. end if
  351. else
  352. if SpecialName<>"" then
  353. sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "'"
  354. end if
  355. end if
  356. if keyword<>"" then
  357. select case strField
  358. case "EnTitle"
  359. sqlTotal=sqlTotal & " and EnTitle like '%" & keyword & "%'"
  360. case "EnContent"
  361. sqlTotal=sqlTotal & " and EnContent like '%" & keyword & "%'"
  362. case else
  363. sqlTotal=sqlTotal & " and EnTitle like '%" & keyword & "%'"
  364. end select
  365. end if
  366. Set rsTotal= Server.CreateObject("ADODB.Recordset")
  367. rsTotal.open sqlTotal,conn,1,1
  368. if rsTotal.eof and rsTotal.bof then
  369. totalPut=0
  370. response.write "Altogether 0 a product" '共有 0 个产品
  371. else
  372. totalPut=rsTotal(0)
  373. response.Write "Find altogether " & totalPut & " a product" '共找到  个产品
  374. end if
  375. end sub
  377. '=========================================================================
  378. '过程名：ShowSearchResult
  379. '作  用：分页显示搜索结果
  380. '参  数：无
  381. '=========================================================================
  382. sub ShowSearchResult()
  383.     if currentpage<1 then
  384.     currentpage=1
  385.     end if
  386. if (currentpage-1)*MaxPerPage>totalput then
  387. if (totalPut mod MaxPerPage)=0 then
  388.     currentpage= totalPut  MaxPerPage
  389. else
  390.     currentpage= totalPut  MaxPerPage + 1
  391. end if
  392.     end if
  393. if currentPage=1 then
  394.         sqlSearch="select top " & MaxPerPage
  395. else
  396. sqlSearch="select "
  397. end if
  399. sqlSearch=sqlSearch & " * from Product where Passed=True "
  400. if EnBigClassName<>"" then
  401. sqlSearch=sqlSearch & " and EnBigClassName='" & EnBigClassName & "'"
  402. if EnSmallClassName<>"" then
  403. sqlSearch=sqlSearch & " and EnSmallClassName='" & EnSmallClassName & "'"
  404. end if
  405. else
  406. if SpecialName<>"" then
  407. sqlSearch=sqlSearch & " and SpecialName='" & SpecialName & "'"
  408. end if
  409. end if
  410. if keyword<>"" then
  411. select case strField
  412. case "EnTitle"
  413. sqlSearch=sqlSearch & " and EnTitle like '%" & keyword & "%'"
  414. case "EnContent"
  415. sqlSearch=sqlSearch & " and EnContent like '%" & keyword & "%'"
  416. case else
  417. sqlSearch=sqlSearch & " and EnTitle like '%" & keyword & "%'"
  418. end select
  419. end if
  420. sqlSearch=sqlSearch & " order by articleid desc"
  421. Set rsSearch= Server.CreateObject("ADODB.Recordset")
  422. rsSearch.open sqlSearch,conn,1,1
  423.   if rsSearch.eof and rsSearch.bof then 
  424.         response.write "<p align='center'><br><br>Have not had or found any products</p>" '没有或没有找到任何产品
  425.     else 
  426.     if currentPage=1 then 
  427.         call SearchResultContent()
  428.     else 
  429.         if (currentPage-1)*MaxPerPage<totalPut then 
  430.         rsSearch.move  (currentPage-1)*MaxPerPage 
  431.         dim bookmark 
  432.         bookmark=rsSearch.bookmark 
  433.         call SearchResultContent()
  434.        else 
  435.          currentPage=1 
  436.         call SearchResultContent()
  437.        end if 
  438.     end if 
  439.     end if 
  440.     rsSearch.close 
  441.     set rsSearch=nothing   
  442. end sub
  444. sub SearchResultContent()
  445.     dim i,strTemp,Encontent
  446. i=1
  447. do while not rsSearch.eof
  448. strTemp=""
  449. strTemp=strTemp & cstr(i) & ".<a href='En_ProductShow.asp?ArticleID=" & rsSearch("articleid") & "'>"
  450. if strField="EnTitle" then
  451. strTemp=strTemp & "<b>" & replace(rsSearch("EnTitle"),""&keyword&"","<font color=red>"&keyword&"</font>") & "</b></font></a>"
  452. else
  453. strTemp=strTemp & "<b>" & rsSearch("EnTitle") & "</b></a>"
  454. end if
  455. strTemp=strTemp & " [" & FormatDateTime(rsSearch("UpdateTime"),1) & "]"
  456. EnContent=left(nohtml(rsSearch("EnContent")),200)
  457. if strField="EnContent" then
  458. strTemp=strTemp & "<div style='padding:10px 20px'>" & replace(EnContent,""&keyword&"","<font color=red>"&keyword&"</font>") & "……</div>"
  459. else
  460. strTemp=strTemp & "<div style='padding:10px 20px'>" & EnContent & "……</div>"
  461. end if
  462. 'strTemp=strTemp & "</a>"
  463. response.write strTemp
  464. i=i+1
  465. if i>MaxPerPage then exit do
  466. rsSearch.movenext
  467. loop
  468. end sub 
  471. '=========================================================================
  472. '过程名：ShowSearch
  473. '作  用：显示文章搜索表单
  474. '参  数：ShowType ----显示方式。1为纵向，2为横向
  475. '=========================================================================
  476. sub ShowSearch(ShowType)
  477. dim count
  478. if ShowType<>1 and ShowType<>2 then
  479. ShowType=1
  480. end if
  481. set rs=server.createobject("adodb.recordset")
  482. sql = "select * from PrSmallClass order by SmallClassID asc"
  483. rs.open sql,conn,1,1
  484. %>
  485. <script language = "JavaScript">
  486. var onecount;
  487. subcat = new Array();
  488.         <%
  489.         count = 0
  490.         do while not rs.eof 
  491.         %>
  492. subcat[<%=count%>] = new Array("<%= trim(rs("EnSmallClassName"))%>","<%= trim(rs("EnBigClassName"))%>","<%= trim(rs("EnSmallClassName"))%>");
  493.         <%
  494.         count = count + 1
  495.         rs.movenext
  496.         loop
  497.         rs.close
  498.         %>
  499. onecount=<%=count%>;
  501. function changelocation(locationid)
  502.     {
  503.     document.myform.EnSmallClassName.length = 1; 
  504.     var locationid=locationid;
  505.     var i;
  506.     for (i=0;i < onecount; i++)
  507.         {
  508.             if (subcat[i][1] == locationid)
  509.             { 
  510.                 document.myform.EnSmallClassName.options[document.myform.EnSmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
  511.             }        
  512.         }
  513.     }    
  514. </script>
  515. <table border="0" cellpadding="2" cellspacing="0" align="center">
  516. <form method="Get" name="myform" action="En_search.asp">
  517. <tr><td height="28">
  518. <select name="Field" size="1">
  519.     <option value="EnTitle" selected>Produc name</option><!-- 产品名称 -->
  520.     <option value="EnContent">Product description</option><!-- 产品说明 -->
  521. </select>
  522. <%if ShowType=1 then%>
  523. </td></tr>
  524. <tr><td height="28">
  525. <%end if%>
  526. <select name="EnBigClassName" onChange="changelocation(document.myform.EnBigClassName.options[document.myform.EnBigClassName.selectedIndex].value)" size="1">
  527. <option selected value="">All big class</option>
  528. <%
  529. if not (rsBigClass.bof and rsBigClass.eof) then
  530. rsBigClass.movefirst
  531. do while not rsBigClass.eof
  532.         response.Write "<option value='" & trim(rsBigClass("EnBigClassName")) & "'>" & trim(rsBigClass("EnBigClassName")) & "</option>"
  533.     rsBigClass.movenext
  534. loop
  535. end if
  536. %>
  537. </select>
  538. <%if ShowType=1 then%>
  539. </td></tr>
  540. <tr><td height="28">
  541. <%end if%>
  542. <select name="EnSmallClassName" size="1">                  
  543.     <option selected value="">All small class</option>
  544. </select>
  545. <%if ShowType=1 then%>
  546. </td></tr>
  547. <tr><td height="28">
  548. <%end if%>
  549. <input type="text" name="keyword"  size=16 value="Key word" maxlength="50" onFocus="this.select();">
  550. <input type="submit" name="Submit"  value="Search">
  551. </td></tr>
  552. </form>
  553. </table>
  554. <%
  555. end sub
  557. '=========================================================================
  558. '过程名：ShowAllClass
  559. '作  用：显示所有栏目（栏目导航）
  560. '参  数：无
  561. '=========================================================================
  562. sub ShowAllClass()
  563. if rsBigClass.bof and rsBigClass.eof then 
  564. response.Write "&nbsp;There is not any column" 'There is not any column没有任何栏目
  565. else
  566. dim sqlClass,rsClass,strClassName
  567. rsBigClass.movefirst
  568. do while not rsBigClass.eof
  569. strClassName= "【<a href='En_Product.asp?EnBigClassName=" & rsBigClass("EnBigClassName") & "'><b>" & rsBigClass("EnBigClassName") & "</b></a>】<br><br>"
  570. sqlClass="select * from PrSmallClass where EnBigClassName='" & rsBigClass("EnBigClassName") & "'Order by SmallClassID"
  571. Set rsClass= Server.CreateObject("ADODB.Recordset")
  572. rsClass.open sqlClass,conn,1,1
  573. do while not rsClass.eof
  574. strClassName=strClassName & "&nbsp;<a href='En_Product.asp?EnBigClassName=" & rsClass("EnBigClassName") & "&EnSmallClassName=" & rsClass("EnSmallClassName") & "'>" & rsClass("EnSmallClassName") & "</a>&nbsp;"
  575. rsClass.movenext
  576. loop
  577. response.write strClassName & "<br><br>"
  578. rsBigClass.movenext
  579. loop
  580. rsClass.close
  581. set rsClass=nothing
  582. end if
  583. end sub
  586. '=========================================================================
  587. '过程名：ShowArticleContent
  588. '作  用：显示文章具体的内容，可以分页显示
  589. '参  数：无
  590. '"<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=100 height=120>"
  591. '=========================================================================
  592. sub ShowArticleContent()
  593. dim ArticleID,strContent,CurrentPage
  594. dim ContentLen,MaxPerPage,pages,i,lngBound
  595. dim BeginPoint,EndPoint
  596. ArticleID=rs("ArticleID")
  597. strContent=rs("EnContent")
  598. ContentLen=len(strContent)
  599. CurrentPage=trim(request("ArticlePage"))
  600. if ShowContentByPage="No" or ContentLen<=200000 then
  601. response.write strContent
  602. if ShowContentByPage="Yes" then
  603. response.write "</p><p align='center'></p>"
  604. end if
  605. else
  606. if CurrentPage="" then
  607. CurrentPage=1
  608. else
  609. CurrentPage=Cint(CurrentPage)
  610. end if
  611. pages=ContentLenMaxPerPage_Content
  612. if MaxPerPage_Content*pages<ContentLen then
  613. pages=pages+1
  614. end if
  615. lngBound=MaxPerPage_Content          '最大误差范围
  616. if CurrentPage<1 then CurrentPage=1
  617. if CurrentPage>pages then CurrentPage=pages
  619. dim lngTemp
  620. dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
  621. dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2
  622. dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2
  623. dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2
  624. dim lngTemp5,lngTemp5_1,lngTemp5_2
  625. dim lngTemp6,lngTemp6_1,lngTemp6_2
  627. if CurrentPage=1 then
  628. BeginPoint=1
  629. else
  630. BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
  632. lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
  633. lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
  634. lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
  635. if lngTemp1_1_1>0 then
  636. lngTemp1_1=lngTemp1_1_1
  637. elseif lngTemp1_1_2>0 then
  638. lngTemp1_1=lngTemp1_1_2
  639. elseif lngTemp1_1_3>0 then
  640. lngTemp1_1=lngTemp1_1_3
  641. else
  642. lngTemp1_1=0
  643. end if
  645. lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
  646. lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
  647. lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
  648. if lngTemp1_2_1>0 then
  649. lngTemp1_2=lngTemp1_2_1
  650. elseif lngTemp1_2_2>0 then
  651. lngTemp1_2=lngTemp1_2_2
  652. elseif lngTemp1_2_3>0 then
  653. lngTemp1_2=lngTemp1_2_3
  654. else
  655. lngTemp1_2=0
  656. end if
  658. if lngTemp1_1=0 and lngTemp1_2=0 then
  659. lngTemp1=BeginPoint
  660. else
  661. if lngTemp1_1>lngTemp1_2 then
  662. lngtemp1=lngTemp1_2
  663. else
  664. lngTemp1=lngTemp1_1+8
  665. end if
  666. end if
  668. lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
  669. lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
  670. if lngTemp2_1_1>0 then
  671. lngTemp2_1=lngTemp2_1_1
  672. elseif lngTemp2_1_2>0 then
  673. lngTemp2_1=lngTemp2_1_2
  674. else
  675. lngTemp2_1=0
  676. end if
  678. lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
  679. lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
  680. if lngTemp2_2_1>0 then
  681. lngTemp2_2=lngTemp2_2_1
  682. elseif lngTemp2_2_2>0 then
  683. lngTemp2_2=lngTemp2_2_2
  684. else
  685. lngTemp2_2=0
  686. end if
  688. if lngTemp2_1=0 and lngTemp2_2=0 then
  689. lntTemp2=BeginPoint
  690. else
  691. if lngTemp2_1>lngTemp2_2 then
  692. lngtemp2=lngTemp2_2
  693. else
  694. lngTemp2=lngTemp2_1+4
  695. end if
  696. end if
  698. lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
  699. lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
  700. if lngTemp3_1_1>0 then
  701. lngTemp3_1=lngTemp3_1_1
  702. elseif lngTemp3_1_2>0 then
  703. lngTemp3_1=lngTemp3_1_2
  704. else
  705. lngTemp3_1=0
  706. end if
  708. lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
  709. lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
  710. if lngTemp3_2_1>0 then
  711. lngTemp3_2=lngTemp3_2_1
  712. elseif lngTemp3_2_2>0 then
  713. lngTemp3_2=lngTemp3_2_2
  714. else
  715. lngTemp3_2=0
  716. end if
  718. if lngTemp3_1=0 and lngTemp3_2=0 then
  719. lngTemp3=BeginPoint
  720. else
  721. if lngTemp3_1>lngTemp3_2 then
  722. lngtemp3=lngTemp3_2
  723. else
  724. lngTemp3=lngTemp3_1+5
  725. end if
  726. end if
  728. if lngTemp1<lngTemp2 then
  729. lngTemp=lngTemp2
  730. else
  731. lngTemp=lngTemp1
  732. end if
  733. if lngTemp<lngTemp3 then
  734. lngTemp=lngTemp3
  735. end if
  737. if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
  738. BeginPoint=lngTemp
  739. else
  740. lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
  741. lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
  742. if lngTemp4_1_1>0 then
  743. lngTemp4_1=lngTemp4_1_1
  744. elseif lngTemp4_1_2>0 then
  745. lngTemp4_1=lngTemp4_1_2
  746. else
  747. lngTemp4_1=0
  748. end if
  750. lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
  751. lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
  752. if lngTemp4_2_1>0 then
  753. lngTemp4_2=lngTemp4_2_1
  754. elseif lngTemp4_2_2>0 then
  755. lngTemp4_2=lngTemp4_2_2
  756. else
  757. lngTemp4_2=0
  758. end if
  760. if lngTemp4_1=0 and lngTemp4_2=0 then
  761. lngTemp4=BeginPoint
  762. else
  763. if lngTemp4_1>lngTemp4_2 then
  764. lngtemp4=lngTemp4_2
  765. else
  766. lngTemp4=lngTemp4_1+5
  767. end if
  768. end if
  770. if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
  771. BeginPoint=lngTemp4
  772. else
  773. lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
  774. lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
  775. if lngTemp5_1>0 then
  776. lngTemp5=lngTemp5_1
  777. elseif lngTemp5_2>0 then
  778. lngTemp5=lngTemp5_2
  779. else
  780. lngTemp5=BeginPoint
  781. end if
  783. if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
  784. BeginPoint=lngTemp5
  785. else
  786. lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
  787. lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
  788. if lngTemp6_1>0 then
  789. lngTemp6=lngTemp6_1
  790. elseif lngTemp6_2>0 then
  791. lngTemp6=lngTemp6_2
  792. else
  793. lngTemp6=0
  794. end if
  796. if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
  797. BeginPoint=lngTemp6+4
  798. end if
  799. end if
  800. end if
  801. end if
  802. end if
  804. if CurrentPage=pages then
  805. EndPoint=ContentLen
  806. else
  807.   EndPoint=MaxPerPage_Content*CurrentPage
  808.   if EndPoint>=ContentLen then
  809. EndPoint=ContentLen
  810.   else
  811. lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
  812. lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
  813. lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
  814. if lngTemp1_1_1>0 then
  815. lngTemp1_1=lngTemp1_1_1
  816. elseif lngTemp1_1_2>0 then
  817. lngTemp1_1=lngTemp1_1_2
  818. elseif lngTemp1_1_3>0 then
  819. lngTemp1_1=lngTemp1_1_3
  820. else
  821. lngTemp1_1=0
  822. end if
  824. lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
  825. lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
  826. lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
  827. if lngTemp1_2_1>0 then
  828. lngTemp1_2=lngTemp1_2_1
  829. elseif lngTemp1_2_2>0 then
  830. lngTemp1_2=lngTemp1_2_2
  831. elseif lngTemp1_2_3>0 then
  832. lngTemp1_2=lngTemp1_2_3
  833. else
  834. lngTemp1_2=0
  835. end if
  837. if lngTemp1_1=0 and lngTemp1_2=0 then
  838. lngTemp1=EndPoint
  839. else
  840. if lngTemp1_1>lngTemp1_2 then
  841. lngtemp1=lngTemp1_2-1
  842. else
  843. lngTemp1=lngTemp1_1+7
  844. end if
  845. end if
  847. lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
  848. lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
  849. if lngTemp2_1_1>0 then
  850. lngTemp2_1=lngTemp2_1_1
  851. elseif lngTemp2_1_2>0 then
  852. lngTemp2_1=lngTemp2_1_2
  853. else
  854. lngTemp2_1=0
  855. end if
  857. lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
  858. lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
  859. if lngTemp2_2_1>0 then
  860. lngTemp2_2=lngTemp2_2_1
  861. elseif lngTemp2_2_2>0 then
  862. lngTemp2_2=lngTemp2_2_2
  863. else
  864. lngTemp2_2=0
  865. end if
  867. if lngTemp2_1=0 and lngTemp2_2=0 then
  868. lngTemp2=EndPoint
  869. else
  870. if lngTemp2_1>lngTemp2_2 then
  871. lngTemp2=lngTemp2_2-1
  872. else
  873. lngTemp2=lngTemp2_1+3
  874. end if
  875. end if
  877. lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
  878. lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
  879. if lngTemp3_1_1>0 then
  880. lngTemp3_1=lngTemp3_1_1
  881. elseif lngTemp3_1_2>0 then
  882. lngTemp3_1=lngTemp3_1_2
  883. else
  884. lngTemp3_1=0
  885. end if
  887. lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
  888. lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
  889. if lngTemp3_2_1>0 then
  890. lngTemp3_2=lngTemp3_2_1
  891. elseif lngTemp3_2_2>0 then
  892. lngTemp3_2=lngTemp3_2_2
  893. else
  894. lngTemp3_2=0
  895. end if
  897. if lngTemp3_1=0 and lngTemp3_2=0 then
  898. lngTemp3=EndPoint
  899. else
  900. if lngTemp3_1>lngTemp3_2 then
  901. lngtemp3=lngTemp3_2-1
  902. else
  903. lngTemp3=lngTemp3_1+4
  904. end if
  905. end if
  907. if lngTemp1<lngTemp2 then
  908. lngTemp=lngTemp2
  909. else
  910. lngTemp=lngTemp1
  911. end if
  912. if lngTemp<lngTemp3 then
  913. lngTemp=lngTemp3
  914. end if
  916. if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
  917. EndPoint=lngTemp
  918. else
  919. lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
  920. lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
  921. if lngTemp4_1_1>0 then
  922. lngTemp4_1=lngTemp4_1_1
  923. elseif lngTemp4_1_2>0 then
  924. lngTemp4_1=lngTemp4_1_2
  925. else
  926. lngTemp4_1=0
  927. end if
  929. lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
  930. lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
  931. if lngTemp4_2_1>0 then
  932. lngTemp4_2=lngTemp4_2_1
  933. elseif lngTemp4_2_2>0 then
  934. lngTemp4_2=lngTemp4_2_2
  935. else
  936. lngTemp4_2=0
  937. end if
  939. if lngTemp4_1=0 and lngTemp4_2=0 then
  940. lngTemp4=EndPoint
  941. else
  942. if lngTemp4_1>lngTemp4_2 then
  943. lngtemp4=lngTemp4_2-1
  944. else
  945. lngTemp4=lngTemp4_1+4
  946. end if
  947. end if
  949. if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
  950. EndPoint=lngTemp4
  951. else
  952. lngTemp5_1=instr(EndPoint,strContent,"<img",1)
  953. lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
  954. if lngTemp5_1>0 then
  955. lngTemp5=lngTemp5_1-1
  956. elseif lngTemp5_2>0 then
  957. lngTemp5=lngTemp5_2-1
  958. else
  959. lngTemp5=EndPoint
  960. end if
  962. if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
  963. EndPoint=lngTemp5
  964. else
  965. lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
  966. lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
  967. if lngTemp6_1>0 then
  968. lngTemp6=lngTemp6_1+3
  969. elseif lngTemp6_2>0 then
  970. lngTemp6=lngTemp6_2+3
  971. else
  972. lngTemp6=EndPoint
  973. end if
  975. if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
  976. EndPoint=lngTemp6
  977. end if
  978. end if
  979. end if
  980. end if
  981.   end if
  982. end if
  983. response.write mid(strContent,BeginPoint,EndPoint-BeginPoint)
  985. response.write "</p><p align='center'><b>"
  986. if CurrentPage>1 then
  987. response.write "<a href='En_ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>Previous page</a>&nbsp;&nbsp;"
  988. end if
  989. for i=1 to pages
  990. if i=CurrentPage then
  991. response.write "<font color='red'>[" & cstr(i) & "]</font>&nbsp;"
  992. else
  993. response.write "<a href='En_ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a>&nbsp;"
  994. end if
  995. next
  996. if CurrentPage<pages then
  997. response.write "&nbsp;<a href='En_ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>Next page</a>"
  998. end if
  999. response.write "</b></p>"
  1000. end if
  1002. end sub
  1003. %>