欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

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

更新时间: 2014-01-05 01:52:29 责任编辑: Author_N1

 

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

我网站查看网页的源码是:<!--#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>
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:29
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2349/
本文WWW.DOC100.NET DOC100.NET版权所有。