📄 information.asp

📁 商务网站,信息分类,可以搜索加上ACCESS数据库
💻 ASP
字号:
<%Option Explicit%>
<!--#include file=2008admin/config.asp-->
<!--#include file="con-the-hhlong.asp"-->
<!--#include file=functions.asp-->

<%
dim sql,objRS,objRS_path
dim ID,tttt
dim i
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>分类信息最终内容页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="happycss.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<!--#include file="include-top.htm" -->
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" background="2008images/bg.gif">
  <tr> 
    <td width="186" height="460" valign="top">&nbsp; </td>
    <td width="764" valign="top"> <br>
      <table width="620" 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("</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><a href=http://www.companys.cn><img src=companys.gif width=1 height=1 border=0></a>"&objRS("siteabout"))
	Response.Write("<br><b>公司名称：</b>"&objRS("sitename"))
	Response.Write("<hr size=1><p><b>联系信息</b></p><P class=s1>")
	Response.Write("网站网址：<a href="& objRS("stationurl") &" target=_blank>"&objRS("stationurl")&"</a>")
	Response.Write("<br>")
	Response.Write("联系电话："&objRS("sitearea"))
	Response.Write("<br>")
	Response.Write("联系地址："&objRS("whopost"))
	Response.Write("<br>所在区域："&objRS("infoqy"))
	Response.Write("<br>联系人："&objRS("infoname"))
	Response.Write("<br>")
	Response.Write("E_mail："&objRS("email"))
	Response.Write("</td></tr></table>")
	
	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>
      </td>
  </tr>
</table>
<!--#include file="buttom.asp" -->
</body> 
</HTML>
⌨️ 快捷键说明

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