当前位置: 代码迷 >> vbScript >> 怎么实现网站查看网页的文章来源 以及 右下角的编辑 模式
  详细解决方案

怎么实现网站查看网页的文章来源 以及 右下角的编辑 模式

热度:8371   发布时间:2013-02-26 00:00:00.0
如何实现网站查看网页的文章来源 以及 右下角的编辑 模式。
就是想这个查看网页样式http://www.examda.com/zikao/hunan/quickinfo/20081204/110717412
我是菜鸟啊 求高手帮帮忙。谢谢

我网站查看网页的源码是:<!--#include file="conn.asp"-->
<!--#include file="admin/inc/config.asp"-->
<!--#include file="admin/inc/function.asp"-->
<!--#include file="admin/inc/admin_code.asp"-->
<%
  dim sql
  dim rs
  dim rstype
  dim typesql
  dim typeid,typename,classname,classid,Nclassname,Nclassid,tem
  dim title
set rs=server.createobject("adodb.recordset")
sql="update product set hits=hits+1 where productID="&request("id")
rs.open sql,conn,1,3 
  sql="select Aclass.class,ANclass.Nclass,product.title,product.classid,product.Nclassid from product,Aclass,ANclass where product.classid=Aclass.classid and product.Nclassid=ANclass.Nclassid and xs=1 and product.productID="&request("id")
  rs.open sql,conn,1,1
  if not rs.eof then
title=rs("title")
classid=rs("classid")
Nclassid=rs("Nclassid")
classname=rs("class")
Nclassname=rs("Nclass")
  end if
rs.close
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<meta name="keywords" content="<% response.write mainkey %>">
<title><% response.write title%>-湖南自考信息门户</title>
<style type="text/css">
<!--
-->
</style>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #0099FF}
-->
</style>
</head>
<!--#include file="top.asp"-->

<table width="912" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
  <td width="912" height="327">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
  <td width="602" height="700" align="left" valign="top" class="rentd1"><table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
  <tr>
  <th scope="col"></th>
  </tr>
  </table> <table width=100% border=0 cellpadding=0 cellspacing=0 class="text">
  <tr>
  <td height="28" align="center"><%
sql="select class,classid from Aclass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有任何栏目"
response.end
else
do while not rs.eof
%>
  <%  
rs.movenext  
loop  
end if  
rs.close  
dim key  
sql="select * from product where xs=1 and productid="&request("id")  
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有找到相关信息。"
response.end
end if
key=rs("title") 
%> <br>
  <font color="#164A63" size="4" face="黑体"><%=rs("title")%></font> </td>
  </tr>
  </table>
  相关解决方案