Category

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

WEB(ASP,PHP,...)

Development Platform:

VBScript

En_SysProduct.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="85%" border=0 align=center>
  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")%>'language=javascript onmouseover="opencat(cat10<%=i%>000,&#13;&#10; img10<%=i%>000);"><%=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 - 1 & " 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,lb,strli
  248. Response.Write "<table width=100% border=0 cellspacing=2 cellpadding=0><TR><TD></TD></TR>"
  249.     i=1
  250. Response.Write "<TR align=""center"">"
  251. do while not rsArticle.eof
  252. strli=""
  253. strli=strli & " ● &nbsp;&nbsp;Name："& rsArticle("EnTitle") &" "&chr(13)
  254. strli=strli & " ● &nbsp;&nbsp;Spec："& rsArticle("EnSpec") &" "&chr(13)
  255. strli=strli & " ● &nbsp;&nbsp;Size："& rsArticle("Size") &" "
  256. lb=""
  257. lb=lb & "<TD>"
  258. lb=lb & "<table width=130 border=0 cellspacing=0 cellpadding=0>"
  259. lb=lb & "<TR><TD height=5></TD></TR>"
  261. lb=lb & "<tr>"
  262. lb=lb & "<td width='98%'><div align=center>"
  263. lb=lb & "<a href='En_ProductShow.asp?ArticleID=" & rsArticle("articleid") & "'title='" & strli &"'>" 
  264. lb=lb & "<img border=0 src='"& rsArticle("DefaultPicUrl") &"' width=130 height=90 class=bk></a>" 
  265. lb=lb & "</div></td>"
  266. lb=lb & "</tr>"
  268. lb=lb & "<TR><TD height=3></TD></TR>"
  270. lb=lb & "<tr>"
  271. lb=lb & "<td height=23 background=../img/tablebg1.gif><div align=center>"
  272. lb=lb & "<a href='En_ProductShow.asp?ArticleID="& rsArticle("articleid") &"'title='" & strli &"'>"& gotTopic(rsArticle("EnTitle"),16) &"</a>"
  273. lb=lb & "</div></td>"
  274. lb=lb & "</tr>"
  276. lb=lb & "<tr>"
  277. lb=lb & "<td height=20 background=../img/tablebg2.gif><div align=center>"
  278. lb=lb & "<a href='En_ProductShow.asp?ArticleID="& rsArticle("articleid") &"'>See</a>&nbsp;&nbsp;&nbsp;&nbsp;"
  279. lb=lb & "<a href='javascript:eshop("& rsArticle("Product_Id") &")'>Order</a>"
  280. lb=lb & "</div></td>"
  281. lb=lb & "</tr>"
  283. lb=lb & "<tr>" 
  284. lb=lb & "<td height=7 background='../img/tablebg3.gif'><IMG height=1 src='../img/1x1_pix.gif' width=1></td>"
  285. lb=lb & "</tr>"
  286. lb=lb & "</table>"
  287. lb=lb & "</TD>"
  288. response.write lb
  290. if i mod 4 <>0 then
  291. end if
  292. if i mod 4 =0 then
  293. Response.Write "</TR><TR>"
  294. end if
  296. rsArticle.movenext
  297. i=i+1
  298. if i>=MaxPerPage then exit do
  299. loop
  300.  Response.Write "</TR><TR><TD></TD></TR></Table>"
  301. end sub 
  303. '=========================================================================
  304. '过程名：ShowSearchTerm
  305. '作  用：显示搜索条件信息
  306. '参  数：无
  307. '=========================================================================
  308. sub ShowSearchTerm()
  309. response.write "|&nbsp;ProductSearch&nbsp;&gt;&gt; " 'Product search产品搜索
  310. if EnBigClassName<>"" then
  311. response.write "<a href='En_Default.asp?EnBigClassName=" & EnBigClassName & "'>" & EnBigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  312. if EnSmallClassName<>"" then
  313. response.write "<a href='En_Default.asp?EnBigClassName=" & EnBigClassName & "&EnSmallClassName=" & EnSmallClassName & "'>" & EnSmallClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  314. else
  315. response.write "All Small Class &nbsp;&gt;&gt;&nbsp;" 'All Small Class所有小类
  316. end if
  317. end if
  318. if keyword<>"" then
  319.   select case strField
  320. case "EnTitle"
  321. response.Write "Contain in the name <font color=red>"&keyword&"</font> Products" '名称中含有  的产品
  322. case "EnContent"
  323. response.Write "Contain description <font color=red>"&keyword&"</font> Products" '说明含有  的产品 
  324. case else
  325. response.Write "Contain name <font color=red>"&keyword&"</font> Products" '名称中含有  的产品 
  326.   end select
  327. else
  328.   response.write "&nbsp;All products" '所有产品
  329. end if
  330. end sub
  332. '=========================================================================
  333. '过程名：SearchResultTotal
  334. '作  用：显示搜索结果总数
  335. '参  数：无
  336. '=========================================================================
  337. sub SearchResultTotal()
  338. dim rsTotal,sqlTotal
  339. sqlTotal="select count(*) from Product where Passed=True "
  340. if EnBigClassName<>"" then
  341. sqlTotal=sqlTotal & " and EnBigClassName='" & EnBigClassName & "'"
  342. if EnSmallClassName<>"" then
  343. sqlTotal=sqlTotal & " and EnSmallClassName='" & EnSmallClassName & "'"
  344. end if
  345. else
  346. if SpecialName<>"" then
  347. sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "'"
  348. end if
  349. end if
  350. if keyword<>"" then
  351. select case strField
  352. case "EnTitle"
  353. sqlTotal=sqlTotal & " and EnTitle like '%" & keyword & "%'"
  354. case "EnContent"
  355. sqlTotal=sqlTotal & " and EnContent like '%" & keyword & "%'"
  356. case else
  357. sqlTotal=sqlTotal & " and EnTitle like '%" & keyword & "%'"
  358. end select
  359. end if
  360. Set rsTotal= Server.CreateObject("ADODB.Recordset")
  361. rsTotal.open sqlTotal,conn,1,1
  362. if rsTotal.eof and rsTotal.bof then
  363. totalPut=0
  364. response.write "Altogether 0 a product" '共有 0 个产品
  365. else
  366. totalPut=rsTotal(0)
  367. response.Write "Find altogether " & totalPut & " a product" '共找到  个产品
  368. end if
  369. end sub
  371. '=========================================================================
  372. '过程名：ShowSearchResult
  373. '作  用：分页显示搜索结果
  374. '参  数：无
  375. '=========================================================================
  376. sub ShowSearchResult()
  377.     if currentpage<1 then
  378.     currentpage=1
  379.     end if
  380. if (currentpage-1)*MaxPerPage>totalput then
  381. if (totalPut mod MaxPerPage)=0 then
  382.     currentpage= totalPut  MaxPerPage
  383. else
  384.     currentpage= totalPut  MaxPerPage + 1
  385. end if
  386.     end if
  387. if currentPage=1 then
  388.         sqlSearch="select top " & MaxPerPage
  389. else
  390. sqlSearch="select "
  391. end if
  393. sqlSearch=sqlSearch & " * from Product where Passed=True "
  394. if EnBigClassName<>"" then
  395. sqlSearch=sqlSearch & " and EnBigClassName='" & EnBigClassName & "'"
  396. if EnSmallClassName<>"" then
  397. sqlSearch=sqlSearch & " and EnSmallClassName='" & EnSmallClassName & "'"
  398. end if
  399. else
  400. if SpecialName<>"" then
  401. sqlSearch=sqlSearch & " and SpecialName='" & SpecialName & "'"
  402. end if
  403. end if
  404. if keyword<>"" then
  405. select case strField
  406. case "EnTitle"
  407. sqlSearch=sqlSearch & " and EnTitle like '%" & keyword & "%'"
  408. case "EnContent"
  409. sqlSearch=sqlSearch & " and EnContent like '%" & keyword & "%'"
  410. case else
  411. sqlSearch=sqlSearch & " and EnTitle like '%" & keyword & "%'"
  412. end select
  413. end if
  414. sqlSearch=sqlSearch & " order by articleid desc"
  415. Set rsSearch= Server.CreateObject("ADODB.Recordset")
  416. rsSearch.open sqlSearch,conn,1,1
  417.   if rsSearch.eof and rsSearch.bof then 
  418.         response.write "<p align='center'><br><br>Have not had or found any products</p>" '没有或没有找到任何产品
  419.     else 
  420.     if currentPage=1 then 
  421.         call SearchResultContent()
  422.     else 
  423.         if (currentPage-1)*MaxPerPage<totalPut then 
  424.         rsSearch.move  (currentPage-1)*MaxPerPage 
  425.         dim bookmark 
  426.         bookmark=rsSearch.bookmark 
  427.         call SearchResultContent()
  428.        else 
  429.          currentPage=1 
  430.         call SearchResultContent()
  431.        end if 
  432.     end if 
  433.     end if 
  434.     rsSearch.close 
  435.     set rsSearch=nothing   
  436. end sub
  438. sub SearchResultContent()
  439.     dim i,strTemp,Encontent
  440. i=1
  441. do while not rsSearch.eof
  442. strTemp=""
  443. strTemp=strTemp & cstr(i) & ".<a href='En_ProductShow.asp?ArticleID=" & rsSearch("articleid") & "'>"
  444. if strField="EnTitle" then
  445. strTemp=strTemp & "<b>" & replace(rsSearch("EnTitle"),""&keyword&"","<font color=red>"&keyword&"</font>") & "</b></font></a>"
  446. else
  447. strTemp=strTemp & "<b>" & rsSearch("EnTitle") & "</b></a>"
  448. end if
  449. strTemp=strTemp & " [" & FormatDateTime(rsSearch("UpdateTime"),1) & "]"
  450. EnContent=left(nohtml(rsSearch("EnContent")),200)
  451. if strField="EnContent" then
  452. strTemp=strTemp & "<div style='padding:10px 20px'>" & replace(EnContent,""&keyword&"","<font color=red>"&keyword&"</font>") & "……</div>"
  453. else
  454. strTemp=strTemp & "<div style='padding:10px 20px'>" & EnContent & "……</div>"
  455. end if
  456. 'strTemp=strTemp & "</a>"
  457. response.write strTemp
  458. i=i+1
  459. if i>MaxPerPage then exit do
  460. rsSearch.movenext
  461. loop
  462. end sub 
  465. '=========================================================================
  466. '过程名：ShowSearch
  467. '作  用：显示文章搜索表单
  468. '参  数：ShowType ----显示方式。1为纵向，2为横向
  469. '=========================================================================
  470. sub ShowSearch(ShowType)
  471. dim count
  472. if ShowType<>1 and ShowType<>2 then
  473. ShowType=1
  474. end if
  475. set rs=server.createobject("adodb.recordset")
  476. sql = "select * from PrSmallClass order by SmallClassID asc"
  477. rs.open sql,conn,1,1
  478. %>
  479. <script language = "JavaScript">
  480. var onecount;
  481. subcat = new Array();
  482.         <%
  483.         count = 0
  484.         do while not rs.eof 
  485.         %>
  486. subcat[<%=count%>] = new Array("<%= trim(rs("EnSmallClassName"))%>","<%= trim(rs("EnBigClassName"))%>","<%= trim(rs("EnSmallClassName"))%>");
  487.         <%
  488.         count = count + 1
  489.         rs.movenext
  490.         loop
  491.         rs.close
  492.         %>
  493. onecount=<%=count%>;
  495. function changelocation(locationid)
  496.     {
  497.     document.myform.EnSmallClassName.length = 1; 
  498.     var locationid=locationid;
  499.     var i;
  500.     for (i=0;i < onecount; i++)
  501.         {
  502.             if (subcat[i][1] == locationid)
  503.             { 
  504.                 document.myform.EnSmallClassName.options[document.myform.EnSmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
  505.             }        
  506.         }
  507.     }    
  508. </script>
  509. <table border="0" cellpadding="2" cellspacing="0" align="center">
  510. <form method="Get" name="myform" action="En_search.asp">
  511. <tr><td height="28">
  512. <select name="Field" size="1">
  513.     <option value="EnTitle" selected>Produc name</option><!-- 产品名称 -->
  514.     <option value="EnContent">Product description</option><!-- 产品说明 -->
  515. </select>
  516. <%if ShowType=1 then%>
  517. </td></tr>
  518. <tr><td height="28">
  519. <%end if%>
  520. <select name="EnBigClassName" onChange="changelocation(document.myform.EnBigClassName.options[document.myform.EnBigClassName.selectedIndex].value)" size="1">
  521. <option selected value="">All big class</option>
  522. <%
  523. if not (rsBigClass.bof and rsBigClass.eof) then
  524. rsBigClass.movefirst
  525. do while not rsBigClass.eof
  526.         response.Write "<option value='" & trim(rsBigClass("EnBigClassName")) & "'>" & trim(rsBigClass("EnBigClassName")) & "</option>"
  527.     rsBigClass.movenext
  528. loop
  529. end if
  530. %>
  531. </select>
  532. <%if ShowType=1 then%>
  533. </td></tr>
  534. <tr><td height="28">
  535. <%end if%>
  536. <select name="EnSmallClassName" size="1">                  
  537.     <option selected value="">All small class</option>
  538. </select>
  539. <%if ShowType=1 then%>
  540. </td></tr>
  541. <tr><td height="28">
  542. <%end if%>
  543. <input type="text" name="keyword"  size=16 value="Key word" maxlength="50" onFocus="this.select();">
  544. <input type="submit" name="Submit"  value="Search">
  545. </td></tr>
  546. </form>
  547. </table>
  548. <%
  549. end sub
  551. '=========================================================================
  552. '过程名：ShowAllClass
  553. '作  用：显示所有栏目（栏目导航）
  554. '参  数：无
  555. '=========================================================================
  556. sub ShowAllClass()
  557. if rsBigClass.bof and rsBigClass.eof then 
  558. response.Write "&nbsp;There is not any column" 'There is not any column没有任何栏目
  559. else
  560. dim sqlClass,rsClass,strClassName
  561. rsBigClass.movefirst
  562. do while not rsBigClass.eof
  563. strClassName= "【<a href='En_Product.asp?EnBigClassName=" & rsBigClass("EnBigClassName") & "'><b>" & rsBigClass("EnBigClassName") & "</b></a>】<br><br>"
  564. sqlClass="select * from PrSmallClass where EnBigClassName='" & rsBigClass("EnBigClassName") & "'Order by SmallClassID"
  565. Set rsClass= Server.CreateObject("ADODB.Recordset")
  566. rsClass.open sqlClass,conn,1,1
  567. do while not rsClass.eof
  568. strClassName=strClassName & "&nbsp;<a href='En_Product.asp?EnBigClassName=" & rsClass("EnBigClassName") & "&EnSmallClassName=" & rsClass("EnSmallClassName") & "'>" & rsClass("EnSmallClassName") & "</a>&nbsp;"
  569. rsClass.movenext
  570. loop
  571. response.write strClassName & "<br><br>"
  572. rsBigClass.movenext
  573. loop
  574. rsClass.close
  575. set rsClass=nothing
  576. end if
  577. end sub
  580. '=========================================================================
  581. '过程名：ShowArticleContent
  582. '作  用：显示文章具体的内容，可以分页显示
  583. '参  数：无
  584. '"<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=100 height=120>"
  585. '=========================================================================
  586. sub ShowArticleContent()
  587. dim ArticleID,strContent,CurrentPage
  588. dim ContentLen,MaxPerPage,pages,i,lngBound
  589. dim BeginPoint,EndPoint
  590. ArticleID=rs("ArticleID")
  591. strContent=rs("EnContent")
  592. ContentLen=len(strContent)
  593. CurrentPage=trim(request("ArticlePage"))
  594. if ShowContentByPage="No" or ContentLen<=200000 then
  595. response.write strContent
  596. if ShowContentByPage="Yes" then
  597. response.write "</p><p align='center'></p>"
  598. end if
  599. else
  600. if CurrentPage="" then
  601. CurrentPage=1
  602. else
  603. CurrentPage=Cint(CurrentPage)
  604. end if
  605. pages=ContentLenMaxPerPage_Content
  606. if MaxPerPage_Content*pages<ContentLen then
  607. pages=pages+1
  608. end if
  609. lngBound=MaxPerPage_Content          '最大误差范围
  610. if CurrentPage<1 then CurrentPage=1
  611. if CurrentPage>pages then CurrentPage=pages
  613. dim lngTemp
  614. dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
  615. dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2
  616. dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2
  617. dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2
  618. dim lngTemp5,lngTemp5_1,lngTemp5_2
  619. dim lngTemp6,lngTemp6_1,lngTemp6_2
  621. if CurrentPage=1 then
  622. BeginPoint=1
  623. else
  624. BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
  626. lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
  627. lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
  628. lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
  629. if lngTemp1_1_1>0 then
  630. lngTemp1_1=lngTemp1_1_1
  631. elseif lngTemp1_1_2>0 then
  632. lngTemp1_1=lngTemp1_1_2
  633. elseif lngTemp1_1_3>0 then
  634. lngTemp1_1=lngTemp1_1_3
  635. else
  636. lngTemp1_1=0
  637. end if
  639. lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
  640. lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
  641. lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
  642. if lngTemp1_2_1>0 then
  643. lngTemp1_2=lngTemp1_2_1
  644. elseif lngTemp1_2_2>0 then
  645. lngTemp1_2=lngTemp1_2_2
  646. elseif lngTemp1_2_3>0 then
  647. lngTemp1_2=lngTemp1_2_3
  648. else
  649. lngTemp1_2=0
  650. end if
  652. if lngTemp1_1=0 and lngTemp1_2=0 then
  653. lngTemp1=BeginPoint
  654. else
  655. if lngTemp1_1>lngTemp1_2 then
  656. lngtemp1=lngTemp1_2
  657. else
  658. lngTemp1=lngTemp1_1+8
  659. end if
  660. end if
  662. lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
  663. lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
  664. if lngTemp2_1_1>0 then
  665. lngTemp2_1=lngTemp2_1_1
  666. elseif lngTemp2_1_2>0 then
  667. lngTemp2_1=lngTemp2_1_2
  668. else
  669. lngTemp2_1=0
  670. end if
  672. lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
  673. lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
  674. if lngTemp2_2_1>0 then
  675. lngTemp2_2=lngTemp2_2_1
  676. elseif lngTemp2_2_2>0 then
  677. lngTemp2_2=lngTemp2_2_2
  678. else
  679. lngTemp2_2=0
  680. end if
  682. if lngTemp2_1=0 and lngTemp2_2=0 then
  683. lntTemp2=BeginPoint
  684. else
  685. if lngTemp2_1>lngTemp2_2 then
  686. lngtemp2=lngTemp2_2
  687. else
  688. lngTemp2=lngTemp2_1+4
  689. end if
  690. end if
  692. lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
  693. lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
  694. if lngTemp3_1_1>0 then
  695. lngTemp3_1=lngTemp3_1_1
  696. elseif lngTemp3_1_2>0 then
  697. lngTemp3_1=lngTemp3_1_2
  698. else
  699. lngTemp3_1=0
  700. end if
  702. lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
  703. lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
  704. if lngTemp3_2_1>0 then
  705. lngTemp3_2=lngTemp3_2_1
  706. elseif lngTemp3_2_2>0 then
  707. lngTemp3_2=lngTemp3_2_2
  708. else
  709. lngTemp3_2=0
  710. end if
  712. if lngTemp3_1=0 and lngTemp3_2=0 then
  713. lngTemp3=BeginPoint
  714. else
  715. if lngTemp3_1>lngTemp3_2 then
  716. lngtemp3=lngTemp3_2
  717. else
  718. lngTemp3=lngTemp3_1+5
  719. end if
  720. end if
  722. if lngTemp1<lngTemp2 then
  723. lngTemp=lngTemp2
  724. else
  725. lngTemp=lngTemp1
  726. end if
  727. if lngTemp<lngTemp3 then
  728. lngTemp=lngTemp3
  729. end if
  731. if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
  732. BeginPoint=lngTemp
  733. else
  734. lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
  735. lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
  736. if lngTemp4_1_1>0 then
  737. lngTemp4_1=lngTemp4_1_1
  738. elseif lngTemp4_1_2>0 then
  739. lngTemp4_1=lngTemp4_1_2
  740. else
  741. lngTemp4_1=0
  742. end if
  744. lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
  745. lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
  746. if lngTemp4_2_1>0 then
  747. lngTemp4_2=lngTemp4_2_1
  748. elseif lngTemp4_2_2>0 then
  749. lngTemp4_2=lngTemp4_2_2
  750. else
  751. lngTemp4_2=0
  752. end if
  754. if lngTemp4_1=0 and lngTemp4_2=0 then
  755. lngTemp4=BeginPoint
  756. else
  757. if lngTemp4_1>lngTemp4_2 then
  758. lngtemp4=lngTemp4_2
  759. else
  760. lngTemp4=lngTemp4_1+5
  761. end if
  762. end if
  764. if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
  765. BeginPoint=lngTemp4
  766. else
  767. lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
  768. lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
  769. if lngTemp5_1>0 then
  770. lngTemp5=lngTemp5_1
  771. elseif lngTemp5_2>0 then
  772. lngTemp5=lngTemp5_2
  773. else
  774. lngTemp5=BeginPoint
  775. end if
  777. if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
  778. BeginPoint=lngTemp5
  779. else
  780. lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
  781. lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
  782. if lngTemp6_1>0 then
  783. lngTemp6=lngTemp6_1
  784. elseif lngTemp6_2>0 then
  785. lngTemp6=lngTemp6_2
  786. else
  787. lngTemp6=0
  788. end if
  790. if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
  791. BeginPoint=lngTemp6+4
  792. end if
  793. end if
  794. end if
  795. end if
  796. end if
  798. if CurrentPage=pages then
  799. EndPoint=ContentLen
  800. else
  801.   EndPoint=MaxPerPage_Content*CurrentPage
  802.   if EndPoint>=ContentLen then
  803. EndPoint=ContentLen
  804.   else
  805. lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
  806. lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
  807. lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
  808. if lngTemp1_1_1>0 then
  809. lngTemp1_1=lngTemp1_1_1
  810. elseif lngTemp1_1_2>0 then
  811. lngTemp1_1=lngTemp1_1_2
  812. elseif lngTemp1_1_3>0 then
  813. lngTemp1_1=lngTemp1_1_3
  814. else
  815. lngTemp1_1=0
  816. end if
  818. lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
  819. lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
  820. lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
  821. if lngTemp1_2_1>0 then
  822. lngTemp1_2=lngTemp1_2_1
  823. elseif lngTemp1_2_2>0 then
  824. lngTemp1_2=lngTemp1_2_2
  825. elseif lngTemp1_2_3>0 then
  826. lngTemp1_2=lngTemp1_2_3
  827. else
  828. lngTemp1_2=0
  829. end if
  831. if lngTemp1_1=0 and lngTemp1_2=0 then
  832. lngTemp1=EndPoint
  833. else
  834. if lngTemp1_1>lngTemp1_2 then
  835. lngtemp1=lngTemp1_2-1
  836. else
  837. lngTemp1=lngTemp1_1+7
  838. end if
  839. end if
  841. lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
  842. lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
  843. if lngTemp2_1_1>0 then
  844. lngTemp2_1=lngTemp2_1_1
  845. elseif lngTemp2_1_2>0 then
  846. lngTemp2_1=lngTemp2_1_2
  847. else
  848. lngTemp2_1=0
  849. end if
  851. lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
  852. lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
  853. if lngTemp2_2_1>0 then
  854. lngTemp2_2=lngTemp2_2_1
  855. elseif lngTemp2_2_2>0 then
  856. lngTemp2_2=lngTemp2_2_2
  857. else
  858. lngTemp2_2=0
  859. end if
  861. if lngTemp2_1=0 and lngTemp2_2=0 then
  862. lngTemp2=EndPoint
  863. else
  864. if lngTemp2_1>lngTemp2_2 then
  865. lngTemp2=lngTemp2_2-1
  866. else
  867. lngTemp2=lngTemp2_1+3
  868. end if
  869. end if
  871. lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
  872. lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
  873. if lngTemp3_1_1>0 then
  874. lngTemp3_1=lngTemp3_1_1
  875. elseif lngTemp3_1_2>0 then
  876. lngTemp3_1=lngTemp3_1_2
  877. else
  878. lngTemp3_1=0
  879. end if
  881. lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
  882. lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
  883. if lngTemp3_2_1>0 then
  884. lngTemp3_2=lngTemp3_2_1
  885. elseif lngTemp3_2_2>0 then
  886. lngTemp3_2=lngTemp3_2_2
  887. else
  888. lngTemp3_2=0
  889. end if
  891. if lngTemp3_1=0 and lngTemp3_2=0 then
  892. lngTemp3=EndPoint
  893. else
  894. if lngTemp3_1>lngTemp3_2 then
  895. lngtemp3=lngTemp3_2-1
  896. else
  897. lngTemp3=lngTemp3_1+4
  898. end if
  899. end if
  901. if lngTemp1<lngTemp2 then
  902. lngTemp=lngTemp2
  903. else
  904. lngTemp=lngTemp1
  905. end if
  906. if lngTemp<lngTemp3 then
  907. lngTemp=lngTemp3
  908. end if
  910. if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
  911. EndPoint=lngTemp
  912. else
  913. lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
  914. lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
  915. if lngTemp4_1_1>0 then
  916. lngTemp4_1=lngTemp4_1_1
  917. elseif lngTemp4_1_2>0 then
  918. lngTemp4_1=lngTemp4_1_2
  919. else
  920. lngTemp4_1=0
  921. end if
  923. lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
  924. lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
  925. if lngTemp4_2_1>0 then
  926. lngTemp4_2=lngTemp4_2_1
  927. elseif lngTemp4_2_2>0 then
  928. lngTemp4_2=lngTemp4_2_2
  929. else
  930. lngTemp4_2=0
  931. end if
  933. if lngTemp4_1=0 and lngTemp4_2=0 then
  934. lngTemp4=EndPoint
  935. else
  936. if lngTemp4_1>lngTemp4_2 then
  937. lngtemp4=lngTemp4_2-1
  938. else
  939. lngTemp4=lngTemp4_1+4
  940. end if
  941. end if
  943. if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
  944. EndPoint=lngTemp4
  945. else
  946. lngTemp5_1=instr(EndPoint,strContent,"<img",1)
  947. lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
  948. if lngTemp5_1>0 then
  949. lngTemp5=lngTemp5_1-1
  950. elseif lngTemp5_2>0 then
  951. lngTemp5=lngTemp5_2-1
  952. else
  953. lngTemp5=EndPoint
  954. end if
  956. if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
  957. EndPoint=lngTemp5
  958. else
  959. lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
  960. lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
  961. if lngTemp6_1>0 then
  962. lngTemp6=lngTemp6_1+3
  963. elseif lngTemp6_2>0 then
  964. lngTemp6=lngTemp6_2+3
  965. else
  966. lngTemp6=EndPoint
  967. end if
  969. if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
  970. EndPoint=lngTemp6
  971. end if
  972. end if
  973. end if
  974. end if
  975.   end if
  976. end if
  977. response.write mid(strContent,BeginPoint,EndPoint-BeginPoint)
  979. response.write "</p><p align='center'><b>"
  980. if CurrentPage>1 then
  981. response.write "<a href='En_ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>Previous page</a>&nbsp;&nbsp;"
  982. end if
  983. for i=1 to pages
  984. if i=CurrentPage then
  985. response.write "<font color='red'>[" & cstr(i) & "]</font>&nbsp;"
  986. else
  987. response.write "<a href='En_ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a>&nbsp;"
  988. end if
  989. next
  990. if CurrentPage<pages then
  991. response.write "&nbsp;<a href='En_ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>Next page</a>"
  992. end if
  993. response.write "</b></p>"
  994. end if
  996. end sub
  997. %>