news.asp

商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会

<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<!-- #include file="init.inc" -->
<%
if (Session("userqx")>="1" and Session("userqx")<="9")  or Session("userflag")>="1" then
else
	Response.End
end if		
myurl="news.asp?x=1"

classcode=Request.QueryString("classcode")
keyno=Request.QueryString("keyno")

set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
bz=1

%>
<!-- #include file="begin.asp" -->  

<%if bz=1 then%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10"></td>
  </tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td align="center"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="30">
              <tr> 
                <td width="20">&nbsp;</td>
                <td>欢迎光临<%=forumtitle%></td>
                <td width="10">&nbsp;</td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="30"  bgcolor="<%=barcolor%>">
              <tr> 
                <td width="10">&nbsp;</td>
                <td width=30 align=center><img src="images/homeflag.gif"></td>
                <%if classflag="1" then%>
                <td><a href="forum.asp"><%=forumtitle%></a>  &gt; 用户登录  </td>
                <%else%>
                <td><a href="forum_list.asp"><%=forumtitle%></a> &gt; 用户登录  </td>
                <%end if%>
                <td width="100" align="right"></td>
                <td width="10">&nbsp;</td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td height="6"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr bgcolor="<%=titlebgcolor%>"> 
				<td height="26" width=30></td>
				<%
				sql="select classcode,classname from miscell_class where basclass='600' and flag='0' order by sortnum"
				rs.Open sql,cn,1,1
				do while not rs.EOF
					if classcode="" then classcode=rs(0)
					if classcode=rs(0) then
						classname=trim(rs(1))
					end if	
				%>
                <td width=80 align="center"><b><a href="news.asp?classcode=<%=rs(0)%>" class=a01><font color=<%=titlecolor%>><%=trim(rs(1))%></font></a></b></td>
               <%
					rs.MoveNext
                loop
                rs.Close
               %> 
                <td>&nbsp;</td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td height="6"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr bgcolor="<%=titlebgcolor%>"> 
				<td height="26" width=10></td>
                <td align="left"><b><font color=<%=titlecolor%>><%=classname%></font></b></td>
                <td>&nbsp;</td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
				<tr bgcolor="#ffffff"> 
					<td height=400 valign=top width=220>&nbsp;
						<table width="98%" border="0" cellspacing="0" cellpadding="2" align="center">
							<%
							sql="select keyno,title from miscell where state='1' and classcode='"+classcode+"' order by sortnum desc"
							rs.Open sql,cn,1,1
							do while not rs.EOF
								if keyno="" then keyno=rs(0)
							%>
							<tr><td height=24 align=left> · <a href="news.asp?keyno=<%=rs(0)%>"><%=trim(rs("title"))%></a></td></tr>
							<%
								rs.MoveNext
							loop
							rs.Close
							%>
						</table>	
					</td>
<%
if keyno<>"" then					
sqltext="select * from miscell where state='1' and keyno="&keyno
rs.Open sqltext,cn,1,3
if not rs.EOF then
	title=trim(rs("title"))
	sortnum=rs("sortnum")
	content=trim(rs("content"))
	classcode=rs("classcode")
	picflag=rs("picflag")
	picflag2=rs("picflag2")
	flag=rs("flag")
	website=trim(rs("website"))
	basclass=rs("basclass")
	creadate=rs("creadate")
	rs("querycount")=rs("querycount")+1
	picalign=trim(rs("picalign"))
	infocount=rs("infocount")
	rs.Update
else
	Response.End	
end if
rs.Close
end if
%>

					<td valign=top>
						<table width="96%" border="0" cellspacing="0" cellpadding="2" align="center">
						   <tr><td height=10></td></tr>  	
						   <tr><td height=30 align=center style="color:ff4500;font-size:16px;font-weight:bold"><%=title%></td></tr>
						   <tr><td height=5></td></tr>  	
						   <tr><td height=1 bgcolor=cccccc></td></tr>  	
						   <tr><td height=10></td></tr>  	
						   <tr><td style="line-height:180%" valign=top>
								<!-- #include file="inc_content.asp" -->
						   </td></tr>
						 </table>  	
					</td>
				</tr>
	        </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td height="15"></td>
              </tr>
            </table>
		  </td>
		</tr>	
 	 </table>
	</td>
  </tr>	
</table>
<!-- #include file="end.asp" -->
<!-- #include file="func.inc" -->

<script language=Javascript>


	function editfile(keyno)
	{
		var str
		str="file_upload.asp?" ;
		str=str+"keyno="+keyno+"&tablename=userinfo&keyword=userno&picsize=90000&ref=1"
		window.open(str,"mywin","toolbar=no,location=no,directories=no,status=no,resizable=no,menubar=no,scrollbars=yes,width=550,height=400,left=120,top=70")		
	}
	
</script>
<%end if%>