Category

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

WEB(ASP,PHP,...)

Development Platform:

VBScript

syscode.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,sqlDown,rsArticle,rsDown,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlBigClass_Down,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 BigClass order by BigClassID"
  28. Set rsBigClass= Server.CreateObject("ADODB.Recordset")
  29. rsBigClass.open sqlBigClass,conn,1,1
  31. sqlBigClass_Down="select * from BigClass_Down order by BigClassID"
  32. Set rsBigClass_Down= Server.CreateObject("ADODB.Recordset")
  33. rsBigClass_Down.open sqlBigClass_Down,conn,1,1
  34. '=========================================================================
  35. '过程名：ShowSmallClass_Tree
  36. '作  用：树形目录方式显示栏目
  37. '参  数：无
  38. '=========================================================================
  39. sub ShowSmallClass_Tree()
  40. if rsBigClass.bof and rsBigClass.eof then 
  41. response.Write "栏目正在建设中……"
  42. else
  43. dim sqlClass,rsClass,strTree,BigClassNum,i,j
  44. rsBigClass.movefirst
  45. BigClassNum=rsBigClass.recordcount
  46. i=1
  47. do while not rsBigClass.eof
  48. if i<BigClassNum then
  49. strTree=""
  50. else
  51. strTree=""
  52. end if
  53. sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "'Order by SmallClassID"
  54. Set rsClass= Server.CreateObject("ADODB.Recordset")
  55. rsClass.open sqlClass,conn,1,1
  56. strTree= strTree & "<table width=180 border=0 cellpadding=0 cellspacing=0>"
  57. strTree= strTree & "<tr>"
  58. strTree= strTree & "<td width=24 height=22>"
  59. strTree= strTree & "<div align=center><img src=Img/arrow_6.gif width=13 height=11></div></td>"
  60. strTree= strTree & "<td width=150>"
  61. strTree= strTree & "<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'>"
  62.   strTree=strTree & rsBigClass("BigClassName")
  63. strTree=strTree & "</a></td>"
  64. 'strTree=strTree & "</td>"
  65. strTree= strTree & "</tr><tr>"
  66. strTree=strTree & "<TD height=1 colspan=2 background=img/naSzarym.gif>"
  67. strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
  68. strTree=strTree & "</TR>"
  69. strTree=strTree & "</table>"
  70. SmallClassNum=rsClass.recordcount
  71. j=1
  72. do while not rsClass.eof
  73. rsClass.movenext
  74. j=j+1
  75. loop
  76. response.write strTree
  77. rsBigClass.movenext
  78. i=i+1
  79. loop
  80. rsClass.close
  81. set rsClass=nothing
  82. end if
  83. end sub
  86. '=========================================================================
  87. '过程名：ShowSmallClass_Down_Tree
  88. '作  用：树形目录方式显示栏目
  89. '参  数：无
  90. '=========================================================================
  91. sub ShowSmallClass_Down_Tree()
  92. if rsBigClass_Down.bof and rsBigClass_Down.eof then 
  93. response.Write "栏目正在建设中……"
  94. else
  95. dim sqlClass,rsClass,strTree,BigClassNum,i,j
  96. rsBigClass_Down.movefirst
  97. BigClassNum=rsBigClass_Down.recordcount
  98. i=1
  99. do while not rsBigClass_Down.eof
  100. if i<BigClassNum then
  101. strTree=""
  102. else
  103. strTree=""
  104. end if
  105. sqlClass="select * from SmallClass_Down where BigClassName='" &rsBigClass_Down("BigClassName") & "'Order by SmallClassID"
  106. Set rsClass= Server.CreateObject("ADODB.Recordset")
  107. rsClass.open sqlClass,conn,1,1
  108. strTree= strTree & "<table width=180 border=0 cellpadding=0 cellspacing=0>"
  109. strTree= strTree & "<tr>"
  110. strTree= strTree & "<td width=24 height=22>"
  111. strTree= strTree & "<div align=center><img src=Img/arrow_6.gif width=13 height=11></div></td>"
  112. strTree= strTree & "<td width=150>"
  113. strTree= strTree & "<a href='Download.asp?BigClassName=" & rsBigClass_Down("BigClassName") & "'>"
  114.   strTree=strTree & rsBigClass_Down("BigClassName")
  115. strTree=strTree & "</a></td>"
  116. 'strTree=strTree & "</td>"
  117. strTree= strTree & "</tr><tr>"
  118. strTree=strTree & "<TD height=1 colspan=2 background=img/naSzarym.gif>"
  119. strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
  120. strTree=strTree & "</TR>"
  121. strTree=strTree & "</table>"
  122. SmallClassNum=rsClass.recordcount
  123. j=1
  124. do while not rsClass.eof
  125. rsClass.movenext
  126. j=j+1
  127. loop
  128. response.write strTree
  129. rsBigClass_Down.movenext
  130. i=i+1
  131. loop
  132. rsClass.close
  133. set rsClass=nothing
  134. end if
  135. end sub
  137. '=========================================================================
  138. '过程名：ShowVote
  139. '作  用：显示网站调查
  140. '参  数：无
  141. '=========================================================================
  142. sub ShowVote()
  143. dim sqlVote,rsVote,i
  144. sqlVote="select top 1 * from Vote where IsSelected=True"
  145. Set rsVote= Server.CreateObject("ADODB.Recordset")
  146. rsVote.open sqlVote,conn,1,1
  147. if rsVote.bof and rsVote.eof then 
  148. response.Write "&nbsp;没有任何调查"
  149. else
  150. response.write "<form name='VoteForm'method='post'action='vote.asp'target='_blank'><td>"
  151. response.write "&nbsp;&nbsp;&nbsp;&nbsp;" & rsVote("Title") & "<br>"
  152. if rsVote("VoteType")="Single" then
  153. for i=1 to 8
  154. if trim(rsVote("Select" & i) & "")="" then exit for
  155. response.Write "<input class='form'type='radio'name='VoteOption'value='" & i & "'>" & rsVote("Select" & i) & "<br>" 
  156. next
  157. else
  158. for i=1 to 8
  159. if trim(rsVote("Select" & i) & "")="" then exit for
  160. response.Write "<input class='form'type='checkbox'name='VoteOption'value='" & i & "'>" & rsVote("Select" & i) & "<br>"
  161. next
  162. end if
  163. response.write "<br><input class='form'name='VoteType'type='hidden'value='" & rsVote("VoteType") & "'>"
  164. response.write "<input class='form'name='Action'type='hidden'value='Vote'>"
  165. response.write "<input class='form'name='ID'type='hidden'value='" & rsVote("ID") & "'>"
  166. response.write "<div align='center'>"
  167. response.write "<a href='javascript:VoteForm.submit();'><img src='images/voteSubmit.gif' width='52'height='18'border='0'></a>&nbsp;&nbsp;"
  168.         response.write "<a href='Vote.asp?Action=Show'target='_blank'><img src='images/voteView.gif' width='52'height='18'border='0'></a>"
  169. response.write "</div></td></form>"
  170. end if
  171. rsVote.close
  172. set rsVote=nothing
  173. end sub
  175. '=========================================================================
  176. '过程名：ShowClassGuide
  177. '作  用：显示栏目导航位置
  178. '参  数：无
  179. '=========================================================================
  180. sub ShowClassGuide()
  181. response.write  "&nbsp;<a href='Products.asp'>产品</a>&nbsp;&gt;&gt;"
  182. if BigClassName="" and SmallClassName="" then
  183. response.write "&nbsp;所有产品"
  184. else
  185. if BigClassName<>"" then
  186. response.write "&nbsp;<a href='Product.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  187. if SmallClassName<>"" then
  188. response.write "<a href='Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>"
  189. else
  190. response.write "所有小类"
  191. end if
  192. end if
  193. end if
  194. end sub
  196. '=========================================================================
  197. '过程名：ShowClass_DownGuide
  198. '作  用：显示栏目导航位置
  199. '参  数：无
  200. '=========================================================================
  201. sub ShowClass_DownGuide()
  202. response.write  "&nbsp;<a href='Download.asp'>下载</a>&nbsp;&gt;&gt;"
  203. if BigClassName="" and SmallClassName="" then
  204. response.write "&nbsp;所有下载"
  205. else
  206. if BigClassName<>"" then
  207. response.write "&nbsp;<a href='Download.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  208. if SmallClassName<>"" then
  209. response.write "<a href='Download.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>"
  210. else
  211. response.write "所有小类"
  212. end if
  213. end if
  214. end if
  215. end sub
  217. '=========================================================================
  218. '过程名：ShowArticleTotal
  219. '作  用：显示文章总数
  220. '参  数：无
  221. '=========================================================================
  222. sub ShowArticleTotal()
  223. dim sqlTotal
  224. dim rsTotal
  225. sqlTotal="select Count(*) from Product where Passed=True "
  226. if BigClassName<>"" then
  227. sqlTotal=sqlTotal & " and BigClassName='" & BigClassName & "'"
  228. if SmallClassName<>"" then
  229. sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "'"
  230. end if
  231. else
  232. if SpecialName<>"" then
  233. sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "'"
  234. end if
  235. end if
  236. Set rsTotal= Server.CreateObject("ADODB.Recordset")
  237. rsTotal.open sqlTotal,conn,1,1
  238. if rsTotal.eof and rsTotal.bof then
  239. totalPut=0
  240. response.write "共有 0 个产品"
  241. else
  242. totalPut=rsTotal(0)
  243. response.Write "共有 " & totalPut & " 个产品"
  244. end if
  245. rsTotal.close
  246. set rsTotal=nothing
  247. end sub
  250. '=========================================================================
  251. '过程名：ShowDownTotal
  252. '作  用：显示文章总数
  253. '参  数：无
  254. '=========================================================================
  255. sub ShowDownTotal()
  256. dim sqlTotal
  257. dim rsTotal
  258. sqlTotal="select Count(*) from download "
  259. if BigClassName<>"" then
  260. sqlTotal=sqlTotal & " where BigClassName='" & BigClassName & "'"
  261. if SmallClassName<>"" then
  262. sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "'"
  263. end if
  264. end if
  265. Set rsTotal= Server.CreateObject("ADODB.Recordset")
  266. rsTotal.open sqlTotal,conn,1,1
  267. if rsTotal.eof and rsTotal.bof then
  268. totalPut=0
  269. response.write "共有 0 个下载"
  270. else
  271. totalPut=rsTotal(0)
  272. response.Write "共有 " & totalPut & " 个下载"
  273. end if
  274. rsTotal.close
  275. set rsTotal=nothing
  276. end sub
  278. '=========================================================================
  279. '过程名：ShowArticle
  280. '=========================================================================
  281. sub ShowArticle(TitleLen)
  282. if TitleLen<0 or TitleLen>200 then
  283. TitleLen=50
  284. end if
  285.     if currentpage<1 then
  286.     currentpage=1
  287.     end if
  288. if (currentpage-1)*MaxPerPage>totalput then
  289. if (totalPut mod MaxPerPage)=0 then
  290.     currentpage= totalPut  MaxPerPage
  291. else
  292.     currentpage= totalPut  MaxPerPage + 1
  293. end if
  294.     end if
  295. if currentPage=1 then
  296.         sqlArticle="select top " & MaxPerPage
  297. else
  298. sqlArticle="select "
  299. end if
  301. sqlArticle=sqlArticle & " ArticleID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Price,Spec,Unit,Memo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True "
  303. if BigClassName<>"" then
  304. sqlArticle=sqlArticle & " and BigClassName='" & BigClassName & "'"
  305. if SmallClassName<>"" then
  306. sqlArticle=sqlArticle & " and SmallClassName='" & SmallClassName & "'"
  307. end if
  308. else
  309. if SpecialName<>"" then
  310. sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "'"
  311. end if
  312. end if
  313. sqlArticle=sqlArticle & " order by articleid desc"
  314. Set rsArticle= Server.CreateObject("ADODB.Recordset")
  315. rsArticle.open sqlArticle,conn,1,1
  316. if rsArticle.bof and  rsArticle.eof then
  317. response.Write("<br><li>没有任何产品</li>")
  318. else
  319. if currentPage=1 then
  320. call ArticleContent(TitleLen)
  321. else
  322. if (currentPage-1)*MaxPerPage<totalPut then
  323.               rsArticle.move  (currentPage-1)*MaxPerPage
  324.           dim bookmark
  325.             bookmark=rsArticle.bookmark
  326.              call ArticleContent(TitleLen)
  327.          else
  328.          currentPage=1
  329.             call ArticleContent(TitleLen)
  330.      end if
  331. end if
  332. end if
  333. rsArticle.close
  334. set rsArticle=nothing
  335. end sub
  337. sub ArticleContent(intTitleLen)
  338.     dim i,strTemp
  339.     i=0
  340. do while not rsArticle.eof
  341. strTemp=""
  342. strTemp= strTemp & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
  343.                 strTemp= strTemp & "<tr>"
  344.                 strTemp= strTemp & "<td width=25% rowspan=7>"
  345.                 strTemp= strTemp & "<div align=center><a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & ">" 
  347. fileExt=lcase(getFileExtName(rsArticle("DefaultPicUrl")))
  348. if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
  349.                 strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=105 height=80>" 
  350. else
  351.  if fileext="swf" then
  352.     strTemp= strTemp & "<object  classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='105'height='84'>"
  353. strTemp= strTemp &"<param name=movie value='"&rsArticle("DefaultPicUrl")&"'>"
  354. strTemp= strTemp &"<param name=quality value=high>"
  355. strTemp= strTemp &"<param name='Play'value='-1'>"
  356. strTemp= strTemp &"<param name='Loop'value='0'>"
  357. strTemp= strTemp &"<param name='Menu'value='-1'>"
  358. strTemp= strTemp &"<param name='wmode'value='transparent'>"
  359. strTemp= strTemp &"<embed src='"&rsArticle("DefaultPicUrl")&"' width='105'height='84'pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'type='application/x-shockwave-flash'></embed> </object>"
  360.    end if
  361.       end if  
  362.  
  363.                 strTemp= strTemp & "</a></div></td>"
  364.                 strTemp= strTemp & "<td width=12% height=12>"
  365.                 strTemp= strTemp & "产品名称：</td>"
  366.                 strTemp= strTemp & "<td>"
  367.                 strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
  368.                 strTemp= strTemp & "</a></td>"
  370. strTemp= strTemp & "</tr><tr>" 
  371.                 strTemp= strTemp & "<td width=12% height=12>"
  372.                 strTemp= strTemp & "产品售价：</td>"
  373.                 strTemp= strTemp & "<td>" & rsArticle("Price") & "元</td>"
  375. strTemp= strTemp & "</tr><tr>"
  376. strTemp= strTemp & "<td width=12% height=12>"
  377.                 strTemp= strTemp & "产品规格：</td>"
  378.                 strTemp= strTemp & "<td>"
  379.                 strTemp= strTemp & rsArticle("Spec") & ""
  380.                 strTemp= strTemp & "</a></td>"
  382. strTemp= strTemp & "</tr><tr>"
  383. strTemp= strTemp & "<td width=12% height=12>"
  384.                 strTemp= strTemp & "产品备注：</td>"
  385.                 strTemp= strTemp & "<td>"
  386.                 strTemp= strTemp & rsArticle("Memo") & ""
  387.                 strTemp= strTemp & "</a></td>"
  389.                 strTemp= strTemp & "</tr><tr>"
  390.                 strTemp= strTemp & "<td height=12>"
  391.                 strTemp= strTemp & "产品类别：</td>"
  392.                 strTemp= strTemp & "<td><a href=Product.asp?BigClassName=" & rsArticle("BigClassName") & ">" & rsArticle("BigClassName") & "</a> → "
  393.                 strTemp= strTemp & "<a href=Product.asp?BigClassName=" & rsArticle("BigClassName") & "&SmallClassName=" & rsArticle("SmallClassName") & ">" & rsArticle("SmallClassName") & ""
  394.                 strTemp= strTemp & "</a></td>"
  395.                 strTemp= strTemp & "</tr><tr>" 
  397.                'strTemp= strTemp & "<td height=12>"
  398.                'strTemp= strTemp & "产品编号：</td>"
  399.               ' strTemp= strTemp & "<td>" & rsArticle("Product_Id") & "</td>"
  400.               ' strTemp= strTemp & "</tr><tr>"
  401.    
  402.                 strTemp= strTemp & "<td height=12>产品信息：</td>"
  403.                 strTemp= strTemp & "<td>"
  404.                 strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & "><img src=Img/arrow_7.gif border=0></a></td>"
  405.                 strTemp= strTemp & "</tr><tr>"
  406.                 strTemp= strTemp & "<td colspan=2>"
  407.                 strTemp= strTemp & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
  408.                 strTemp= strTemp & "<tr>" 
  409.                 strTemp= strTemp & "<td width=50% height=12>"
  410.                 strTemp= strTemp & "<div align=center></div></td>"
  411.                 
  412. strTemp= strTemp & "<td width=50% height=12>"
  413.                 strTemp= strTemp & "<div align=center><a href=# onClick=""window.open('add.asp?Product_Id="&rsArticle("Product_Id")&"','blank_','scrollbars=yes,resizable=no,width=650,height=450')""><img border=0 src=img/addtocart.gif width=100 height=26>"
  414.                 strTemp= strTemp & "</a></div></td>"
  416.                 strTemp= strTemp & "</tr>"
  417.                 strTemp= strTemp & "</table>"
  418.                 strTemp= strTemp & "</td>"
  419.                 strTemp= strTemp & "</tr><tr>" 
  420.                 strTemp= strTemp & "<td height=1 colspan=3 bgcolor=#CCCCCC></td>"
  421.                 strTemp= strTemp & "</tr>"
  422.                 strTemp= strTemp & "</table>"
  423. response.write strTemp
  424. rsArticle.movenext
  425. i=i+1
  426. if i>=MaxPerPage then exit do
  427. loop
  428. end sub 
  430. '=========================================================================
  431. '过程名：ShowDown
  432. '=========================================================================
  433. sub ShowDown(TitleLen)
  434. if TitleLen<0 or TitleLen>200 then
  435. TitleLen=50
  436. end if
  437.     if currentpage<1 then
  438.     currentpage=1
  439.     end if
  440. if (currentpage-1)*MaxPerPage>totalput then
  441. if (totalPut mod MaxPerPage)=0 then
  442.     currentpage= totalPut  MaxPerPage
  443. else
  444.     currentpage= totalPut  MaxPerPage + 1
  445. end if
  446.     end if
  447. if currentPage=1 then
  448.         sqlDown="select top " & MaxPerPage
  449. else
  450. sqlDown="select "
  451. end if
  453. sqlDown=sqlDown & " ID,title,content,BigClassName,SmallClassName,imagenum,firstImageName,System,Softclass,PhotoUrl,DownloadUrl,FileSize,infotime,hits from download"
  455. if BigClassName<>"" then
  456. sqlDown=sqlDown & " where BigClassName='" & BigClassName & "'"
  457. if SmallClassName<>"" then
  458. sqlDown=sqlDown & " and SmallClassName='" & SmallClassName & "'"
  459. end if
  460. else
  461. if SpecialName<>"" then
  462. sqlDown=sqlDown & " and SpecialName='" & SpecialName & "'"
  463. end if
  464. end if
  465. sqlDown=sqlDown & " order by ID desc"
  466. Set rsDown= Server.CreateObject("ADODB.Recordset")
  467. rsDown.open sqlDown,conn,1,1
  468. if rsDown.bof and  rsDown.eof then
  469. response.Write("<br><li>没有任何下载</li>")
  470. else
  471. if currentPage=1 then
  472. call DownContent(TitleLen)
  473. else
  474. if (currentPage-1)*MaxPerPage<totalPut then
  475.               rsDown.move  (currentPage-1)*MaxPerPage
  476.           dim bookmark
  477.             bookmark=rsDown.bookmark
  478.              call DownContent(TitleLen)
  479.          else
  480.          currentPage=1
  481.             call DownContent(TitleLen)
  482.      end if
  483. end if
  484. end if
  485. rsDown.close
  486. set rsDown=nothing
  487. end sub
  489. sub DownContent(intTitleLen)
  490.     dim i,strTemp
  491.     i=0
  492. do while not rsDown.eof
  493. strTemp=""
  494. strTemp= strTemp & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
  495.                 strTemp= strTemp & "<tr>"
  496.                 strTemp= strTemp & "<td width=20% rowspan=7>"
  497.                 strTemp= strTemp & "<div align=center><a href=DownloadShow.asp?ID=" & rsDown("id") & ">" 
  498.                 strTemp= strTemp & "<img border=0 src=" & rsDown("PhotoUrl") & " width=100 height=120>" 
  499.                 strTemp= strTemp & "</a></div></td>"
  500.                 strTemp= strTemp & "<td width=12% height=12>"
  501.                 strTemp= strTemp & "文件名称：</td>"
  502.                 strTemp= strTemp & "<td>"
  503.                 strTemp= strTemp & rsDown("Title") & ""
  504.                 strTemp= strTemp & "</td>"
  506. strTemp= strTemp & "</tr><tr>"
  507. strTemp= strTemp & "<td width=12% height=12>"
  508.                 strTemp= strTemp & "文件大小：</td>"
  509.                 strTemp= strTemp & "<td>"
  510.                 strTemp= strTemp & rsDown("FileSize") & "K"
  511.                 strTemp= strTemp & "</td>"
  513. strTemp= strTemp & "</tr><tr>"
  514. strTemp= strTemp & "<td width=12% height=12>"
  515.                 strTemp= strTemp & "发布日期：</td>"
  516.                 strTemp= strTemp & "<td>"
  517.                 strTemp= strTemp & rsDown("infotime") & ""
  518.                 strTemp= strTemp & "</td>"
  520. strTemp= strTemp & "</tr><tr>"
  521. strTemp= strTemp & "<td width=12% height=12>"
  522.                 strTemp= strTemp & "适用系统：</td>"
  523.                 strTemp= strTemp & "<td>"
  524.                 strTemp= strTemp & rsDown("System") & ""
  525.                 strTemp= strTemp & "</td>"
  527.                 strTemp= strTemp & "</tr><tr>"
  528.                 strTemp= strTemp & "<td height=12>"
  529.                 strTemp= strTemp & "下载类别：</td>"
  530.                 strTemp= strTemp & "<td><a href=Download.asp?BigClassName=" & rsDown("BigClassName") & ">" & rsDown("BigClassName") & "</a> → "
  531.                 strTemp= strTemp & "<a href=Download.asp?BigClassName=" & rsDown("BigClassName") & "&SmallClassName=" & rsDown("SmallClassName") & ">" & rsDown("SmallClassName") & ""
  532.                 strTemp= strTemp & "</a></td>"
  533.                 strTemp= strTemp & "</tr><tr>" 
  535. strTemp= strTemp & "<td height=12>下载说明：</td>"
  536.                 strTemp= strTemp & "<td>"
  537.                 strTemp= strTemp & "<a href=DownloadShow.asp?ID=" & rsDown("id") & "><img src=../Img/arrow_7.gif border=0></a></td>"
  538.                 strTemp= strTemp & "</tr><tr>"
  540.    
  541.                 strTemp= strTemp & "<td height=12></td>"
  542.                 strTemp= strTemp & "<td>"
  543.                 strTemp= strTemp & "<a href=" & rsDown("DownloadUrl") & "><img src=../Img/download.gif border=0></a></td>"
  544.                 strTemp= strTemp & "</tr><tr>"
  545.                 strTemp= strTemp & "<td colspan=2>"
  546.                 strTemp= strTemp & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
  547.                 strTemp= strTemp & "<tr>" 
  548.                 strTemp= strTemp & "<td width=50% height=12>"
  549.                 strTemp= strTemp & "<div align=center></div></td>"  
  551.                 strTemp= strTemp & "</tr>"
  552.                 strTemp= strTemp & "</table>"
  553.                 strTemp= strTemp & "</td>"
  554.                 strTemp= strTemp & "</tr><tr>" 
  555.                 strTemp= strTemp & "<td height=1 colspan=3 bgcolor=#CCCCCC></td>"
  556.                 strTemp= strTemp & "</tr>"
  557.                 strTemp= strTemp & "</table>"
  558. response.write strTemp
  559. rsDown.movenext
  560. i=i+1
  561. if i>=MaxPerPage then exit do
  562. loop
  563. end sub 
  566. '=========================================================================
  567. '过程名：ShowSearchTerm
  568. '作  用：显示搜索条件信息
  569. '参  数：无
  570. '=========================================================================
  571. sub ShowSearchTerm()
  572. response.write "|&nbsp;产品搜索&nbsp;&gt;&gt; "
  573. if BigClassName<>"" then
  574. response.write "<a href='Product.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  575. if SmallClassName<>"" then
  576. response.write "<a href='Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
  577. else
  578. response.write "所有小类&nbsp;&gt;&gt;&nbsp;"
  579. end if
  580. end if
  581. if keyword<>"" then
  582.   select case strField
  583. case "Title"
  584. response.Write "名称中含有 <font color=red>"&keyword&"</font> 的产品"
  585. case "Content"
  586. response.Write "说明含有 <font color=red>"&keyword&"</font> 的产品"
  587. case else
  588. response.Write "名称中含有 <font color=red>"&keyword&"</font> 的产品"
  589.   end select
  590. else
  591.   response.write "&nbsp;所有产品"
  592. end if
  593. end sub
  595. '=========================================================================
  596. '过程名：SearchResultTotal
  597. '作  用：显示搜索结果总数
  598. '参  数：无
  599. '=========================================================================
  600. sub SearchResultTotal()
  601. dim rsTotal,sqlTotal
  602. sqlTotal="select count(*) from Product where Passed=True "
  603. if BigClassName<>"" then
  604. sqlTotal=sqlTotal & " and BigClassName='" & BigClassName & "'"
  605. if SmallClassName<>"" then
  606. sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "'"
  607. end if
  608. else
  609. if SpecialName<>"" then
  610. sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "'"
  611. end if
  612. end if
  613. if keyword<>"" then
  614. select case strField
  615. case "Title"
  616. sqlTotal=sqlTotal & " and Title like '%" & keyword & "%'"
  617. case "Content"
  618. sqlTotal=sqlTotal & " and Content like '%" & keyword & "%'"
  619. case else
  620. sqlTotal=sqlTotal & " and Title like '%" & keyword & "%'"
  621. end select
  622. end if
  623. Set rsTotal= Server.CreateObject("ADODB.Recordset")
  624. rsTotal.open sqlTotal,conn,1,1
  625. if rsTotal.eof and rsTotal.bof then
  626. totalPut=0
  627. response.write "共有 0 个产品"
  628. else
  629. totalPut=rsTotal(0)
  630. response.Write "共找到 " & totalPut & " 个产品"
  631. end if
  632. end sub
  634. '=========================================================================
  635. '过程名：ShowSearchResult
  636. '作  用：分页显示搜索结果
  637. '参  数：无
  638. '=========================================================================
  639. sub ShowSearchResult()
  640.     if currentpage<1 then
  641.     currentpage=1
  642.     end if
  643. if (currentpage-1)*MaxPerPage>totalput then
  644. if (totalPut mod MaxPerPage)=0 then
  645.     currentpage= totalPut  MaxPerPage
  646. else
  647.     currentpage= totalPut  MaxPerPage + 1
  648. end if
  649.     end if
  650. if currentPage=1 then
  651.         sqlSearch="select top " & MaxPerPage
  652. else
  653. sqlSearch="select "
  654. end if
  656. sqlSearch=sqlSearch & " * from Product where Passed=True "
  657. if BigClassName<>"" then
  658. sqlSearch=sqlSearch & " and BigClassName='" & BigClassName & "'"
  659. if SmallClassName<>"" then
  660. sqlSearch=sqlSearch & " and SmallClassName='" & SmallClassName & "'"
  661. end if
  662. else
  663. if SpecialName<>"" then
  664. sqlSearch=sqlSearch & " and SpecialName='" & SpecialName & "'"
  665. end if
  666. end if
  667. if keyword<>"" then
  668. select case strField
  669. case "Title"
  670. sqlSearch=sqlSearch & " and Title like '%" & keyword & "%'"
  671. case "Content"
  672. sqlSearch=sqlSearch & " and Content like '%" & keyword & "%'"
  673. case else
  674. sqlSearch=sqlSearch & " and Title like '%" & keyword & "%'"
  675. end select
  676. end if
  677. sqlSearch=sqlSearch & " order by articleid desc"
  678. Set rsSearch= Server.CreateObject("ADODB.Recordset")
  679. rsSearch.open sqlSearch,conn,1,1
  680.   if rsSearch.eof and rsSearch.bof then 
  681.         response.write "<p align='center'><br><br>没有或没有找到任何产品</p>" 
  682.     else 
  683.     if currentPage=1 then 
  684.         call SearchResultContent()
  685.     else 
  686.         if (currentPage-1)*MaxPerPage<totalPut then 
  687.         rsSearch.move  (currentPage-1)*MaxPerPage 
  688.         dim bookmark 
  689.         bookmark=rsSearch.bookmark 
  690.         call SearchResultContent()
  691.        else 
  692.          currentPage=1 
  693.         call SearchResultContent()
  694.        end if 
  695.     end if 
  696.     end if 
  697.     rsSearch.close 
  698.     set rsSearch=nothing   
  699. end sub
  701. sub SearchResultContent()
  702.     dim i,strTemp,content
  703. i=1
  704. do while not rsSearch.eof
  705. strTemp=""
  706. strTemp=strTemp & cstr(i) & ".<a href='ProductShow.asp?ArticleID=" & rsSearch("articleid") & "'>"
  707. if strField="Title" then
  708. strTemp=strTemp & "<b>" & replace(rsSearch("title"),""&keyword&"","<font color=red>"&keyword&"</font>") & "</b></font></a>"
  709. else
  710. strTemp=strTemp & "<b>" & rsSearch("title") & "</b></a>"
  711. end if
  712. strTemp=strTemp & " [" & FormatDateTime(rsSearch("UpdateTime"),1) & "]"
  713. content=left(nohtml(rsSearch("content")),200)
  714. if strField="Content" then
  715. strTemp=strTemp & "<div style='padding:10px 20px'>" & replace(content,""&keyword&"","<font color=red>"&keyword&"</font>") & "……</div>"
  716. else
  717. strTemp=strTemp & "<div style='padding:10px 20px'>" & content & "……</div>"
  718. end if
  719. 'strTemp=strTemp & "</a>"
  720. response.write strTemp
  721. i=i+1
  722. if i>MaxPerPage then exit do
  723. rsSearch.movenext
  724. loop
  725. end sub 
  728. '=========================================================================
  729. '过程名：ShowSearch
  730. '作  用：显示文章搜索表单
  731. '参  数：ShowType ----显示方式。1为纵向，2为横向
  732. '=========================================================================
  733. sub ShowSearch(ShowType)
  734. dim count
  735. if ShowType<>1 and ShowType<>2 then
  736. ShowType=1
  737. end if
  738. set rs=server.createobject("adodb.recordset")
  739. sql = "select * from SmallClass order by SmallClassID asc"
  740. rs.open sql,conn,1,1
  741. %>
  742. <script language = "JavaScript">
  743. var onecount;
  744. subcat = new Array();
  745.         <%
  746.         count = 0
  747.         do while not rs.eof 
  748.         %>
  749. subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
  750.         <%
  751.         count = count + 1
  752.         rs.movenext
  753.         loop
  754.         rs.close
  755.         %>
  756. onecount=<%=count%>;
  758. function changelocation(locationid)
  759.     {
  760.     document.myform.SmallClassName.length = 1; 
  761.     var locationid=locationid;
  762.     var i;
  763.     for (i=0;i < onecount; i++)
  764.         {
  765.             if (subcat[i][1] == locationid)
  766.             { 
  767.                 document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
  768.             }        
  769.         }
  770.     }    
  771. </script>
  772. <table border="0" cellpadding="2" cellspacing="0" align="center">
  773.   <form method="Get" name="myform" action="search.asp">
  774.     <tr>
  775.       <td height="28"> <select name="Field" size="1">
  776.           <option value="Title" selected>产品名称</option>
  777.           <option value="Content">产品说明</option>
  778.         </select> 
  779.         <%if ShowType=1 then%>
  780.       </td>
  781.     </tr>
  782.     <tr>
  783.       <td height="28"> 
  784.         <%end if%>
  785.         <select name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
  786.           <option selected value="">所有大类</option>
  787.           <%
  788. if not (rsBigClass.bof and rsBigClass.eof) then
  789. rsBigClass.movefirst
  790. do while not rsBigClass.eof
  791.         response.Write "<option value='" & trim(rsBigClass("BigClassName")) & "'>" & trim(rsBigClass("BigClassName")) & "</option>"
  792.     rsBigClass.movenext
  793. loop
  794. end if
  795. %>
  796.         </select> 
  797.         <%if ShowType=1 then%>
  798.       </td>
  799.     </tr>
  800.     <tr>
  801.       <td height="28"> 
  802.         <%end if%>
  803.         <select name="SmallClassName">
  804.           <option selected value="">所有小类</option>
  805.         </select> 
  806.         <%if ShowType=1 then%>
  807.       </td>
  808.     </tr>
  809.     <tr>
  810.       <td height="28"> 
  811.         <%end if%>
  812.         <input type="text" name="keyword"  size=12 value="关键字" maxlength="50" onFocus="this.select();"> 
  813.         <input type="submit" name="Submit"  value="搜索"> </td>
  814.     </tr>
  815.   </form>
  816. </table>
  817. <%
  818. end sub
  820. '=========================================================================
  821. '过程名：ShowAllClass
  822. '作  用：显示所有栏目（栏目导航）
  823. '参  数：无
  824. '=========================================================================
  825. sub ShowAllClass()
  826. if rsBigClass.bof and rsBigClass.eof then 
  827. response.Write "&nbsp;没有任何栏目"
  828. else
  829. dim sqlClass,rsClass,strClassName
  830. rsBigClass.movefirst
  831. do while not rsBigClass.eof
  832. strClassName= "【<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'><b>" & rsBigClass("BigClassName") & "</b></a>】<br><br>"
  833. sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "'Order by SmallClassID"
  834. Set rsClass= Server.CreateObject("ADODB.Recordset")
  835. rsClass.open sqlClass,conn,1,1
  836. do while not rsClass.eof
  837. strClassName=strClassName & "&nbsp;<a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>&nbsp;"
  838. rsClass.movenext
  839. loop
  840. response.write strClassName & "<br><br>"
  841. rsBigClass.movenext
  842. loop
  843. rsClass.close
  844. set rsClass=nothing
  845. end if
  846. end sub
  849. '=========================================================================
  850. '过程名：ShowArticleContent
  851. '作  用：显示文章具体的内容，可以分页显示
  852. '参  数：无
  853. '=========================================================================
  854. sub ShowArticleContent()
  855. dim ArticleID,strContent,CurrentPage
  856. dim ContentLen,MaxPerPage,pages,i,lngBound
  857. dim BeginPoint,EndPoint
  858. ArticleID=rs("ArticleID")
  859. strContent=rs("Content")
  860. ContentLen=len(strContent)
  861. CurrentPage=trim(request("ArticlePage"))
  862. if ShowContentByPage="No" or ContentLen<=200000 then
  863. response.write strContent
  864. if ShowContentByPage="Yes" then
  865. response.write "</p><p align='center'></p>"
  866. end if
  867. else
  868. if CurrentPage="" then
  869. CurrentPage=1
  870. else
  871. CurrentPage=Cint(CurrentPage)
  872. end if
  873. pages=ContentLenMaxPerPage_Content
  874. if MaxPerPage_Content*pages<ContentLen then
  875. pages=pages+1
  876. end if
  877. lngBound=MaxPerPage_Content          '最大误差范围
  878. if CurrentPage<1 then CurrentPage=1
  879. if CurrentPage>pages then CurrentPage=pages
  881. dim lngTemp
  882. dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
  883. dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2
  884. dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2
  885. dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2
  886. dim lngTemp5,lngTemp5_1,lngTemp5_2
  887. dim lngTemp6,lngTemp6_1,lngTemp6_2
  889. if CurrentPage=1 then
  890. BeginPoint=1
  891. else
  892. BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
  894. lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
  895. lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
  896. lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
  897. if lngTemp1_1_1>0 then
  898. lngTemp1_1=lngTemp1_1_1
  899. elseif lngTemp1_1_2>0 then
  900. lngTemp1_1=lngTemp1_1_2
  901. elseif lngTemp1_1_3>0 then
  902. lngTemp1_1=lngTemp1_1_3
  903. else
  904. lngTemp1_1=0
  905. end if
  907. lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
  908. lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
  909. lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
  910. if lngTemp1_2_1>0 then
  911. lngTemp1_2=lngTemp1_2_1
  912. elseif lngTemp1_2_2>0 then
  913. lngTemp1_2=lngTemp1_2_2
  914. elseif lngTemp1_2_3>0 then
  915. lngTemp1_2=lngTemp1_2_3
  916. else
  917. lngTemp1_2=0
  918. end if
  920. if lngTemp1_1=0 and lngTemp1_2=0 then
  921. lngTemp1=BeginPoint
  922. else
  923. if lngTemp1_1>lngTemp1_2 then
  924. lngtemp1=lngTemp1_2
  925. else
  926. lngTemp1=lngTemp1_1+8
  927. end if
  928. end if
  930. lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
  931. lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
  932. if lngTemp2_1_1>0 then
  933. lngTemp2_1=lngTemp2_1_1
  934. elseif lngTemp2_1_2>0 then
  935. lngTemp2_1=lngTemp2_1_2
  936. else
  937. lngTemp2_1=0
  938. end if
  940. lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
  941. lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
  942. if lngTemp2_2_1>0 then
  943. lngTemp2_2=lngTemp2_2_1
  944. elseif lngTemp2_2_2>0 then
  945. lngTemp2_2=lngTemp2_2_2
  946. else
  947. lngTemp2_2=0
  948. end if
  950. if lngTemp2_1=0 and lngTemp2_2=0 then
  951. lntTemp2=BeginPoint
  952. else
  953. if lngTemp2_1>lngTemp2_2 then
  954. lngtemp2=lngTemp2_2
  955. else
  956. lngTemp2=lngTemp2_1+4
  957. end if
  958. end if
  960. lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
  961. lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
  962. if lngTemp3_1_1>0 then
  963. lngTemp3_1=lngTemp3_1_1
  964. elseif lngTemp3_1_2>0 then
  965. lngTemp3_1=lngTemp3_1_2
  966. else
  967. lngTemp3_1=0
  968. end if
  970. lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
  971. lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
  972. if lngTemp3_2_1>0 then
  973. lngTemp3_2=lngTemp3_2_1
  974. elseif lngTemp3_2_2>0 then
  975. lngTemp3_2=lngTemp3_2_2
  976. else
  977. lngTemp3_2=0
  978. end if
  980. if lngTemp3_1=0 and lngTemp3_2=0 then
  981. lngTemp3=BeginPoint
  982. else
  983. if lngTemp3_1>lngTemp3_2 then
  984. lngtemp3=lngTemp3_2
  985. else
  986. lngTemp3=lngTemp3_1+5
  987. end if
  988. end if
  990. if lngTemp1<lngTemp2 then
  991. lngTemp=lngTemp2
  992. else
  993. lngTemp=lngTemp1
  994. end if
  995. if lngTemp<lngTemp3 then
  996. lngTemp=lngTemp3
  997. end if
  999. if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
  1000. BeginPoint=lngTemp
  1001. else
  1002. lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
  1003. lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
  1004. if lngTemp4_1_1>0 then
  1005. lngTemp4_1=lngTemp4_1_1
  1006. elseif lngTemp4_1_2>0 then
  1007. lngTemp4_1=lngTemp4_1_2
  1008. else
  1009. lngTemp4_1=0
  1010. end if
  1012. lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
  1013. lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
  1014. if lngTemp4_2_1>0 then
  1015. lngTemp4_2=lngTemp4_2_1
  1016. elseif lngTemp4_2_2>0 then
  1017. lngTemp4_2=lngTemp4_2_2
  1018. else
  1019. lngTemp4_2=0
  1020. end if
  1022. if lngTemp4_1=0 and lngTemp4_2=0 then
  1023. lngTemp4=BeginPoint
  1024. else
  1025. if lngTemp4_1>lngTemp4_2 then
  1026. lngtemp4=lngTemp4_2
  1027. else
  1028. lngTemp4=lngTemp4_1+5
  1029. end if
  1030. end if
  1032. if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
  1033. BeginPoint=lngTemp4
  1034. else
  1035. lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
  1036. lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
  1037. if lngTemp5_1>0 then
  1038. lngTemp5=lngTemp5_1
  1039. elseif lngTemp5_2>0 then
  1040. lngTemp5=lngTemp5_2
  1041. else
  1042. lngTemp5=BeginPoint
  1043. end if
  1045. if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
  1046. BeginPoint=lngTemp5
  1047. else
  1048. lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
  1049. lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
  1050. if lngTemp6_1>0 then
  1051. lngTemp6=lngTemp6_1
  1052. elseif lngTemp6_2>0 then
  1053. lngTemp6=lngTemp6_2
  1054. else
  1055. lngTemp6=0
  1056. end if
  1058. if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
  1059. BeginPoint=lngTemp6+4
  1060. end if
  1061. end if
  1062. end if
  1063. end if
  1064. end if
  1066. if CurrentPage=pages then
  1067. EndPoint=ContentLen
  1068. else
  1069.   EndPoint=MaxPerPage_Content*CurrentPage
  1070.   if EndPoint>=ContentLen then
  1071. EndPoint=ContentLen
  1072.   else
  1073. lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
  1074. lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
  1075. lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
  1076. if lngTemp1_1_1>0 then
  1077. lngTemp1_1=lngTemp1_1_1
  1078. elseif lngTemp1_1_2>0 then
  1079. lngTemp1_1=lngTemp1_1_2
  1080. elseif lngTemp1_1_3>0 then
  1081. lngTemp1_1=lngTemp1_1_3
  1082. else
  1083. lngTemp1_1=0
  1084. end if
  1086. lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
  1087. lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
  1088. lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
  1089. if lngTemp1_2_1>0 then
  1090. lngTemp1_2=lngTemp1_2_1
  1091. elseif lngTemp1_2_2>0 then
  1092. lngTemp1_2=lngTemp1_2_2
  1093. elseif lngTemp1_2_3>0 then
  1094. lngTemp1_2=lngTemp1_2_3
  1095. else
  1096. lngTemp1_2=0
  1097. end if
  1099. if lngTemp1_1=0 and lngTemp1_2=0 then
  1100. lngTemp1=EndPoint
  1101. else
  1102. if lngTemp1_1>lngTemp1_2 then
  1103. lngtemp1=lngTemp1_2-1
  1104. else
  1105. lngTemp1=lngTemp1_1+7
  1106. end if
  1107. end if
  1109. lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
  1110. lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
  1111. if lngTemp2_1_1>0 then
  1112. lngTemp2_1=lngTemp2_1_1
  1113. elseif lngTemp2_1_2>0 then
  1114. lngTemp2_1=lngTemp2_1_2
  1115. else
  1116. lngTemp2_1=0
  1117. end if
  1119. lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
  1120. lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
  1121. if lngTemp2_2_1>0 then
  1122. lngTemp2_2=lngTemp2_2_1
  1123. elseif lngTemp2_2_2>0 then
  1124. lngTemp2_2=lngTemp2_2_2
  1125. else
  1126. lngTemp2_2=0
  1127. end if
  1129. if lngTemp2_1=0 and lngTemp2_2=0 then
  1130. lngTemp2=EndPoint
  1131. else
  1132. if lngTemp2_1>lngTemp2_2 then
  1133. lngTemp2=lngTemp2_2-1
  1134. else
  1135. lngTemp2=lngTemp2_1+3
  1136. end if
  1137. end if
  1139. lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
  1140. lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
  1141. if lngTemp3_1_1>0 then
  1142. lngTemp3_1=lngTemp3_1_1
  1143. elseif lngTemp3_1_2>0 then
  1144. lngTemp3_1=lngTemp3_1_2
  1145. else
  1146. lngTemp3_1=0
  1147. end if
  1149. lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
  1150. lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
  1151. if lngTemp3_2_1>0 then
  1152. lngTemp3_2=lngTemp3_2_1
  1153. elseif lngTemp3_2_2>0 then
  1154. lngTemp3_2=lngTemp3_2_2
  1155. else
  1156. lngTemp3_2=0
  1157. end if
  1159. if lngTemp3_1=0 and lngTemp3_2=0 then
  1160. lngTemp3=EndPoint
  1161. else
  1162. if lngTemp3_1>lngTemp3_2 then
  1163. lngtemp3=lngTemp3_2-1
  1164. else
  1165. lngTemp3=lngTemp3_1+4
  1166. end if
  1167. end if
  1169. if lngTemp1<lngTemp2 then
  1170. lngTemp=lngTemp2
  1171. else
  1172. lngTemp=lngTemp1
  1173. end if
  1174. if lngTemp<lngTemp3 then
  1175. lngTemp=lngTemp3
  1176. end if
  1178. if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
  1179. EndPoint=lngTemp
  1180. else
  1181. lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
  1182. lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
  1183. if lngTemp4_1_1>0 then
  1184. lngTemp4_1=lngTemp4_1_1
  1185. elseif lngTemp4_1_2>0 then
  1186. lngTemp4_1=lngTemp4_1_2
  1187. else
  1188. lngTemp4_1=0
  1189. end if
  1191. lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
  1192. lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
  1193. if lngTemp4_2_1>0 then
  1194. lngTemp4_2=lngTemp4_2_1
  1195. elseif lngTemp4_2_2>0 then
  1196. lngTemp4_2=lngTemp4_2_2
  1197. else
  1198. lngTemp4_2=0
  1199. end if
  1201. if lngTemp4_1=0 and lngTemp4_2=0 then
  1202. lngTemp4=EndPoint
  1203. else
  1204. if lngTemp4_1>lngTemp4_2 then
  1205. lngtemp4=lngTemp4_2-1
  1206. else
  1207. lngTemp4=lngTemp4_1+4
  1208. end if
  1209. end if
  1211. if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
  1212. EndPoint=lngTemp4
  1213. else
  1214. lngTemp5_1=instr(EndPoint,strContent,"<img",1)
  1215. lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
  1216. if lngTemp5_1>0 then
  1217. lngTemp5=lngTemp5_1-1
  1218. elseif lngTemp5_2>0 then
  1219. lngTemp5=lngTemp5_2-1
  1220. else
  1221. lngTemp5=EndPoint
  1222. end if
  1224. if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
  1225. EndPoint=lngTemp5
  1226. else
  1227. lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
  1228. lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
  1229. if lngTemp6_1>0 then
  1230. lngTemp6=lngTemp6_1+3
  1231. elseif lngTemp6_2>0 then
  1232. lngTemp6=lngTemp6_2+3
  1233. else
  1234. lngTemp6=EndPoint
  1235. end if
  1237. if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
  1238. EndPoint=lngTemp6
  1239. end if
  1240. end if
  1241. end if
  1242. end if
  1243.   end if
  1244. end if
  1245. response.write mid(strContent,BeginPoint,EndPoint-BeginPoint)
  1247. response.write "</p><p align='center'><b>"
  1248. if CurrentPage>1 then
  1249. response.write "<a href='ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>上一页</a>&nbsp;&nbsp;"
  1250. end if
  1251. for i=1 to pages
  1252. if i=CurrentPage then
  1253. response.write "<font color='red'>[" & cstr(i) & "]</font>&nbsp;"
  1254. else
  1255. response.write "<a href='ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a>&nbsp;"
  1256. end if
  1257. next
  1258. if CurrentPage<pages then
  1259. response.write "&nbsp;<a href='ProductShow.asp?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>下一页</a>"
  1260. end if
  1261. response.write "</b></p>"
  1262. end if
  1264. end sub
  1266. '=========================================================================
  1267. '过程名：ShowUserLogin
  1268. '作  用：显示用户登录表单
  1269. '参  数：无
  1270. '=========================================================================
  1271. sub ShowUserLogin()
  1272. dim strLogin
  1273. If Session("UserName")="" Then
  1274.      strLogin= "<table width='100%'border='0'cellspacing='0'cellpadding='0'>"
  1275. strLogin=strLogin & "<form action='UserLogin.asp'method='post'name='UserLogin'onSubmit='return CheckForm();'>"
  1276.         strLogin=strLogin & "<tr><td height='25' align='right'>用户名：</td><td height='25'><input name='UserName'type='text'id='UserName'size='10'maxlength='20'></td></tr>"
  1277.         strLogin=strLogin & "<tr><td height='25' align='right'>密&nbsp;&nbsp;码：</td><td height='25'><input name='Password'type='password'id='Password'size='10'maxlength='20'></td></tr>"
  1278.         strLogin=strLogin & "<tr align='center'><td height='25'colspan='2'><input name='Login'type='submit'id='Login'value='登录 '> <input name='Reset'type='reset'id='Reset'value='清除 '>"
  1279.         strLogin=strLogin & "</td></tr>"
  1280.         strLogin=strLogin & "<tr><td height='20' align='center'colspan='2'><a href='UserReg.asp'target='_blank'>新用户注册</a>&nbsp;&nbsp;<a href='GetPassword.asp'target='_blank'>忘记密码？</a></td></tr>"      
  1281.         strLogin=strLogin & "</form></table>"
  1282. response.write strLogin
  1283. %>
  1284. <script language=javascript>
  1285. function CheckForm()
  1286. {
  1287. if(document.UserLogin.UserName.value=="")
  1288. {
  1289. alert("请输入用户名！");
  1290. document.UserLogin.UserName.focus();
  1291. return false;
  1292. }
  1293. if(document.UserLogin.Password.value == "")
  1294. {
  1295. alert("请输入密码！");
  1296. document.UserLogin.Password.focus();
  1297. return false;
  1298. }
  1299. }
  1300. </script>
  1301. <%
  1302. Else 
  1303. response.write "欢迎您！" & Session("UserName") & "<br><br>"
  1304. response.write "<b>用户控制面板：</b><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='Server.asp'><b>会员管理中心</b></a><br><br>"
  1305. end if
  1306. end sub
  1308. '=========================================================================
  1309. '过程名：ShowUserLogina
  1310. '作  用：显示用户登录表单
  1311. '参  数：无
  1312. '=========================================================================
  1313. sub ShowUserLogina()
  1314. dim strLogin
  1315. If Session("UserName")="" Then
  1316.      strLogin= "<table width='100%'border='0'cellspacing='0'cellpadding='0'>"
  1317. strLogin=strLogin & "<form action='UserLogina.asp'method='post'name='UserLogin'onSubmit='return CheckForm();'>"
  1318.         strLogin=strLogin & "<tr><td height='25' align='right'>用户名：</td><td height='25'><input name='UserName'type='text'id='UserName'size='10'maxlength='20'></td></tr>"
  1319.         strLogin=strLogin & "<tr><td height='25' align='right'>密&nbsp;&nbsp;码：</td><td height='25'><input name='Password'type='password'id='Password'size='10'maxlength='20'></td></tr>"
  1320.         strLogin=strLogin & "<tr align='center'><td height='25'colspan='2'><input name='Login'type='submit'id='Login'value='登录 '> <input name='Reset'type='reset'id='Reset'value='清除 '>"
  1321.         strLogin=strLogin & "</td></tr>"
  1322.         strLogin=strLogin & "<tr><td height='20' align='center'colspan='2'><a href='UserReg.asp'target='_blank'>新用户注册</a>&nbsp;&nbsp;<a href='GetPassword.asp'target='_blank'>忘记密码？</a></td></tr>"      
  1323.         strLogin=strLogin & "</form></table>"
  1324. response.write strLogin
  1325. %>
  1326. <script language=javascript>
  1327. function CheckForm()
  1328. {
  1329. if(document.UserLogin.UserName.value=="")
  1330. {
  1331. alert("请输入用户名！");
  1332. document.UserLogin.UserName.focus();
  1333. return false;
  1334. }
  1335. if(document.UserLogin.Password.value == "")
  1336. {
  1337. alert("请输入密码！");
  1338. document.UserLogin.Password.focus();
  1339. return false;
  1340. }
  1341. }
  1342. </script>
  1343. <%
  1344. Else 
  1345. response.write "欢迎您！" & Session("UserName") & "<br><br>"
  1346. response.write "<b>用户控制面板：</b><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='Server.asp'><b>会员管理中心</b></a><br><br>"
  1347. end if
  1348. end sub
  1349. %>