viewinfo.asp

欢迎使用酷航设计系统

<!--#include file="ku_top.asp" -->
<%sub navigation()%>
    &gt;&gt; 信息浏览
<%end sub%>
<script language="javascript">
function Ew_openScript(url, width, height){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=no,menubar=no,status=no' );
}
</script>
<%
   	dim sql
   	dim rs
   	dim rstype
   	dim typesql
   	dim title

ID=CheckStr(Request.QueryString("ID")) 
If isInt(ID)=False OR Not IsNumeric(ID) Then
Response.Redirect "index.asp" 
Response.End()
End If
	
	set rs=server.createobject("adodb.recordset")
	sql="update Info set hits=hits+1 where ID="&ID&""
	rs.open sql,conn,1,3 
%> 
<%
sqla="select * from Info where ID="&ID&""
Set Rsa=conn.execute (sqla)
if rsa.eof and rsa.bof then
response.Redirect("index.asp")
end if
ClassID=Rsa("Sort2")
SortID=Rsa("Sort1")

if ClassID<>0 then

sqlc="select * from Sort where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
if rsc.eof and rsc.bof then
response.Redirect("index.asp")
end if
Classname=Rsc("names")
B_ID=Rsc("B_ID")

sqls="select * from Sort where ID="&B_ID&""
Set Rss=conn.execute (sqls)
if Rss.eof and Rss.bof then
response.Redirect("index.asp")
end if
SortName=Rss("names")

end if

if ClassID=0 then
sqls="select * from Sort where ID="&SortID&""
Set Rss=conn.execute (sqls)
SortName=Rss("names")
end if
'Info=RsS("Info")
'Title = SortName & " >> " & Classname
%>
<TABLE width=800 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
        <TR> 
          <TD width="100%"> <TABLE cellSpacing=0 cellPadding=0 width=800 align=center border=0>
              <TBODY>
                <TR bgColor=#ffffff> 
                  <TD colSpan=3 height=2></TD>
                </TR>

              </TBODY>
            </TABLE>
            
      </TD>
    </TR></TBODY></TABLE>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" >
  <tr>
<td>
<%
set rs=server.createobject("adodb.recordset")
ID=request("id")
IF ID = "" OR Not IsNumeric(ID) Then
	Response.Redirect("Index.asp")
	Response.End
End IF
sqltext="select top 1 * from Info where Id="&ID&""
rs.open sqltext,conn,1,1
InfoID=rs("Id")
Discussion=rs("Discussion")
Title=rs("Title")
%>
<div align="center">
<table border="0" width="800" height="28" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0">
	<tr>
		<td height="28" width="800" background="xbqq_img/kind1.gif">
		
		<p align="center"><b><%=title%></b></td>
	</tr>
</table>

       </div>
<div align="center">
<table border="0" width="800" height="107" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0">
	<tr>
		<td height="107" width="778">
		<%

Call ReadContent()
Call Discu()


 %>
		</td>
	</tr>
</table>

       </div>

       </td>           
  </tr>
</table>
<!--#include file="xbqq_Foot.asp" -->
</body></html>

<% sub ReadContent()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr> 
<td><div align="center"> 添加：<%=rs("date")%>&nbsp;&nbsp; 作者： 
<%if not isnull(rs("writer")) then%>
<%=rs("writer")%> 
<%else%>
未知 
<%end if%>
&nbsp;&nbsp;来源： 
<%if not isnull(rs("writefrom")) then%>
<%=rs("writefrom")%> 
<%else%>
未知 
<%end if%>
&nbsp;&nbsp;录入：<font color="#FF0000"><%=rs("author")%></font> 人气：<font color="#FF0000"><%=rs("hits")%></font> 
</div></td>
 </tr>
</table>
<hr size="1" width="98%">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="4" style="word-break:break-all" oncopy="return false;" oncut="return false;">
<tr> 
<td width="100%" height="54" style="word-break:break-all">
<%=RS("content")%>
</td>
</tr>
</table>
<% end sub %>
<% sub ReadErro()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="32">
<div align="center"><font color="#FF0000">您的浏览权限不够！</font><br>
        这条信息要
<font color=red><%if rs("ReadGrade")=1 then%> 
注册用户
<%end if%>
<%if rs("ReadGrade")=2 then%> 
 VIP 用户
<%end if%>
</font>
才能游览！
</div></td>
</tr>
</table>
<% end sub %>

<%
sub Discu()
if Discussion=true  then
%>

                  
<TABLE width="100%" border=0 align=center cellPadding=0 cellSpacing=0 background="../../EngineWenDay/Img/Ew_Bg.gif">
  <TBODY>
                    <TR> 
                      
      <TD width="45" height=34 align="right">　</TD>
      <TD width="832" align="right"> 
        <div align="left"><font color="#FF0000">相关评论</font></div></TD>
                      
      <TD width="108" align="right"><a href="Review.asp?InfoID=<%=InfoID%>">More...</a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                  
                <table width="100%" border="0" cellspacing="0" cellpadding="5">
                  <form name="form1" method="post" action="Review.asp?Action=save"><tr>
                      <td width="45%" height="91" Valign="top">
<%
sqld="select top 3 * from Review where InfoID="&InfoID&" ORDER BY ReTime DESC"
Set rs2=Conn.execute(sqld)
if rs2.bof and rs2.eof then 
response.Write("暂无评论！")
end if 
do while not rs2.eof    
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" style="word-break:break-all">
                          <tr> 
                            <td height="21" colspan="2"><font color="#FF0000">网友</font>：<%=rs2("Reply")%>&nbsp;&nbsp;<font color="#FF0000">Email</font>:<a href="mailto:<%=rs2("UserEmail")%>"><%=rs2("UserEmail")%></a> </td>
                          </tr>
                          <tr> 
                            <td height="21" colspan="2"><font color="#FF0000">评论</font>：<%=rs2("Content")%></td>
                          </tr>
                          <tr>
                            <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
                          </tr>
                        </table>
<%       
rs2.movenext             
loop
%>
</td>
<td width="55%" Valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td height="21" colspan="3">
							
<div align="center">欢迎大家发表自己的高见！（<font color="#FF0000">不支持HTML</font>）<input name="InfoID" type="Hidden" value="<%=InfoID%>"><input name="Title" type="Hidden" value="<%=Title%>">
                              </div></td>
                          </tr>
                          <tr> 
                            <td width="14%" height="23"> <div align="right">网名： 
                              </div></td>
                            <td width="27%" height="23"> <input name="Reply" type="text" id="Reply" value="<%=Session("Pw_Sys_User")%>" size="8" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(0,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid"></td>
                            <td width="59%">邮件： 
                              <input name="UserEmail" type="text" id="UserEmail" value="<%=Session("UserEmail")%>" size="18" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(0,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid"></td>
                          </tr>
                          <tr> 
                            <td height="23"> <div align="right">评论：</div></td>
                            <td height="23" colspan="2"> <textarea name="Content" cols="35" rows="4" id="Content"></textarea></td>
                          </tr>
                          <tr> 
                            <td height="23"> <div align="right">发表：</div></td>
                            <td height="23" colspan="2"> <input type="submit" name="Submit" value=" 提交 "> 
                              &nbsp;&nbsp; <input name="Reset" type="reset" id="Reset" value=" 重来 ">
                            </td>
                          </tr>
                        </table></td>
                    </tr> </form>
                  </table>
<% end if %>
<% end sub %>