<%@ Language=VBScript %>
<!--#INCLUDE FILE="inc_Conn.asp" -->
<%
Dim strSql,strNewsID,strContent


strNewsID=trim(Request.QueryString("NewsID"))

If strNewsID="" Then strNewsID=0

strSql="Select * from News where NewsID=" & strNewsID
set rs=MyCon.execute(strSql)

If not rs.eof Then
strClick=rs("News_Click")+1
strSql="Update News set News_Click=" & "'" & strClick & "'" 
strSql=strSql & "where NewsID=" & strNewsID
If session("Click")<>rs("NewsID") Then MyCon.execute(strSql)
session("Click")=rs("NewsID")
End If

strSql="Select * from Class order by Class_Desc"
set rs1=MyCon.execute(strSql)
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>
<% If not rs.eof Then %>
<%=rs("News_Title")%>
<% Else %>
出错啦!!!
<% End If %>
</title>
<link rel="stylesheet" href="../css.css" type="text/css">
</head>
<body >

  
<table width="100%" border="0" bgcolor="#cccccc">
  <tr>
      
    <td width="100%" align="left"> &nbsp;<a href="" Class=title1>首页</a><b><font color="#FFFFFF"> 
      |</font></b> 
      <% Do while not rs1.eof %>
      <a href="ListNews.asp?ClassID=<%=rs1("ClassID")%>" Class=title1><%=rs1("Class_Name")%></a> 
      <b><font color="#FFFFFF"> |</font></b> 
      <% rs1.movenext %>
      <% Loop %>
    </td>
    </tr>
  </table>
  
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <!--DWLayoutTable-->
  <tr> 
    <td width="212" height="222" align="left" valign="top" > <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr> 
          <td width="100%" bgcolor="#cccccc"> <form method="POST" action="Search.asp?active=DoIt">
              <table width="98%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#6699FF" bordercolordark="#6699FF" bgcolor="#cccccc">
                <tr> 
                  <td width="100%" bordercolor="#cccccc">标题: <input type="text" name="title" size="20"></td>
                </tr>
                <tr> 
                  <td width="100%" bordercolor="#cccccc">范围: <select size="1" name="Class">
                      <option value="0">所有类别</option>
                      <% rs1.movefirst %>
                      <% Do while not rs1.eof %>
                      <option value="<%=rs1("ClassID")%>"><%=rs1("Class_Name")%></option>
                      <% rs1.movenext %>
                      <% Loop %>
                    </select></td>
                </tr>
                <tr> 
                  <td width="100%" align="center" bordercolor="#cccccc"> <input type="submit" value=" 查 找 " name="search"></td>
                </tr>
              </table>
            </form></td>
        </tr>
        <tr> 
          <td width="100%" bgcolor="#cccccc" align="center"> <div align="left"><br>
              ·　本国度总站发展至今不仅有强大的技术队伍作支撑，还有一支级富经验的管理队伍。本国度的全体工作人员，会以认真的工作态度和严谨的工作作风，给您以最优秀的服务！ 
              <br>
              ·　我们的宗旨是： 用真诚打动玩家，让玩家从内心感到我们的友好和尊敬.让我们一起建设这个充满人情、友情的家吧！！ </div>
            <div align="right"><br>
              <br>
              --非凡国度 </div></td>
        </tr>
      </table></td>
    <td width="21">&nbsp;</td>
    <td width="781" align="left" valign="top"> 
      <% If not rs.eof Then %>
      <br> <div align="center"><b><%=rs("News_Title")%></b></div>
      <br> <div align="center" class="title6"> 作者:<%=rs("News_Author")%>&nbsp;&nbsp;<%=rs("News_Post_Time")%>&nbsp;&nbsp;已读:<%=rs("News_Click")%>次 
      </div>
      <br> 
      <%
        strContent=Replace(trim(rs("News_Content")),chr(13)&chr(10),"<br>",1,-1,1)
        strContent=Replace(strContent," ","&nbsp;",1,-1,1)
        strContent=Replace(strContent,"[image]","",1,-1,1)
        %>
      <div align="left">&nbsp;&nbsp;&nbsp;&nbsp;<%=strContent%></div>
      <% Else %>
      <div align="center"><b>这条帮助信息不存在或者已经被删除!!!</b></div>
      <% End If %>
    </td>
    <td width="5">&nbsp;</td>
  </tr>
</table>

    
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#cccccc">
  <tr>
        <td width="100%" align="right" class="title6">
      <% If not rs.bof Then rs.movefirst %>
      <% Do while not rs.eof %>
      本帮助信息来自:<a href="<%=rs("News_Link")%>" class="title6" target="_blank"><%=rs("News_Freind")%></a>
      <% rs.movenext %>
      <% Loop %>
        </td>
      </tr>
    </table>

</body>

</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
rs1.close
set rs1=nothing
rs.close
set rs=nothing
MyCon.close
set MyCon=nothing
%>