📄 showessence.asp

📁 ASP论坛2000
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!--#include file="conn.inc"-->
<!-- #include file="inc/char.inc" -->
<%

   dim ID
   dim BoardID
   boardID=clng(request("BoardID"))
   ID=Cstr(Request("ID"))
   dim rs
   dim sql
   set rs=server.createobject("adodb.recordset")
   sql="update essence set hits=hits+1 where ID="&cstr(ID)
   rs.open sql,conn,3,3
   sql="select * from essence where id="&cstr(id)
   rs.open sql,conn,1,1   
%>
<html>

<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80">
<meta HTTP-EQUIV="Expires" CONTENT="0">
<link rel="stylesheet" type="text/css" href="forum.css">
<title>论 坛 精 华</title>
</head>

<body>
<%
if rs.eof and rs.bof or not (boardID>0) then
   response.write "<center><P>该贴子的内容找不到</P></center>"
else
   dim UserName
   dim useremail
   dim Topic
   dim Url
   dim body
   dim UrlTitle
   dim dateTimeStr
   dim PicUrl
   dim announceid

   dim FoundError
   dim ErrMsg

   announceid=rs("announceid")
   username=rs("username")
   useremail=rs("useremail")
   topic=rs("topic")
   url=rs("url")
   body=rs("body")
   urltitle=rs("urltitle")
   picurl=rs("urlpic")
   dateTimeStr=rs("dateAndTime")

   response.write "<p align='center'><font color=darkblue><strong>"
   if pwsonchsys then
      showBody Topic
   else
      response.write Server.HTMLEncode(Topic)
   end if
   response.write "</strong></font></p> "+chr(13)+chr(10)
   response.write "<hr size='1'>"+chr(13)+chr(10)
   if Trim(UserEmail)<>"" then 
      response.write "<p> <a href='mailto:"+Server.HTMLEncode(UserEmail)+"'>"
      if pwsonchsys then
	     showBody UserName
	  else
             response.write Server.HTMLEncode(UserName)
	  end if
	  response.write "</a> 于 "+DateTimeStr+" 加贴：</p>"+chr(13)+chr(10)
   else
	  response.write "<p> " 
	  if pwsonchsys then
		showBody UserName
	  else
	  	response.write Server.HTMLEncode(UserName)
	  end if
	  response.write " 于 "+DateTimeStr+" 加贴：</p>"+chr(13)+chr(10)
   end if
   if pwsonchsys then
	  ShowBody(body)
   else
 	  showbody(Server.HTMLEncode(body))
   end if
   response.write "<p><CENTER>"
   if urlTitle<>"" then
      response.write "<a target='_blank' href='"+Server.HTMLEncode(url)+"'>"
	  if pwsonchsys then
		showBody urlTitle
	  else
		response.write server.htmlencode(urltitle)
	  end if
	  response.write "</a><br>"+chr(13)+chr(10)
   elseif url<>"" and url<>"http://" then
	  response.write "<a target='_blank' href='"+Server.HTMLEncode(url)+"'>"+server.htmlencode(url)+"</a><br>"+chr(13)+chr(10)
   end if
   if picurl<>"" and picurl<> "http://" then
      response.write "<img border=0 src='"+server.htmlencode(picurl)+"' >"+chr(13)+chr(10)
   end if
   response.write "</center></p>"   
end if
rs.close
%>
</body>
</html>
⌨️ 快捷键说明

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