primsg_open.asp

来自「不是我做的一个留言板」· ASP 代码 · 共 59 行

<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<!--#include file="../function/function.asp" -->

<%
web_id="../language/"&l_id
web_id=web_id&"/USER_ADMIN.ASP"
call include(web_id)
on_web=L_PRIMSG_onweb0
primsgid=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
strsql="select * from primsg where primsgid="&primsgid
rs.open strsql,conn,1,3
if rs("primsgtype")=1 then 
    up_money=cint(momey_inof) - openpri_money
        update_user=session_cookie_name
        call up_money_f(up_money,update_user)
	rs("primsgtype")=2
	rs.update
end if
%>
<center>

<table width="100%" bgcolor='<%=tr_bg_color%>' border="1" cellpadding="3" cellspacing="0">
<tr>  
  <tr>
  <td bgcolor=<%=tr_bg_color%> align="center">     
<%=L_PRIMSG_TITLE%>：<%=rs("primsgtitle")%>
  </td>
  </tr>
  <tr style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">  
    
    <td>
<%
if table_bg_color="#ffffff" then
font_color="000000"
end if
if table_bg_color="#000000" then
font_color="ffffff"

end if

%>&nbsp;
   <font color='<%=font_color%>'>  
     <%=trim(rs("primsgcontent"))%>       
       </font>
      </td> 
  </tr> 
   <tr>  
    <td colspan="3" bgcolor="<%=list_bg_color%>" align=center> 

 <a href="javascript:window.close()">[<%=L_PRIMSG_close%>]</a>
&nbsp;&nbsp;&nbsp;&nbsp;
<a href=primsgsend.asp?re_primsg=1&id=<%=rs("primsgsender")%>>[<%=L_PRIMSG_rePRIMG%>]</a></td>     
  </tr>     
</table>     
     
</center>