<!--#include file="heade.asp"-->
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<!--#include file="../inc/classcount.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="js/common.js"></script>
<script>
function checkComment(thisform)  {
    if(thisform.pjrname.value.length<3) {
        alert("请输入登录名，谢谢！");
        return false;
    }
    if(thisform.pjremail.value.length<3) {
        alert("请输入电子邮箱，谢谢！");
        return false;
    }
	var str1 = document.form.pjremail.value
if(str1.indexOf("@") == -1 || str1.indexOf(".") == -1){ 
alert("E-mail格式不正确,请重新填写！"); 
document.form.pjremail.focus();
document.form.pjremail.select();
return false; 
}
    if(thisform.pj_name.value.length<3) {
        alert("请把评论的标题稍微写长一些，谢谢！");
        return false;
    }
    if(thisform.pj_count.value.length<3) {
        alert("请把评论的内容稍微写长一些，谢谢！");
        return false;
    }
}
</script>
<%
on error resume next
dim newsid
dim hits
if Chkrequest(request("newsid")) then
newsid=request("newsid")
else
Response.Redirect ("../login/chklogin.asp?login=4")
end if
hits=replace(trim(request("hits")),"'","''")


conn.execute("update news set hits=hits+1 where newsid="&newsid&"")

%>
<%
sql="select news.*,newstype.type from news,newstype where newsid="&newsid&" and news.typeid=newstype.typeid order by news.newsID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
newstype=rs("typename")
typeid=rs("typeid")
showContent
rs.close 
set rs=nothing
sub showContent
%>
<br>
<table width=750 border=0 align="center" cellPadding=0 cellSpacing=0 class=outborder>
  <tr>
    <td width="88" height=59 align="right" valign="top" class=searchbar><a href="index.asp"><img src="images/club_logo.gif" width="88" height="51" border="0"></a></td>
    <td valign="top" class=searchbar>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr align="center">
          <td height="22" colspan="3" valign="middle" class="S"> <a href="index.asp" class="black">首页</a> | <a href="indexpro.asp?typeid=7" class="black">贸易</a> | <a href="indexpro.asp?typeid=8" class="black">创业</a> | <a href="indexpro.asp?typeid=9" class="black">诚信</a> | <a href="indexpro.asp?typeid=10" class="black">管理</a> | <a href="indexpro.asp?typeid=22" class="black">化工</a> | <a href="indexpro.asp?typeid=23" class="black">农业</a> | <a href="indexpro.asp?typeid=24" class="black">冶金</a> | <a href="indexpro.asp?typeid=1" class="black">机械</a> | <a href="indexpro.asp?typeid=25" class="black">纺织</a> | <a href="indexpro.asp?typeid=26" class="black">服饰</a> | <a href="indexpro.asp?typeid=27" class="black">食品</a> | <a href="indexpro.asp?typeid=28" class="black">轻工</a> | <a href="indexpro.asp?typeid=29" class="black">电子</a> | <a href="indexpro.asp?typeid=30" class="black">家电</a> | <a href="indexpro.asp?typeid=35" class="black"><font class="black">医药</font></a> </td>
        </tr>
        <tr>
          <FORM action="indexpro.asp" name=search_form onsubmit="javascript:if(doSearch()==false) return false;" method=post>
            <td width=125 height="25"  valign="bottom" background="images/title.gif">&nbsp;<font class=HEADWHITE>
              <%if typeid="0" then response.write"所有信息" else response.write""&newstype&"资讯" end if%>
            </font></td>
            <td width="391" class="S1">&nbsp;&nbsp;
                <input name=txtitle size=25>
  &nbsp;&nbsp;
                <select name="typeid" size="1" class=f11>
                  <%dim rs2,sql2,sel
set rs2=server.createobject("adodb.recordset")
sql2="select * from newstype"
rs2.open sql2,conn,1,1
do while not rs2.eof
sel="selected" 
response.write "<option " & sel & " value="&rs2("typeID")&" name=typeid>"+rs2("type")+"</option>"+chr(13)+chr(10)
rs2.movenext
loop
rs2.close
%>
                  <option selected value="0">全部</option>
                </select>
  &nbsp;&nbsp;
                <input 
