<% dim Titletop,c,id c=3 id=SafeRequest("id",1) action=FormatSQL(SafeRequest("action",0)) set rs=server.CreateObject("adodb.recordset") if id<>"" then rs.open "select * from product where id="&id,conn,1,3 else response.Redirect "index.asp" end if name = rs("name") grade = rs("grade") photo = rs("photo") detail = rs("detail") content = rs("content") contentt = rs("contentt") adddate = rs("adddate") content = rs("content") contentt = rs("contentt") viewnum = rs("viewnum") rs("viewnum")=viewnum + 1 Title = rs("name") '########### 网页名称 rs.update rs.close set rs = nothing Titletop = "案例展示" '########### 网页名称 %><%=Title%>-<%=Titletop%>:<%=webname%>-<%=VPcopyright%>
首页 » <%=Titletop%> » <%=Title%>
案例
<% set rs = server.CreateObject("adodb.recordset") rs.open "select id,name from product order by viewnum desc",conn,1,1 if rs.eof and rs.bof then response.Write "该栏目还没有添加新闻!" else do while not rs.eof %> <% rs.movenext loop rs.close set rs = nothing end if %>
" /><% if len(rs("name"))<=12 then response.Write rs("name") else response.Write left(rs("name"),11)&"..." end if %>
<%=Titletop%>
 
<%=name%>
已浏览 <%=viewnum%> 次 发布时间:<%=adddate%> 责任编辑: <%=grade%>

案例说明
<%=detail%>
应用领域
<%=contentt%>
技术荣誉
<%=content%>
上一案例:<% set rsa=server.CreateObject("adodb.recordset") rsa.open "select id,name from product where id<"&id&" order by id desc",conn,1,1 If rsa.eof and rsa.bof Then response.write "[本类巳是最新发布]" Else name = rsa("name") ids = rsa("id") rsa.close set rsa = nothing %>[<% if len(name)>21 then response.write left(name,19)&"..." Else response.write name end if %>]<%end if%>
下一案例:<% set rs=server.CreateObject("adodb.recordset") rs.open "select id,name from product where id>"&id&" order by id asc",conn,1,1 If rs.eof and rs.bof Then response.write "[本类巳是最新发布]" Else name = rs("name") ids = rs("id") rs.close set rs = nothing %>[<% if len(name)>21 then response.write left(name,19)&"..." Else response.write name end if %>]<%end if%>