share_view.asp

类似于baidu的百度知道

<!--#include file=conn.asp-->
<!--#include file="Function_QT.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="md5.asp"-->
<%
if gx=1 then
if not IsNumeric(request("id")) or request("id")="" then
		Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
		Response.end
	end if
%>
<%if request("id")<>"" then
	id=CLNG(request("id"))
	end if
	rs.open"select * from Share where id="&id,conn,1,1
	if rs.eof then
	Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
	Response.end
	else
	rs2.open"select * from assort where id="&rs("flid")&"",conn,1,1
	shuxing=rs2("shuxing")
	topic2=rs2("topic")
	rs2.close
	rs2.open"select * from class where id="&shuxing&"",conn,1,1
	topic0=rs2("topic")
	id0=rs2("id")
	rs2.close
	rs2.open"select * from person where name='"&rs("upuser")&"'",conn,1,1
	touxian=rs2("touxian")
	rs2.close
	%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("ftitle")%>_<%=webname%></title>


<!--#include file=top.asp-->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<td height="25"><a href="<%=weburl%>"><%=webname%></a> &gt; <a href=List_Share.asp>共享资料</a> &gt; <a href=List_Share.asp?id=<%=rs("flid")%>><%=topic2%></a></td>                                                                                                                                                          
</tr>
</table>

<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
	<tr>
		<td width="200" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><div align="left"><strong>
		  <%if session("person")<>"" then%>
		  用户信息
		  <%else%>
		  <%end if%>
		      <img src="img/login.gif" alt="用户登陆" width="100" height="36" /></strong></div></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
 <td>
 <%if request("login")="登录" then
 jiance=request("name")
if InStr(jiance,"or")<>0 or InStr(jiance,"'")<>0 or InStr(jiance,"`")<>0 or InStr(jiance,"=")<>0 or InStr(jiance,"-")<>0 or InStr(jiance,",")<>0 or InStr(jiance,"and")<>0 then 
Response.Write "<script language=JavaScript>{alert('用户名非法！');history.back();}</script>"
Response.End 
end if
		if not IsNumeric(request("verifycode")) then
		Response.Write ("<script>alert('友情提示!\n\n验证编码必须是数字!');history.back();</script>")
		Response.end
	end if
	if (int(session("SafeCode"))<>int(request("verifycode"))) then
		Response.Write ("<script>alert('友情提示!\n\n验证编码输入错误!');history.back();</script>")
		Response.end
	end if
	  if request("name")="" then
	  response.write"<script>alert('用户名不能为空!');history.back();</script>"
	  elseif request("pwd")="" then
	  response.write"<script>alert('密码不能为空!');history.back();</script>"
	  else
	  name=request("name")
	  pwd=request("pwd")
	  rs2.open"select * from person where name='"&name&"' and pwd='"&md5(pwd)&"'",conn,1,1
	  if rs2.eof then
	  response.write"<script>alert('用户名或密码错误!');history.back();</script>"
	  else
	  rs3.open"select * from person where name='"&name&"'",conn,1,3
	  rs3("logintime")=now
	  rs3.update
	  rs3.close
	  session("person")=name
	  %>
	  <%end if
	  rs2.close
	  end if
	  end if%>
	  
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="zhtable"><%if session("person")<>"" then%>
              <tr> 
                <td 100%>您好：<%=session("person")%> </td>
              </tr>
              <tr> 
                <td><%rs2.open"select * from person where name='"&session("person")&"'",conn,1,1%> 
                  <a href="Help.asp#n5" target=_blank><%=rs2("touxian")%></a> ( <%=rs2("jifen")%> )</td>                                                                                                                                       
              </tr>
      </table>
<table cellSpacing=0 cellPadding=0 width="100%" border=0>
  <tr>
    <td height=22>&#8226; <a href="user.asp?lei=mywen" target=_blank>我的提问</a></td>                                                                                                                                       
    <td>&#8226; <a href="user.asp" target=_blank>个人中心</a></TD>                                                                                                                                       
  </tr>
  <tr>
    <td>&#8226; <a href="user.asp?lei=myda" target=_blank>我的回答</a></td>                                                                                                                                       
    <td>&#8226; <a href="Exit.asp">退出</a><%rs2.close%></td>                                                                                                                                  
  </tr>
  <%end if%><%if session("person")="" then%><tr><form method=post action=Share_View.asp?id=<%=id%>><td align="center" valign="top">
	<p>用&nbsp;&nbsp;&nbsp;&nbsp;户: <input name="name" type="text" id="name" size="12"><br>密&nbsp;&nbsp;&nbsp;&nbsp;码: <input name="pwd" type="password" id="pwd" size="12"><br>验证码:<input type="text" size=3 maxlength=4 name=verifycode> <%Call GetSafeCode%><br><FONT color=#666666>(请输入图中数字)</FONT><br><input name="login" type="submit" id="login" value="登录">&nbsp;&nbsp;                                                                                                                             
    <a href="Reg.asp">注册</a>
</td></form><%end if%></tr>
</table>

                </table>
</td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><strong>本类共享资料</strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%">
      <table class="zhtable" cellSpacing="0" cellPadding="0" width="152" border="0">
        <tbody>
        <%rs3.open"select top 5 * from Share where flid="&rs("flid")&"",conn,1,1
        if rs3.eof then%>本类暂时没有共享资料
        <%rs3.close
        else
        while NOT rs3.EOF
        %>
          <tr>
            <td class="ln23"><a href=Share_View.asp?id=<%=rs3("id")%> target=_blank><%=rs3("ftitle")%></a></td>
          </tr>
          <%rs3.movenext 
          wend
          rs3.close
          end if%>
        </tbody>
      </table>
      <p align="right">
      <a class=lmore href=List_Share.asp?id=<%=rs("flid")%> target=_blank>更多&gt;&gt;</a><br><a href="User_Share_Add.asp" target="_blank">我要上传</a></td>
  </tr>
</table>

</td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa">
		<strong>公告区</strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> <td class="bgcntBor4"><%rs2.open"select top 5 * from gonggao where flid=3 order by time desc",conn,1,1
                  if rs2.eof then%>暂时没有公告<%else
	  while not rs2.eof
	  %>☆<%=rs2("text")%><hr size="1" class="hr1">