<%if rs("image")=1 then%>
<%else
if rs("image")=0 then%>
<%end if%>
<%end if%> |
作者： |
<%=rs("name")%> |
来自：
<%
str="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("#info.mdb")
set conn1=server.CreateObject("adodb.connection")
conn1.open str
set rs1=server.CreateObject("adodb.recordset")
if rs("ip")<>"" then
nowip=cip(rs("ip"))
sql="select * from ip where startid<=" &nowip & " and endid>=" & nowip
rs1.open sql,conn1,1,3
if rs1.EOF then
where="未知"
else
where=rs1("country")
end if
end if%> |
<%
if rs("ip")<>"" then response.Write where
%>
|
|
 |
主题 |
|
<%=rs("title")%> |
|
留言内容 |
|
<%
if rs("body")<>"" then
response.write replace(rs("body"),chr(13)+chr(10),"
")
end if
%>
[ <%=rs("date")%> ] |
|
回复内容 |
|
<%
set rs1=server.createobject("adodb.recordset")
sql="select * from repmessage where mes_id="&rs("id")
rs1.open sql,conn,1,1
if not rs1.eof then
%>
<%if rs1("rep_body")<>"" then response.write replace(rs1("rep_body"),chr(13)+chr(10),"
")%>
[ <%=rs1("date")%> ]
<%
end if
%> |