name=I9 type=image src="../images/serch.gif" align=top width="65" height="22" border=0 >
            </td>
            <td width="138" class="S1" align="left"><img src="images/club_index_22.gif" width="18" height="19" align="absmiddle"> <a href="/search.asp" target="_blank" class="c black">高级搜索</a></td>
          </FORM>
        </tr>
    </table></td>
  </tr>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="84%" height="22" align="left" class="S" style="background-repeat:repeat-y">　<img src="images/home.gif" align="absmiddle" width="14" height="14"> <a href="/info/index.asp">资讯首页</a> &gt;&gt; <%if typeid="0" then response.write"所有咨讯信息" else response.write"<a href='indexpro.asp?typeid="&typeid&"'>"&newstype&"资讯</a>" end if%> &gt;&gt; <%if typeid="0" then response.write"查看所有资讯信息" else response.write"查看"&newstype&"资讯信息" end if%> </td>
    <td width="16%" align="center" class="S" style="background-repeat:repeat-y"><img src="images/dingyue.gif" width="32" height="17" align="absmiddle"><a href=/member/myemail/orderbegin.asp target="_blank">商机资讯订阅</a></td>
  </tr>
</table>
<br>
<table background="images/bg_hhb.gif"  border=0 cellpadding=0 cellspacing=0 height=1 width=750 align="center">
  <tr>
    <td align="left"><img height=1 src="images/bg_hhb.gif" width="4" ></td>
  </tr>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="565" align="center" valign="top" bgcolor="#F1F1F1">
      <table width="93%" border="0" cellspacing="0" cellpadding="0"><br>
        <tr>
          <td width="100%" colspan="2" align="center" class="redbarword"><strong><%=rs("title")%></strong></td>
        </tr>
        <tr>
          <td colspan="2"><HR SIZE=1 bgcolor="#d9d9d9"></td>
        </tr>
        <tr>
          <td colspan="2" align="center" class="S">（时间:<%=rs("dateandtime")%>&nbsp;&nbsp;共有<strong><%=rs("hits")%></strong>人次浏览）</td>
        </tr>
        <tr>
          <td colspan="2" align="left">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="2" align="left" class="lh15"><%if rs("selectpic")=0 then%>
<%=rs("content")%>　　
          </td>
        </tr>
        <tr>
          <td colspan="2" align="left" class="lh15"><%else%>
            <table border=0 cellspacing=0 cellpadding=0 align=right>
              <tr>
                <td> <img hspace=5 vspace=5 src="pic/<%=rs("picurl")%>" width=250 height=250 border=1 style="border-color:#000000" onload="javascript:drawImage(this,250,250);"> </td>
              </tr>
            </table>
<%=rs("content")%>
          </td><%end if%>
        </tr>
        <tr>
          <td colspan="2">
            <br>
            <br>
            <table border=0 cellpadding=5 cellspacing=0 width="100%">
              <tr>
                <td align="right"class=s>【<a href="#pl">我要评论</a>】&nbsp;【<a href="sendfriend.asp?newsid=<%=rs("newsid")%>" target="_blank">推荐给朋友</a>】&nbsp;【编辑: <a href="<%=weburl%>"> <%=webname%>信息中心</a>】&nbsp;【<a href="javascript:window.close()">关闭窗口</a>】</td>
              </tr>
          </table>
		  <%
end sub
%>		  </td>
        </tr>
        <tr>
          <td align="right" height="35"> <div align="left"><span class="S"><font color=#3D362B>本信息真实性未经<%=webname%>证实，仅供您参考。未经许可，不得转载。</font></span> </div></td>
          <td align="right"><img src="images/icon_print1.gif" alt=打印 width="24" height="18" align="absmiddle"> <a href="javascript: window.print();"><strong>打印该页</strong></a>&nbsp;&nbsp;</td>
        </tr>
		<tr><td height="5"></td><td></td>
		</tr>
        <!--相关资讯开始-->
        <tr>
          <td colspan="2">
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class=buttonbar>
              <tr>
                <td width="98%" align="left" class="lh15">
                  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="71%"><SPAN class=HEAD>相关资讯</span></td>
                      <td width="29%" align="right"><img src="images/icon_point_black_16.gif" width="16" height="16" align="top"> <a href="indexpro.asp?typeid=<%=typeid%>" style="color: #FFFFFF" class=s>更多资讯</a>&nbsp;&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <table border=0 cellpadding=1 cellspacing=0 width="100%">
              <tr bgcolor=#B4B4B4>
                <td>
                  <table bgcolor=#F6F6F6 border=0 cellpadding=3 cellspacing=0 width="100%">
                    <tr>
                      <td align="left" class="lh15"> <%sql="select top 6 * from news where typeid="&typeid&" order by NewsID Desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
			if rs.eof then
			response.write" 暂无此栏目相关资讯"
			else
			do while not rs.eof
			response.write"·<a href='shownews.asp?newsid="&rs("newsid")&"'>"&rs("title")&" ("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</a><br>"
			rs.movenext
			loop
			end if%>
                      </td>
                    </tr>
                </table></td>
              </tr>
          </table>
            <br>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class=buttonbar>
              <tr>
                <td width="90%"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="71%"><SPAN class=HEAD><a name="pl"></a>发表评论</span></td>
                      <td width="29%" align="right"><img src="images/icon_point_black_16.gif" width="16" height="16" align="top"> <a href="indexpro.asp?typeid=<%=typeid%>" style="color: #FFFFFF" class=s>查看精彩评论 <b><%=news_com%></b> 条</a>&nbsp;&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<form name="form" method="post" action="news_guestok.asp" onsubmit="return checkComment(this)" target=_blank>
