Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > WEB(ASP,PHP,...) > View Code
SysProduct.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

SysProduct.asp：Code Content
  3. <%
  4. dim strFileName,MaxPerPage,ShowSmallClassType
  5. dim totalPut,CurrentPage,TotalPages
  6. dim BeginTime,EndTime
  7. dim founderr, errmsg
  8. dim BigClassName,SmallClassName,SpecialName,keyword,strField
  9. dim rs,sql,sqlArticle,rsArticle,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlSpecial,rsSpecial
  10. dim SpecialTotal
  11. BeginTime=Timer
  12. BigClassName=Trim(request("BigClassName"))
  13. SmallClassName=Trim(request("SmallClassName"))
  14. SpecialName=trim(request("SpecialName"))
  15. keyword=trim(request("keyword"))
  16. if keyword<>"" then 
  17. keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","&lt;"),">","&gt;")," ","&nbsp;")
  18. end if
  19. strField=trim(request("Field"))
  21. if request("page")<>"" then
  22.     currentPage=cint(request("page"))
  23. else
  24. currentPage=1
  25. end if
  27. sqlBigClass="select * from PrBigClasss order by BigClassID"
  28. Set rsBigClass= Server.CreateObject("ADODB.Recordset")
  29. 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 "栏目正在建设中……"
  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=32 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='Product.asp?BigClassName=<%=rsBigClass("BigClassName")%>'language=javascript onmouseover="opencat(cat10<%=i%>000,&#13;&#10; img10<%=i%>000);"><%=rsBigClass("BigClassName")%></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 BigClassName='" & rsBigClass("BigClassName") & "'order by SmallClassID"
  68. rss.open sqls,conn,1,1
  69. if rss.eof and rss.bof then
  70. Response.Write "没有小分类"
  71. else
  72. j=1
  73. do while not rss.eof
  74. %>
  75. &nbsp;<IMG height=20 src="../img/class3.gif" width=26 align=absMiddle border=0><a href="Product.asp?BigClassName=<%=rss("BigClassName")%>&Smallclassname=<%=rss("SmallClassName")%>"><%=rss("SmallClassName")%></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;没有任何调查"
  108. else
  109. response.write "<form name='VoteForm'method='post'action='vote.asp'target='_blank'><td>"
  110. response.write "&nbsp;&nbsp;&nbsp;&nbsp;"& rsVote("Title") &"<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='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='Product.asp'>产品展示</a>&nbsp;&gt;&gt;"
  141. if BigClassName="" and SmallClassName="" then
  142. response.write "&nbsp;所有产品"
  143. else
  144. if BigClassName<>"" then
  145. response.write "&nbsp;<a href='Product.asp?BigClassName="& BigClassName &"'>"& BigClassName &"</a>&nbsp;&gt;&gt;&nbsp;"
  146. if SmallClassName<>"" then
  147. response.write "<a href='Product.asp?BigClassName="& BigClassName &"&SmallClassName="& SmallClassName &"'>"& SmallClassName &"</a>"
  148. else
  149. response.write "所有小类"
  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 BigClassName<>"" then
  165. sqlTotal=sqlTotal &" and BigClassName='"& BigClassName &"'"
  166. if SmallClassName<>"" then
  167. sqlTotal=sqlTotal &" and SmallClassName='"& SmallClassName &"'"
  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 "共有 0 个产品"
  179. else
  180. totalPut=rsTotal(0)
  181. response.Write "共有 "& totalPut  &" 个产品"
  182. end if
  183. rsTotal.close
  184. set rsTotal=nothing
  185. end sub
  188. '=================================================
  189. '过程名：ShowArticle
  190. '=================================================
  191. sub ShowArticle(TitleLen)
  192. if TitleLen<0 or TitleLen>200 then
  193. TitleLen=50
  194. end if
  195.     if currentpage<1 then
  196.     currentpage=1
  197.     end if
  198. if (currentpage-1)*MaxPerPage>totalput then
  199. if (totalPut mod MaxPerPage)=0 then
  200.     currentpage= totalPut  MaxPerPage
  201. else
  202.     currentpage= totalPut  MaxPerPage + 1
  203. end if
  204.   end if
  205. if currentPage=1 then
  206.         sqlArticle="select top "& MaxPerPage
  207. else
  208. sqlArticle="select "
  209. end if
  211. sqlArticle=sqlArticle &" ArticleID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Spec,Size,Memo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True "
  213. if BigClassName<>"" then
  214. sqlArticle=sqlArticle &" and BigClassName='" & BigClassName &"'"
  215. if SmallClassName<>"" then
  216. sqlArticle=sqlArticle & " and SmallClassName='" & SmallClassName & "'"
  217. end if
  218. else
  219. if SpecialName<>"" then
  220. sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "'"
  221. end if
  222. end if
  223. sqlArticle=sqlArticle & " order by ArticleID desc"
  224. Set rsArticle= Server.CreateObject("ADODB.Recordset")
  225. rsArticle.open sqlArticle,conn,1,1
  226. if rsArticle.bof and  rsArticle.eof then
  227. response.Write("<br><li>没有任何产品</li>")
  228. else
  229. if currentPage=1 then
  230. call ArticleContent(TitleLen)
  231. else
  232. if (currentPage-1)*MaxPerPage<totalPut then
  233.          rsArticle.move (currentPage-1)*MaxPerPage-1 '修正不显示第2页以后第一个产品的问题
  234.          dim bookmark
  235.          bookmark=rsArticle.bookmark
  236.          call ArticleContent(TitleLen)
  237.        else
  238.        currentPage=1
  239.          call ArticleContent(TitleLen)
  240.      end if
  241. end if
  242. end if
  243. rsArticle.close
  244. set rsArticle=nothing
  245. end sub
  247. sub ArticleContent(intTitleLen)
  248.     dim i,lb,strli
  249. Response.Write "<table width=100% border=0 cellspacing=2 cellpadding=0><TR><TD></TD></TR>"
  250.     i=1
  251. Response.Write "<TR align=""center"">"
  252. do while not rsArticle.eof
  253. strli=""
  254. strli=strli & " ● &nbsp;&nbsp;产品名称："& rsArticle("Title") &" "&chr(13)
  255. strli=strli & " ● &nbsp;&nbsp;产品规格："& rsArticle("Spec") &" "&chr(13)
  256. strli=strli & " ● &nbsp;&nbsp;产品尺寸："& rsArticle("Size") &" "
  257. lb=""
  258. lb=lb & "<TD>"
  259. lb=lb & "<table width=130 border=0 cellspacing=0 cellpadding=0>"
  260. lb=lb & "<TR><TD height=5></TD></TR>"
  262. lb=lb & "<tr>"
  263. lb=lb & "<td width='98%'><div align=center>"
  264. lb=lb & "<a href='ProductShow.asp?ArticleID=" & rsArticle("articleid") & "'title='" & strli &"'>" 
  265. lb=lb & "<img border=0 src='"& rsArticle("DefaultPicUrl") &"' width=100 height=100></a>" 
  266. lb=lb & "</div></td>"
  267. lb=lb & "</tr>"
  269. lb=lb & "<TR><TD height=3></TD></TR>"
  271. lb=lb & "<tr>"
  272. lb=lb & "<td height=23 background=../img/tablebg1.gif><div align=center>"
  273. lb=lb & "<a href='ProductShow.asp?ArticleID="& rsArticle("articleid") &"'title='" & strli &"'>"& gotTopic(rsArticle("Title"),16) &"</a>"
  274. lb=lb & "</div></td>"
  275. lb=lb & "</tr>"
  277. lb=lb & "<tr>"
  278. lb=lb & "<td height=20 background=../img/tablebg2.gif><div align=center>"
  279. lb=lb & "<a href='ProductShow.asp?ArticleID="& rsArticle("articleid") &"'>查看</a>&nbsp;&nbsp;&nbsp;&nbsp;"
  280. lb=lb & "<a href='javascript:eshop("& rsArticle("Product_Id") &")'>订购</a>"
  281. lb=lb & "</div></td>"
  282. lb=lb & "</tr>"
  284. lb=lb & "<tr>" 
  285. lb=lb & "<td height=7 background='../img/tablebg3.gif'><IMG height=1 src='../img/1x1_pix.gif' width=1></td>"
  286. lb=lb & "</tr>"
  287. lb=lb & "</table>"
  288. lb=lb & "</TD>"
  289. response.write lb
  291. if i mod 4 =0 then
  292.   Response.Write "</TR><TR>"
  293. end if
  295. rsArticle.movenext
  296. i=i+1
  297. if i>=MaxPerPage then exit do
  298. loop
  299.  Response.Write "</TR><TR><TD></TD></TR></Table>"
  300. end sub 
  302. '=================================================
  303. '过程名：ShowSearchTerm
  304. '作  用：显示搜索条件信息
  305. '参  数：无
  306. '=================================================
  307. sub ShowSearchTerm()
  308. response.write "产品搜索&nbsp;&gt;&gt; "
  309. if BigClassName<>"" then
  310. response.write "<a href='Product.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  311. if SmallClassName<>"" then
  312. response.write "<a href='Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  313. else
  314. response.write "所有小类&nbsp;&gt;&gt;&nbsp;"
  315. end if
  316. end if
  317. if keyword<>"" then
  318.   select case strField
  319. case "Title"
  320. response.Write "名称中含有 <font color=red>"&keyword&"</font> 的产品"
  321. case "Content"
  322. response.Write "说明含有 <font color=red>"&keyword&"</font> 的产品"
  323. case else
  324. response.Write "名称中含有 <font color=red>"&keyword&"</font> 的产品"
  325.   end select
  326. else
  327.   response.write "&nbsp;所有产品"
  328. end if
  329. end sub
  331. '=================================================
  332. '过程名：SearchResultTotal
  333. '作  用：显示搜索结果总数
  334. '参  数：无
  335. '=================================================
  336. sub SearchResultTotal()
  337. dim rsTotal,sqlTotal
  338. sqlTotal="select count(*) from Product where Passed=True "
  339. if BigClassName<>"" then
  340. sqlTotal=sqlTotal & " and BigClassName='" & BigClassName & "'"
  341. if SmallClassName<>"" then
  342. sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "'"
  343. end if
  344. else
  345. if SpecialName<>"" then
  346. sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "'"
  347. end if
  348. end if
  349. if keyword<>"" then
  350. select case strField
  351. case "Title"
  352. sqlTotal=sqlTotal & " and Title like '%" & keyword & "%'"
  353. case "Content"
  354. sqlTotal=sqlTotal & " and Content like '%" & keyword & "%'"
  355. case else
  356. sqlTotal=sqlTotal & " and Title like '%" & keyword & "%'"
  357. end select
  358. end if
  359. Set rsTotal= Server.CreateObject("ADODB.Recordset")
  360. rsTotal.open sqlTotal,conn,1,1
  361. if rsTotal.eof and rsTotal.bof then
  362. totalPut=0
  363. response.write "共有 0 个产品"
  364. else
  365. totalPut=rsTotal(0)
  366. response.Write "共找到 " & totalPut & " 个产品"
  367. end if
  368. end sub
  370. '=================================================
  371. '过程名：ShowSearchResult
  372. '作  用：分页显示搜索结果
  373. '参  数：无
  374. '=================================================
  375. sub ShowSearchResult()
  376.     if currentpage<1 then
  377.     currentpage=1
  378.     end if
  379. if (currentpage-1)*MaxPerPage>totalput then
  380. if (totalPut mod MaxPerPage)=0 then
  381.     currentpage= totalPut  MaxPerPage
  382. else
  383.     currentpage= totalPut  MaxPerPage + 1
  384. end if
  385.     end if
  386. if currentPage=1 then
  387.         sqlSearch="select top " & MaxPerPage
  388. else
  389. sqlSearch="select "
  390. end if
  392. sqlSearch=sqlSearch & " * from Product where Passed=True "
  393. if BigClassName<>"" then
  394. sqlSearch=sqlSearch & " and BigClassName='" & BigClassName & "'"
  395. if SmallClassName<>"" then
  396. sqlSearch=sqlSearch & " and SmallClassName='" & SmallClassName & "'"
  397. end if
  398. else
  399. if SpecialName<>"" then
  400. sqlSearch=sqlSearch & " and SpecialName='" & SpecialName & "'"
  401. end if
  402. end if
  403. if keyword<>"" then
  404. select case strField
  405. case "Title"
  406. sqlSearch=sqlSearch & " and Title like '%" & keyword & "%'"
  407. case "Content"
  408. sqlSearch=sqlSearch & " and Content like '%" & keyword & "%'"
  409. case else
  410. sqlSearch=sqlSearch & " and Title like '%" & keyword & "%'"
  411. end select
  412. end if
  413. sqlSearch=sqlSearch & " order by articleid desc"
  414. Set rsSearch= Server.CreateObject("ADODB.Recordset")
  415. rsSearch.open sqlSearch,conn,1,1
  416.   if rsSearch.eof and rsSearch.bof then 
  417.         response.write "<p align='center'><br><br>没有或没有找到任何产品</p>" 
  418.     else 
  419.     if currentPage=1 then 
  420.         call SearchResultContent()
  421.     else 
  422.         if (currentPage-1)*MaxPerPage<totalPut then 
  423.         rsSearch.move  (currentPage-1)*MaxPerPage 
  424.         dim bookmark 
  425.         bookmark=rsSearch.bookmark 
  426.         call SearchResultContent()
  427.        else 
  428.          currentPage=1 
  429.         call SearchResultContent()
  430.        end if 
  431.     end if 
  432.     end if 
  433.     rsSearch.close 
  434.     set rsSearch=nothing   
  435. end sub
  437. sub SearchResultContent()
  438.     dim i,strTemp,content
  439. i=1
  440. do while not rsSearch.eof
  441. strTemp=""
  442. strTemp=strTemp & cstr(i) & ".<a href='ProductShow.asp?ArticleID=" & rsSearch("articleid") & "'>"
  443. if strField="Title" then
  444. strTemp=strTemp & "<b>" & replace(rsSearch("title"),""&keyword&"","<font color=red>"&keyword&"</font>") & "</b></font></a>"
  445. else
  446. strTemp=strTemp & "<b>" & rsSearch("title") & "</b></a>"
  447. end if
  448. strTemp=strTemp & " [" & FormatDateTime(rsSearch("UpdateTime"),1) & "]"
  449. content=left(nohtml(rsSearch("content")),200)
  450. if strField="Content" then
  451. strTemp=strTemp & "<div style='padding:10px 20px'>" & replace(content,""&keyword&"","<font color=red>"&keyword&"</font>") & "……</div>"
  452. else
  453. strTemp=strTemp & "<div style='padding:10px 20px'>" & content & "……</div>"
  454. end if
  455. 'strTemp=strTemp & "</a>"
  456. response.write strTemp
  457. i=i+1
  458. if i>MaxPerPage then exit do
  459. rsSearch.movenext
  460. loop
  461. end sub 
  464. '=================================================
  465. '过程名：ShowSearch
  466. '作  用：显示文章搜索表单
  467. '参  数：ShowType ----显示方式。1为纵向，2为横向
  468. '=================================================
  469. sub ShowSearch(ShowType)
  470. dim count
  471. if ShowType<>1 and ShowType<>2 then
  472. ShowType=1
  473. end if
  474. set rs=server.createobject("adodb.recordset")
  475. sql = "select * from PrSmallClass order by SmallClassID asc"
  476. rs.open sql,conn,1,1
  477. %>
  478. <script language = "JavaScript">
  479. var onecount;
  480. subcat = new Array();
  481.         <%
  482.         count = 0
  483.         do while not rs.eof 
  484.         %>
  485. subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
  486.         <%
  487.         count = count + 1
  488.         rs.movenext
  489.         loop
  490.         rs.close
  491.         %>
  492. onecount=<%=count%>;
  494. function changelocation(locationid)
  495.     {
  496.     document.myform.SmallClassName.length = 1; 
  497.     var locationid=locationid;
  498.     var i;
  499.     for (i=0;i < onecount; i++)
  500.         {
  501.             if (subcat[i][1] == locationid)
  502.             { 
  503.                 document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
  504.             }        
  505.         }
  506.     }    
  507. </script>
  508. <table border="0" cellpadding="2" cellspacing="0" align="center">
  509.   <form method="Get" name="myform" action="Search.asp">
  510.     <tr>
  511.       <td height="28"> <select name="Field" size="1">
  512.         <option value="Title" selected>产品名称</option>
  513.         <option value="Content">产品说明</option>
  514.        </select>
  515.        <%if ShowType=1 then%>
  516.      </td>
  517.    </tr>
  518.    <tr>
  519.      <td height="28">
  520. <%end if%>
  521. <select name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
  522. <option selected value="">所有大类</option>
  523. <%
  524. if not (rsBigClass.bof and rsBigClass.eof) then
  525. rsBigClass.movefirst
  526. do while not rsBigClass.eof
  527.         response.Write "<option value='" & trim(rsBigClass("BigClassName")) & "'>" & trim(rsBigClass("BigClassName")) & "</option>"
  528.     rsBigClass.movenext
  529. loop
  530. end if
  531. %>
  532.       </select>
  533.       <%if ShowType=1 then%>
  534.     </td>
  535.   </tr>
  536.   <tr>
  537.     <td height="28">
  538.       <%end if%>
  539.       <select name="SmallClassName">                  
  540.         <option selected value="">所有小类</option>
  541.       </select>
  542.       <%if ShowType=1 then%>
  543.     </td>
  544.   </tr>
  545.   <tr>
  546.     <td height="28">
  547.       <%end if%>
  548.       <input type="text" name="keyword"  size=15 value="关键字" maxlength="50" onFocus="this.select();">
  549.       <input type="submit" name="Submit"  value="搜索"> </td>
  550.   </tr>
  551. </form>
  552. </table>
  553. <%
  554. end sub
  556. '=========================================================================
  557. '过程名：ShowSearch4
  558. '作  用：显示文章搜索表单
  559. '参  数：ShowType ----显示方式。1为纵向，2为横向
  560. '=========================================================================
  561. sub ShowSearch4(ShowType)
  562. dim count
  563. if ShowType<>1 and ShowType<>2 then
  564. ShowType=1
  565. end if
  566. set rs=server.createobject("adodb.recordset")
  567. sql = "select * from PrSmallClass order by SmallClassID asc"
  568. rs.open sql,conn,1,1
  569. %>
  570. <script language = "JavaScript">
  571. var onecount;
  572. subcat = new Array();
  573.         <%
  574.         count = 0
  575.         do while not rs.eof 
  576.         %>
  577. subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
  578.         <%
  579.         count = count + 1
  580.         rs.movenext
  581.         loop
  582.         rs.close
  583.         %>
  584. onecount=<%=count%>;
  586. function changelocation(locationid)
  587.     {
  588.     document.myform.SmallClassName.length = 1; 
  589.     var locationid=locationid;
  590.     var i;
  591.     for (i=0;i < onecount; i++)
  592.         {
  593.             if (subcat[i][1] == locationid)
  594.             { 
  595.                 document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
  596.             }        
  597.         }
  598.     }    
  599. </script>
  600. <table border="0" cellpadding="2" cellspacing="0" align="center">
  601.   <form method="Get" name="myform" action="Search.asp">
  602.     <tr>
  603.       <td height="28"> <select name="Field" size="1">
  604.         <option value="Title" selected>产品名称</option>
  605.         <option value="Content">产品说明</option>
  606.        </select>
  607.        <%if ShowType=1 then%>
  608.      </td>
  609.    </tr>
  610.    <tr>
  611.      <td height="28">
  612. <%end if%>
  613. <select name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
  614. <option selected value="">所有大类</option>
  615. <%
  616. if not (rsBigClass.bof and rsBigClass.eof) then
  617. rsBigClass.movefirst
  618. do while not rsBigClass.eof
  619.         response.Write "<option value='" & trim(rsBigClass("BigClassName")) & "'>" & trim(rsBigClass("BigClassName")) & "</option>"
  620.     rsBigClass.movenext
  621. loop
  622. end if
  623. %>
  624.       </select>
  625.       <%if ShowType=1 then%>
  626.     </td>
  627.   </tr>
  628.   <tr>
  629.     <td height="28">
  630.       <%end if%>
  631.       <select name="SmallClassName">                  
  632.         <option selected value="">所有小类</option>
  633.       </select>
  634.       <%if ShowType=1 then%>
  635.     </td>
  636.   </tr>
  637.   <tr>
  638.     <td height="28">
  639.       <%end if%>
  640.       <input type="text" name="keyword"  size=15 value="关键字" maxlength="50" onFocus="this.select();">
  641.       <input type="submit" name="Submit"  value="搜索"> </td>
  642.   </tr>
  643. </form>
  644. </table>
  645. <%
  646. end sub
  648. '=================================================
  649. '过程名：ShowAllClass
  650. '作  用：显示所有栏目（栏目导航）
  651. '参  数：无
  652. '=================================================
  653. sub ShowAllClass()
  654. if rsBigClass.bof and rsBigClass.eof then 
  655. response.Write "&nbsp;没有任何栏目"
  656. else
  657. dim sqlClass,rsClass,strClassName
  658. rsBigClass.movefirst
  659. do while not rsBigClass.eof
  660. strClassName= "【<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'><b>" & rsBigClass("BigClassName") & "</b></a>】<br><br>"
  661. sqlClass="select * from PrSmallClass where BigClassName='" & rsBigClass("BigClassName") & "'Order by SmallClassID"
  662. Set rsClass= Server.CreateObject("ADODB.Recordset")
  663. rsClass.open sqlClass,conn,1,1
  664. do while not rsClass.eof
  665. strClassName=strClassName & "&nbsp;<a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>&nbsp;"
  666. rsClass.movenext
  667. loop
  668. response.write strClassName & "<br><br>"
  669. rsBigClass.movenext
  670. loop
  671. rsClass.close
  672. set rsClass=nothing
  673. end if
  674. end sub
  677. '=================================================
  678. '过程名：ShowArticleContent
  679. '作  用：显示文章具体的内容，可以分页显示
  680. '参  数：无
  681. '=================================================
  682. sub ShowArticleContent()
  683. dim ArticleID,strContent,CurrentPage
  684. dim ContentLen,MaxPerPage,pages,i,lngBound
  685. dim BeginPoint,EndPoint
  686. ArticleID=rs("ArticleID")
  687. strContent=rs("Content")
  688. ContentLen=len(strContent)
  689. CurrentPage=trim(request("ArticlePage"))
  690. if ShowContentByPage="No" or ContentLen<=200000 then
  691. response.write strContent
  692. if ShowContentByPage="Yes" then
  693. response.write "</p><p align='center'></p>"
  694. end if
  695. else
  696. if CurrentPage="" then
  697. CurrentPage=1
  698. else
  699. CurrentPage=Cint(CurrentPage)
  700. end if
  701. pages=ContentLenMaxPerPage_Content
  702. if MaxPerPage_Content*pages<ContentLen then
  703. pages=pages+1
  704. end if
  705. lngBound=MaxPerPage_Content          '最大误差范围
  706. if CurrentPage<1 then CurrentPage=1
  707. if CurrentPage>pages then CurrentPage=pages
  709. dim lngTemp
  710. dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
  711. dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2
  712. dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2
  713. dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2
  714. dim lngTemp5,lngTemp5_1,lngTemp5_2
  715. dim lngTemp6,lngTemp6_1,lngTemp6_2
  717. if CurrentPage=1 then
  718. BeginPoint=1
  719. else
  720. BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
  722. lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
  723. lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
  724. lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
  725. if lngTemp1_1_1>0 then
  726. lngTemp1_1=lngTemp1_1_1
  727. elseif lngTemp1_1_2>0 then
  728. lngTemp1_1=lngTemp1_1_2
  729. elseif lngTemp1_1_3>0 then
  730. lngTemp1_1=lngTemp1_1_3
  731. else
  732. lngTemp1_1=0
  733. end if
  735. lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
  736. lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
  737. lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
  738. if lngTemp1_2_1>0 then
  739. lngTemp1_2=lngTemp1_2_1
  740. elseif lngTemp1_2_2>0 then
  741. lngTemp1_2=lngTemp1_2_2
  742. elseif lngTemp1_2_3>0 then
  743. lngTemp1_2=lngTemp1_2_3
  744. else
  745. lngTemp1_2=0
  746. end if
  748. if lngTemp1_1=0 and lngTemp1_2=0 then
  749. lngTemp1=BeginPoint
  750. else
  751. if lngTemp1_1>lngTemp1_2 then
  752. lngtemp1=lngTemp1_2
  753. else
  754. lngTemp1=lngTemp1_1+8
  755. end if
  756. end if
  758. lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
  759. lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
  760. if lngTemp2_1_1>0 then
  761. lngTemp2_1=lngTemp2_1_1
  762. elseif lngTemp2_1_2>0 then
  763. lngTemp2_1=lngTemp2_1_2
  764. else
  765. lngTemp2_1=0
  766. end if
  768. lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
  769. lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
  770. if lngTemp2_2_1>0 then
  771. lngTemp2_2=lngTemp2_2_1
  772. elseif lngTemp2_2_2>0 then
  773. lngTemp2_2=lngTemp2_2_2
  774. else
  775. lngTemp2_2=0
  776. end if
  778. if lngTemp2_1=0 and lngTemp2_2=0 then
  779. lntTemp2=BeginPoint
  780. else
  781. if lngTemp2_1>lngTemp2_2 then
  782. lngtemp2=lngTemp2_2
  783. else
  784. lngTemp2=lngTemp2_1+4
  785. end if
  786. end if
  788. lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
  789. lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
  790. if lngTemp3_1_1>0 then
  791. lngTemp3_1=lngTemp3_1_1
  792. elseif lngTemp3_1_2>0 then
  793. lngTemp3_1=lngTemp3_1_2
  794. else
  795. lngTemp3_1=0
  796. end if
  798. lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
  799. lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
  800. if lngTemp3_2_1>0 then
  801. lngTemp3_2=lngTemp3_2_1
  802. elseif lngTemp3_2_2>0 then
  803. lngTemp3_2=lngTemp3_2_2
  804. else
  805. lngTemp3_2=0
  806. end if
  808. if lngTemp3_1=0 and lngTemp3_2=0 then
  809. lngTemp3=BeginPoint
  810. else
  811. if lngTemp3_1>lngTemp3_2 then
  812. lngtemp3=lngTemp3_2
  813. else
  814. lngTemp3=lngTemp3_1+5
  815. end if
  816. end if
  818. if lngTemp1<lngTemp2 then
  819. lngTemp=lngTemp2
  820. else
  821. lngTemp=lngTemp1
  822. end if
  823. if lngTemp<lngTemp3 then
  824. lngTemp=lngTemp3
  825. end if
  827. if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
  828. BeginPoint=lngTemp
  829. else
  830. lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
  831. lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
  832. if lngTemp4_1_1>0 then
  833. lngTemp4_1=lngTemp4_1_1
  834. elseif lngTemp4_1_2>0 then
  835. lngTemp4_1=lngTemp4_1_2
  836. else
  837. lngTemp4_1=0
  838. end if
  840. lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
  841. lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
  842. if lngTemp4_2_1>0 then
  843. lngTemp4_2=lngTemp4_2_1
  844. elseif lngTemp4_2_2>0 then
  845. lngTemp4_2=lngTemp4_2_2
  846. else
  847. lngTemp4_2=0
  848. end if
  850. if lngTemp4_1=0 and lngTemp4_2=0 then
  851. lngTemp4=BeginPoint
  852. else
  853. if lngTemp4_1>lngTemp4_2 then
  854. lngtemp4=lngTemp4_2
  855. else
  856. lngTemp4=lngTemp4_1+5
  857. end if
  858. end if
  860. if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
  861. BeginPoint=lngTemp4
  862. else
  863. lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
  864. lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
  865. if lngTemp5_1>0 then
  866. lngTemp5=lngTemp5_1
  867. elseif lngTemp5_2>0 then
  868. lngTemp5=lngTemp5_2
  869. else
  870. lngTemp5=BeginPoint
  871. end if
  873. if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
  874. BeginPoint=lngTemp5
  875. else
  876. lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
  877. lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
  878. if lngTemp6_1>0 then
  879. lngTemp6=lngTemp6_1
  880. elseif lngTemp6_2>0 then
  881. lngTemp6=lngTemp6_2
  882. else
  883. lngTemp6=0
  884. end if
  886. if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
  887. BeginPoint=lngTemp6+4
  888. end if
  889. end if
  890. end if
  891. end if
  892. end if
  894. if CurrentPage=pages then
  895. EndPoint=ContentLen
  896. else
  897.   EndPoint=MaxPerPage_Content*CurrentPage
  898.   if EndPoint>=ContentLen then
  899. EndPoint=ContentLen
  900.   else
  901. lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
  902. lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
  903. lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
  904. if lngTemp1_1_1>0 then
  905. lngTemp1_1=lngTemp1_1_1
  906. elseif lngTemp1_1_2>0 then
  907. lngTemp1_1=lngTemp1_1_2
  908. elseif lngTemp1_1_3>0 then
  909. lngTemp1_1=lngTemp1_1_3
  910. else
  911. lngTemp1_1=0
  912. end if
  914. lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
  915. lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
  916. lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
  917. if lngTemp1_2_1>0 then
  918. lngTemp1_2=lngTemp1_2_1
  919. elseif lngTemp1_2_2>0 then
  920. lngTemp1_2=lngTemp1_2_2
  921. elseif lngTemp1_2_3>0 then
  922. lngTemp1_2=lngTemp1_2_3
  923. else
  924. lngTemp1_2=0
  925. end if
  927. if lngTemp1_1=0 and lngTemp1_2=0 then
  928. lngTemp1=EndPoint
  929. else
  930. if lngTemp1_1>lngTemp1_2 then
  931. lngtemp1=lngTemp1_2-1
  932. else
  933. lngTemp1=lngTemp1_1+7
  934. end if
  935. end if
  937. lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
  938. lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
  939. if lngTemp2_1_1>0 then
  940. lngTemp2_1=lngTemp2_1_1
  941. elseif lngTemp2_1_2>0 then
  942. lngTemp2_1=lngTemp2_1_2
  943. else
  944. lngTemp2_1=0
  945. end if
  947. lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
  948. lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
  949. if lngTemp2_2_1>0 then
  950. lngTemp2_2=lngTemp2_2_1
  951. elseif lngTemp2_2_2>0 then
  952. lngTemp2_2=lngTemp2_2_2
  953. else
  954. lngTemp2_2=0
  955. end if
  957. if lngTemp2_1=0 and lngTemp2_2=0 then
  958. lngTemp2=EndPoint
  959. else
  960. if lngTemp2_1>lngTemp2_2 then
  961. lngTemp2=lngTemp2_2-1
  962. else
  963. lngTemp2=lngTemp2_1+3
  964. end if
  965. end if
  967. lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
  968. lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
  969. if lngTemp3_1_1>0 then
  970. lngTemp3_1=lngTemp3_1_1
  971. elseif lngTemp3_1_2>0 then
  972. lngTemp3_1=lngTemp3_1_2
  973. else
  974. lngTemp3_1=0
  975. end if
  977. lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
  978. lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
  979. if lngTemp3_2_1>0 then
  980. lngTemp3_2=lngTemp3_2_1
  981. elseif lngTemp3_2_2>0 then
  982. lngTemp3_2=lngTemp3_2_2
  983. else
  984. lngTemp3_2=0
  985. end if
  987. if lngTemp3_1=0 and lngTemp3_2=0 then
  988. lngTemp3=EndPoint
  989. else
  990. if lngTemp3_1>lngTemp3_2 then
  991. lngtemp3=lngTemp3_2-1
  992. else
  993. lngTemp3=lngTemp3_1+4
  994. end if
  995. end if
  997. if lngTemp1<lngTemp2 then
  998. lngTemp=lngTemp2
  999. else
  1000. lngTemp=lngTemp1
  1001. end if
  1002. if lngTemp<lngTemp3 then
  1003. lngTemp=lngTemp3
  1004. end if
  1006. if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
  1007. EndPoint=lngTemp
  1008. else
  1009. lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
  1010. lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
  1011. if lngTemp4_1_1>0 then
  1012. lngTemp4_1=lngTemp4_1_1
  1013. elseif lngTemp4_1_2>0 then
  1014. lngTemp4_1=lngTemp4_1_2
  1015. else
  1016. lngTemp4_1=0
  1017. end if
  1019. lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
  1020. lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
  1021. if lngTemp4_2_1>0 then
  1022. lngTemp4_2=lngTemp4_2_1
  1023. elseif lngTemp4_2_2>0 then
  1024. lngTemp4_2=lngTemp4_2_2
  1025. else
  1026. lngTemp4_2=0
  1027. end if
  1029. if lngTemp4_1=0 and lngTemp4_2=0 then
  1030. lngTemp4=EndPoint
  1031. else
  1032. if lngTemp4_1>lngTemp4_2 then
  1033. lngtemp4=lngTemp4_2-1
  1034. else
  1035. lngTemp4=lngTemp4_1+4
  1036. end if
  1037. end if
  1039. if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
  1040. EndPoint=lngTemp4
  1041. else
  1042. lngTemp5_1=instr(EndPoint,strContent,"<img",1)
  1043. lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
  1044. if lngTemp5_1>0 then
  1045. lngTemp5=lngTemp5_1-1
  1046. elseif lngTemp5_2>0 then
  1047. lngTemp5=lngTemp5_2-1
  1048. else
  1049. lngTemp5=EndPoint
  1050. end if
  1052. if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
  1053. EndPoint=lngTemp5
  1054. else
  1055. lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
  1056. lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
  1057. if lngTemp6_1>0 then
  1058. lngTemp6=lngTemp6_1+3
  1059. elseif lngTemp6_2>0 then
  1060. lngTemp6=lngTemp6_2+3
  1061. else
  1062. lngTemp6=EndPoint
  1063. end if
  1065. if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
  1066. EndPoint=lngTemp6
  1067. end if
  1068. end if
  1069. end if
  1070. end if
  1071.   end if
  1072. end if
  1073. response.write mid(strContent,BeginPoint,EndPoint-BeginPoint)
  1075. response.write "</p><p align='center'><b>"
  1076. if CurrentPage>1 then
  1077. response.write "<a href='ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>上一页</a>&nbsp;&nbsp;"
  1078. end if
  1079. for i=1 to pages
  1080. if i=CurrentPage then
  1081. response.write "<font color='red'>[" & cstr(i) & "]</font>&nbsp;"
  1082. else
  1083. response.write "<a href='ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a>&nbsp;"
  1084. end if
  1085. next
  1086. if CurrentPage<pages then
  1087. response.write "&nbsp;<a href='ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>下一页</a>"
  1088. end if
  1089. response.write "</b></p>"
  1090. end if
  1092. end sub
  1094. %>