不是我做的一个留言板
源代码在线查看： photo_brow.asp
y=""
call mon(y)
photoid=request.QueryString("id")
yes3000_uesr=Session(s_name)
set rs=server.CreateObject("adodb.recordset")
strsql="select * from photo where photoid="&photoid
set rs=conn.execute(strsql)
msg_text="photo_msg"
photo_url=rs("photoname")
on_web=L_CLASS_photolook&formPath&"/"&photo_url&L_CLASS_photo3
RESPONSE.WRITE ""
RESPONSE.WRITE ":::"&trim(rs("phototitle"))&":::"
%>
RESPONSE.WRITE ""
RESPONSE.WRITE ""
%>
RESPONSE.WRITE ""&L_CLASS_photo_text&"："&trim(rs("photocomment"))
RESPONSE.WRITE ""&L_CLASS_UPUSER&"："&trim(rs("photouser"))&" "
RESPONSE.WRITE L_CLASS_UPtime&"："&trim(rs("phototime"))
RESPONSE.WRITE "【"&L_CLASS_backPhoto&"】"
RESPONSE.WRITE ""
%>
(
）
msg_sql="select * from photo_msg where photo_id='"&photoid&"' order by msg_time"
set photo_msg_rs=conn.execute(msg_sql)
do while not photo_msg_rs.eof
addtime=year(photo_msg_rs("msg_time"))&L_CLASS_year&month(photo_msg_rs("msg_time"))&L_CLASS_month&day(photo_msg_rs("msg_time"))&L_CLASS_day& vbCrLf &hour(photo_msg_rs("msg_time"))&":"&minute(photo_msg_rs("msg_time"))&":"&second(photo_msg_rs("msg_time"))
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""&L_CLASS_pmsguser&"："
RESPONSE.WRITE ""
RESPONSE.WRITE " RESPONSE.WRITE ",height="&win_h&",left="&win_left&",top="&win_top&"')>"
RESPONSE.WRITE photo_msg_rs("msg_user")&""
RESPONSE.WRITE " "&L_CLASS_msgtime&"："&addtime
RESPONSE.WRITE ""&L_CLASS_pmsgtest&"："&ubbcode(photo_msg_rs("photo_text"))
RESPONSE.WRITE ""
if photo_msg_rs("msg_user")=session_cookie_name or session_cookie_group>2 then
%>
RESPONSE.WRITE L_CLASSi_pMsgEDEL1
%>")'>
RESPONSE.WRITE ""
end if
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE ""
photo_msg_rs.movenext
loop
photo_msg_rs.close
set photo_msg_rs=nothing
msg_mon_id="1"
%>
【】