<input type=hidden name=bpjid value="<%=newsid%>">
  <tr>
    <td align="center" bgcolor="F1F1F1">
        <table width="98%" border="0" cellpadding="3" cellspacing="0">
        <tr align="right"> 
          <td colspan="3" class="listtopwd">（带<font color="#FF3300">*</font>号为必填项）</td>
        </tr>
                <tr> 
          <td width="15%">登陆名：</td>
          <td width="0%" valign="top" class="S"><font color="#FF3300">*</font></td>
          <td width="86%"> <input name="pjrname" type="text" id="pjrname" value="" size="20">
            Email： 
            <input name="pjremail" type="text" id="pjremail" value="" size="20">
            </td>
        </tr>
                <tr> 
          <td>标　题：</td>
          <td valign="top" class="S"><font color="#FF3300">*</font></td>
          <td> <input name="pj_name" type="text" id="pj_name" size="60"></td>
        </tr>
        <tr> 
          <td valign="top">内　容：</td>
          <td valign="top" class="S"><font color="#FF3300">*</font></td>
          <td valign="top" style="line-height:120%"> <textarea name="pj_count" cols="55" rows="12" id="pj_count"></textarea>
            <span class=listtopwd> <br>
            <b> 发表评论须知：</b><br>
            一、所发文章必须遵守《互联网电子公告服务管理规定》；<br>
            二、严禁发布供求代理信息、公司介绍、产品信息等广告宣传信息；<br>
            三、严禁对个人、实体、民族、国家等进行漫骂、污蔑、诽谤。 </span></td>
        </tr>
        <tr align="center"> 
          <td height="41" colspan="3"> <input type="submit" name="Submit" value=" (发表评论须知)  提 交  ">
            　
            <input type="reset" name="button" value="　重 写　"></td>
        </tr>
      </table>
    </td>
  </tr>
</form>
</table>			<br></td>
        </tr>
    </table></td>
    <td width="15" valign="top">&nbsp;</td>
    <td align="right" valign="top">
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class=buttonbar>
        <tr>
          <td width="90%"><SPAN class=HEAD>最新资讯</span></td>
        </tr>
      </table>
      <table border=0 cellpadding=1 cellspacing=0 width="100%">
        <tr bgcolor=#B4B4B4>
          <td>
            <table bgcolor=#F6F6F6 border=0 cellpadding=3 cellspacing=0 width="100%">
              <tr>
                <td align="left" class="lh13"><%sql="select top 25 * from news where wzgg=0 and dateandtime>=getdate()-1 order by NewsID Desc"
			Set rs= Server.CreateObject("ADODB.Recordset") 
            rs.open sql,conn,1,1
			if rs.eof then
			response.write"今日暂无资讯更新"
			else
			do while not rs.eof
			response.write"·<a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='s'>"&rs("title")&"</a><br>"
			rs.movenext
			loop
			end if%></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <br>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 class=buttonbar>
        <TBODY>
          <TR>
            <TD width="90%"><SPAN class=HEAD>热门资讯</span></TD>
          </TR>
        </TBODY>
      </TABLE>
      <TABLE cellSpacing=0 cellPadding=1 width="100%" border=0>
        <TR bgColor=#B4B4B4>
          <TD>
            <TABLE cellSpacing=0 cellPadding=3 width="100%" bgColor=#F6F6F6  border=0>
              <TR>
                <TD align=left valign="top" class=lh13>
                  <%sql="select top 30 * from news order by hits Desc"
			Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
			do while not rs.eof
			response.write"·<a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='s'>"&left(rs("title"),16)&"</a><br>"
			rs.movenext
			loop
			%></TD>
              </TR>
          </TABLE></TD>
        </TR>
      </TABLE>
    </td>
  </tr>
</table>
<!--#include file="../inc/end.asp"-->