📄 information.asp

📁 该系统可对信息系统尽行有效的分类管理
💻 ASP
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%Option Explicit%>
<!--#include file=2008admin/config.asp-->
<!--#include file="con-the-hhlong.asp"-->
<!--#include file=functions.asp-->

<%
dim sql,objRS,objRS_path,n,citydq,myurl
dim ID,tttt
dim i,txtId
dim thispath
dim pagecount,currpage,Spage,Epage,recordcount,logo,siteabout,stationname

ID = Request.QueryString("ID")
tttt = Request.QueryString("info")
currpage = request.querystring("currpage")
if ID = "" or not IsNumeric(ID) then
    Response.Write("错误参数")
    Response.End
else
    sql = "select * from stationinfo where ID = " & Clng(ID)
    Set objRS = Server.CreateObject("ADODB.RecordSet")
    objRS.Open sql,objConn,3,1
    sql = "select * from pathform where thispath like '%" & ID & "'"
    Set objRS_path = objConn.Execute(sql)
    if not objRS_path.EOF then thispath = GetPath(objRS_path("thispath"),objRS_path("pathname"),FALSE)
end if
if currpage = "" or IsNull(currpage) then currpage = 1
if not IsNumeric(currpage) then currpage = 1
currpage = Cint(currpage)
%>

<html>

<head>
<title>广州信息：<% Response.Write(""&objRS("stationname")&"") %></title>
<meta name="description" content="广州分类信息，广州在线，广州信息，广州<% Response.Write(""&objRS("stationname")&"") %>，广州旅游、太阳能热水器">
<meta name="keywords" content="广州旅游，信息，广告，公司，广州信息，分类信息，广州机票，广州、太阳能热水器,广州在线">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="happycss.css" type="text/css">
<NOSCRIPT><IFRAME src='*' Width='0' Height='0'></IFRAME></NOSCRIPT>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0"  oncontextmenu='return false' ondragstart='return false' onselectstart ='return false' onselect='document.selection.empty()' oncopy='document.selection.empty()' onbeforecopy='return false' onmouseup='document.selection.empty()'>

<!--#include file="include-top3.htm"-->
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="733" valign="top"><br>
      <table width="680" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td> 
            <%

'//////////////////////////////////////////////  输出相关网站  ////////////////////////////////////
if not objRS.EOF then objRS.AbsolutePage = currpage
for i = 1 to PAGESIZE
	if objRS.EOF then exit for
	Response.Write("<table width=620 border=0 cellspacing=0 cellpadding=5><tr><td width=440>")
	Response.Write("<b>信息标题："&objRS("stationname")&"</b>")
	Response.Write("<br><font color='#999999'><i>(发布时间："&  objRS("thisdate") &")</i></font>")
	Response.Write("<br>信息编号："&objRS("ID"))
	Response.Write("</td><td width=180>")
	Response.Write("信息类型："&objRS("stationlang"))
	Response.Write("<br>有效期："&objRS("infotime"))
	Response.Write("天<br>信息被浏览："&objRS("visitcount"))
	Response.Write("次</td></tr><tr><td colspan=2>")

	Response.Write("<hr size=1>")
	Response.Write("<p><b>信息内容</b></p><P class=s1>"&objRS("description"))
	Response.Write("<br><br>")
	Response.Write("<b>公司信息：</b>"&objRS("siteabout"))
	Response.Write("<br><b>公司名称：</b>"&objRS("sitename"))
	Response.Write("<hr size=1>")
	Response.Write("<b>相关信息：</b><a href=""http://www.baidu.com/baidu?tn=loosen&word="&objRS("stationname")&""" target=_blank><font color=""#0066FF"">点击搜索**更多关于“"&objRS("stationname")&"”的信息……</font></a>")
	Response.Write("<P class=s1><b>联系信息：</b> <br>")
		 if objRS("stationurl")<>"http://" then
	 Response.Write("网站网址：<a href="& objRS("stationurl") &" target=_blank>"&objRS("stationurl")&"</a>")
	 Response.Write("<br>")
	 end if
		Response.Write("联系地址："&objRS("whopost"))
	Response.Write("<br>所在区域："&objRS("infoqy"))
	Response.Write("<br>联系人："&objRS("infoname"))
	Response.Write("<br>")
	Response.Write("联系电话："&objRS("sitearea"))
	Response.Write("<br>")
	if session("txtId")="" then
'		Response.Write("联系电话：<a href='user/' target=_blank ><font color='#999999'>登录查看</font></a>")
'	Response.Write("<br>")
    Response.Write("E_mail：<font color='#999999'>为避免垃圾邮件，您需要<a href='user/' target=_blank >登录广州城市信息网</a>才可以查看邮件</font>")
    Response.Write("<a href='user/Register_1.asp' target=_blank >未注册用户请点击>></a>")
	  end if
      if session("txtId")<>"" then
'	Response.Write("联系电话："&objRS("sitearea"))
'	Response.Write("<br>")
	Response.Write("E_mail："&objRS("email"))
	end if
	Response.Write("</td></tr></table>")
	Response.Write("<br><b>相关图片</b>")
	if objRS("logo")<>"" then
	Response.Write("<br><img src="&objRS("logo")&">")
	else
	Response.Write(":无<p>")
	end if
	objRS.MoveNext()
next
%>
            <%
'//////////////////////////////////////////////  记录下这次浏览  ////////////////////////////////////
id	= Request.QueryString("id")
if Trim(id) <> "" and IsNumeric(id) then
	Set objRS = Server.CreateObject("ADODB.RecordSet")
	sql = "select * from stationinfo where id = " & id
	objRS.Open sql, objConn, 3, 3
	if not objRS.EOF then
		objRS("visitcount").value = objRS("visitcount").value + 1
		objRS.Update()
	end if
	objRS.Close()
	Set objRS = nothing
end if
%>
            <%
objConn.Close()
Set objRS = nothing
Set objRS_path = nothing
Set objConn = nothing
%>
          </td>
        </tr>
      </table>
      <table width="680" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FF0000">
        <tr> 
          <td bgcolor="#FFFFFF">(本条信息的合法性和真实性由分类信息发布者负责。<a href="law.asp" target="_blank">&gt;&gt;详细说明点这里</a>) 
            <br>
            <font color="#FF0000"><strong>不良信息举报</strong></font>：给管理员发邮件</td>
        </tr>
      </table>
      
    <p>&nbsp;</p></td>
    <td width="217" align="right" valign="top"><br>
    </td>
  </tr>
</table>
<!--#include file="buttom.asp" -->
</body> 
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -