Category

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

WEB(ASP,PHP,...)

Development Platform:

VBScript

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