<%dim id,newsname,newscontent,classid,viewnum,adddate if request.QueryString("id")="" then response.Write("该页面不存在!") response.End() else id=request.QueryString("id") end if rs.open "select top 1 * from danye where newsid="&id,conn,1,1 newsname=rs("newsname") newscontent=rs("newscontent") viewnum=rs("viewnum") adddate=rs("adddate") rs.close %> <%=newsname%> 金兰企划网 <%Function removehtml(strText) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True removehtml = RegEx.Replace(strText, "") End Function Function textencode(str) str=server.htmlencode(str) str=replace(str,chr(32)," ") str=replace(str,chr(13)&chr(10),"
") textencode=str End Function %>
" title="<%=conn.execute("select htitle from adv where id =20")("htitle")%>" target="_blank">" width="950" height="120" border="0" />
 当前位置:<%=newsname%>
 
 <%=newscontent%>

 

      

 
推荐资讯
<%rs.open "select top 10 * from news order by tj desc,newsid desc",conn,1,1 do while not rs.eof%> <%rs.movenext loop rs.close%>
· .html" target="_blank" ><%=left(rs("newsname"),17)%>
 
精品服务推荐
 
<%=textencode(conn.execute("select contactindex from config where id =1")("contactindex"))%>