showmsg.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="Setup.asp" -->
<!--#include file="WoLib/Function.asp"-->
<!--#include file="WoLib/Cls_Class2.asp"-->
<!--#include file="WoLib/Cls_Class.asp"-->
<%
HtmlTop
%>
<%
Dim Default
set Default = New Cls_Default
set ShowMsg = New Cls_ShowMsg2	
	Msg_ID = Request("Msg_ID")
	if Msg_ID = "" or IsNumerIC(Msg_ID)=false then
		Response.Redirect("Default.asp")
	end if
	Set Rs_Msg = Server.CreateObject("adodb.recordset")
	Sql = "Select * from Wo_Message Where Msg_IsOver=false and Msg_ID="&Msg_ID
	Rs_Msg.open sql,conn
	if Rs_Msg.eof then
		Call Wodig.MsgBox2("消息不存在或已经被删除！",0,"0")
		Response.End()
	end if	
%>
<title><%=Rs_Msg("Msg_Title")%> - <%=SiteConfig("SiteName")%> </title>
<table width="900"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="700" valign="top"><table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
      <tr id=CommonListTitle3>
        <td>&nbsp;&nbsp;您当前的位置：<a href="jiuoo.asp">首页</a> → 公告 → <% =Server.HTMLEncode(Rs_Msg("Msg_Title")) %></td>
      </tr>
      <tr id=CommonListCell>
        <td>
		  <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="40" class="postbg1"><span class="postfont20">
                <% =Server.HTMLEncode(Rs_Msg("Msg_Title")) %>
              </span></td>
            </tr>
          </table>
		  <table width="98%"  border="0" align="center" cellpadding="4" cellspacing="0" style="padding-left:5px;TABLE-LAYOUT:fixed;">
            <tr>
              <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><%Call ShowMsg.Get_ShowMsg%></td>
                  </tr>
              </table></td>
            </tr>
          </table>
         </td>
      </tr>
    </table></td>
    <td valign="top">
      <table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
        <tr id=CommonListTitle3>
          <td>&nbsp;&nbsp;站点公告.</td>
        </tr>
        <tr id=CommonListCell>
          <td>
		  <%Call Default.Get_Msgs %>
          </td>
        </tr>
      </table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
  <tr> <td></td> </tr>
</table>
<table width="99%"  border="0" cellspacing="1" cellpadding="0"  id=CommonListArea>
        <tr id=CommonListTitle3>
          <td>&nbsp;</td>
        </tr>
        <tr id=CommonListCell>
          <td height="289"><br>120X240广告位
</td></tr>
</table></td> </tr></table>
<%
HtmlBottom
%>