<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% id =request.QueryString("id") sql="select * from article where Deleted=False and articleid="&clng(id) rs.open sql,conn,1,1 dim key if not rs.eof and not rs.bof then conn.execute("update article set hits=hits+1 where articleid="&id) title=rs("title") classid=rs("classid") content=replace(rs("content"),"UploadFiles/",adminpath&"UploadFiles/") updatetime=rs("updatetime") author=rs("author") copyfrom=rs("copyfrom") key=rs("key") end if %> <%=title%>-淄博亚隆化工有限公司
<% aid=int(request.querystring("id")) 'call ShowArticle(aid) '这一句便可实现判断用户权限，须包含head.asp。如果不想判断权限，则在左侧添加“ ' ”来注释掉。 %>
  您现在的位置 >> 硬脂酸钙 >> 文章列表 >> 详细资料
<%if ubound(ContentStr)<>0 then%> <%end if%>
<%= title %>
<%=copyfrom&" "&author&" "&updatetime%>
<% If Request("page")="" Then pageNum=0 Else pageNum=Request("page") End if %> <% dim ContentStr,Content content=rs("content") ContentStr=split(Content,"|||") For i=pageNum to pageNum %> <%=ContentStr(i) %>

淄博亚隆化工有限公司专业生产硬脂酸镁，硬脂酸锌，硬脂酸钙，欢迎您的访问：http://www.rfslzj.com

<% Next %>
本文共分 <% i=1 dim o o=Request("page") o=o+1 For p = 0 to ubound(ContentStr) if o<>i then %> <%=p+1%> <% else response.Write(""&p+1&"") end if %> <% i=i+1 Next %> 页