<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'信息浏览参数调用文件
dim bbaction,strword
strword=""
bbaction=changechr(request("action"))
id=RtnReplaceInt(request("id"),0)
Select case bbaction
  	Case "hits"'信息浏览次数
set rs=conn.execute("select Hits From Dat_Information Where InfoKey = "&id&"")
if not rs.eof then
strword=rs(0)
else
strword="error"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
 	Case "gqtime"'过期时间
set rs=conn.execute("select InfoDate,CreateTime From Dat_Information Where InfoKey = "&id&"")
if not rs.eof then
yxq=rs(0)
fbsj=FormatTime(rs(1),8)
dqsj=DateAdd( "d" ,yxq ,fbsj)
sysj=DateDiff ("d",date(),dqsj)
if sysj<0 then
strword="<font color=#808080>过期</font>"
else
strword="<font color=#ff0000>"&sysj&"</font>&nbsp;天"
end if
else
strword="error"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
	Case "hf"'信息留言数量
set rs=conn.execute("select hf From Dat_Information Where InfoKey = "&id&"")
if not rs.eof then
strword=rs(0)
else
strword="error"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
 	Case "addhits"'过期时间
sqlUpdateInfoHits = "Update Dat_Information Set Hits = Hits + 1 Where InfoKey = "&id
Conn.Execute sqlUpdateInfoHits
End Select
%>
document.write("<%=strword%>");