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

2012-02-26

如何实现网站查看网页的文章来源以及右下角的编辑模式。就是想这个查看网页样式http://www.examda.com/zi

如何实现网站查看网页的文章来源以及右下角的编辑模式。
就是想这个查看网页样式http://www.examda.com/zikao/hunan/quickinfo/20081204/110717412.html
我是菜鸟啊求高手帮帮忙。谢谢

我网站查看网页的源码是：



<%
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">

</style>
</head>


<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>

<table width="100%" border="0" cellpadding="1" cellspacing="2" class="text">
<tr>
<td><div align="center"></div>
<div align="center">
<SCRIPT LANGUAGE="JavaScript"></script>
<SCRIPT LANGUAGE="JavaScript"><div align="left"><div align="left"><font class="b1">
</font></div>
</div>
</script>
</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center" class="text"><font class="b1">点击： <%=rs("hits")%>
<script language="JavaScript">
</script>
</font> 日期： <font class="b1"><%=rs("dateandtime")%></font> </td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="5" cellspacing="0" class="context">
<tr>
<td height="141">
<p>
<% if rs("images")="" then %>
</p>
<p>
<%else%>
<a href="<%=rs("images")%>" target="_blank"><img src="<%=rs("images")%>" border="0"></a>
<%end if%>
<br>
<%tem=rs("content")
//tem=replace(tem,"   "," ")
response.write tem%>
</p></td>
</tr>
</table>
</td>
<td width="10" valign="top"> </td>
<td width="300" valign="top" class="rentd1"><table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
<tr>
<th scope="col"></th>
</tr>
</table>
<p><img src="images/informa.png" width="300" height="261" /></p>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" background="sech.png">
<tr>
<td height="21" align="left" class="text" scope="col"><span class="STYLE1">>>模糊搜索</span></td>
</tr>
</table>
<table width="99%" border="0" cellpadding="0" cellspacing="0" >
<form name="form1" method="post" action="seach.asp">
<tr>
<td height="50" align="left">
<input name="key" type="text" class="input1" id="key2" size="25">
<br>
<input type="submit" name="Submit3" value="查找">
<input type="submit" name="Submit22" value="清除"></td>
</tr>
<tr>
<td height="10" align="center"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" background="sech.png">
<tr>
<td height="22" align="left" class="text" scope="col"><font color="#0099FF">>>热点信息</font></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="top">
<td>
<table width="369%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td align="left"> <span class="text">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from product where nclassid="&Nclassid&" and xs=1 order by hits desc",conn,1,1
if rs.eof <>true then
for i=1 to 6
%>
</span>
<table width="100%" height="22" border="0" align="center" cellpadding="0" cellspacing="0" background="images/dian1.gif">
<tr>
<td width="93%"><a href="textview.asp?id=<%=rs("productid")%>" target="_blank"><%=left(rs("title"),20)%></a></td>
</tr>
</table>
<span class="text">

<% rs.movenext
If rs.EOF Then Exit For
next%>
<%end if
rs.close
%>
</span></td>
</tr>
</table> </td>
</tr>
</table>
<table width="200" border="0">
<tr>

</tr>
</table>
<p> </p></td>
</tr>
</table></td>
</tr>
<tr>
<td class="tabledown"><p> </p>
</td>
</tr>
</table>

</body>
</html>

[解决办法]
好长帮顶
[解决办法]
文章来源:
是在录入新闻或采集时入库的!
编辑:
就是谁录入的或谁采集的或者原文的作者
[解决办法]
只要你的数据库有类4的列,读出来就好

热点排行

vbScript

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

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