assort.asp

完整的九洲问吧。优秀的问答网站。由ASP+Access开发。

    <td align="center" class="bgpagLn">问题数:<font color=red><%=maxnum%></font> | 每页数:<font color=green><%=rs.pagesize%></font> | 总页数:<font color=green><%=maxpage%></font> | 当前页:<font color=red><%=p%></font>                                                                                                                                                          
		  <a href=assort.asp?id=<%=shu%>&p=1&topic=<%=topic%>&jie=<%=jie%>>首页</a>                                                                                                                                                           
		  <a href=assort.asp?id=<%=shu%>&p=<%=p-1%>&topic=<%=topic%>&jie=<%=jie%>>上页</a>                                                                                                                                                           
		  <a href=assort.asp?id=<%=shu%>&p=<%=p+1%>&topic=<%=topic%>&jie=<%=jie%>>下页</a>                                                                                                                                                           
		  <a href=assort.asp?id=<%=shu%>&p=<%=maxpage%>&topic=<%=topic%>&jie=<%=jie%>>尾页</a></td>                                                                                                                                                             
  </tr>
</table>
<%end if
		rs.close
		rs2.close
%>

</div>

              <p>　</td>
          </tr>
        </table>
      </td>
      <td width="181" height="368" valign="top" align="right">
        <table border="0" width="100%" cellspacing="0" cellpadding="0">
          <tr>
            <td width="100%" valign="top">
              <div align="right">
                <table border="0" width="95%" cellspacing="0" cellpadding="0" height="118">
                  <tr>
<td class="bgtle" nowrap height="1"><%if session("person")<>"" then%>用户信息<%else%>用户登录<%end if%></td>
                  </tr>
                  <tr>
 <td class="bgcntBor3" height="60">
    <%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")
	  rs.open"select * from person where name='"&name&"' and pwd='"&md5(pwd)&"'",conn,1,1
	  if rs.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
	  rs.close
	  end if
	  end if%>
	  
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="zhtable"><%if session("person")<>"" then%>
              <tr> 
                <td  class="f14">您好：<%=session("person")%> </td>
              </tr>
              <tr> 
                <td><%rs.open"select * from person where name='"&session("person")&"'",conn,1,1%> 
                  <a href="help.asp#n5" target=_blank><%=rs("touxian")%></a> ( <%=rs("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><%rs.close%></td>           
  </tr>
  <%end if%><%if session("person")="" then%><tr><form method=post action=assort.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>
<tr>
                    <td width="100%" height="10"></td>
                  </tr>
                </table>
              </div>
            </td>
          </tr>
          <tr>
            <td width="100%" valign="top">
              <div align="right">
                <table border="0" width="95%" cellspacing="0" cellpadding="0">
                  <tr><%rs2.open"select * from gonggao where flid=1 order by time desc",conn,1,1
                  if rs2.eof then
                  gonggao="暂时未有公告"
                  else
                  gonggao=rs2("text")
                  end if
                  rs2.close
                  %>
                    <td class="bgcntBor4 f12gy" valign=center ><%=gonggao%></td>
                  </tr>
                </table>
              </div>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </center>
<div id="cDiv">
　
</div>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" style="clear:both;">
  <tr> 
    <td width="233" height="60" class="bgdsrh"></td>
    <td class="bgdsrh" width="517">
      <table  border="0" cellspacing="0" cellpadding="0" height="55">
       <tr>
        <form name=fbop method=post action=search.asp>
          <td nowrap height="26"><input name="content" type="text" id="content" value="<%=HTMLcode(request("content"))%>" size="47">
            <span style="padding-bottom:15px; "><a href="help.asp" target="_blank">帮助</a></span></td> 
        </tr>
       <tr>
          <td nowrap height="29">&nbsp;<input type="submit" name="Submit" value="搜索答案">&nbsp;&nbsp;     
            <span class="f12gn"><font color="#ffffff"><input onclick="ask(fbop);" type="button" value="我要提问"></font></span></td>
       </tr></form>
      </table></td>
  </tr>
  <tr> 
    <td height="1" class="bglne"></td>
    <td class="bglne"></td>
  </tr>
</table>
<center>
<br>
<br>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" style="clear:both;">
  <tr> 
    <td height="25"><div align="right"><a href="#top">返回页首</a></div></td>
  </tr>
  <tr> 
    <td height="30" align=center><!--#include file=end.asp--></td> 
  </tr>
</table></center>
</div>
<%else%>
参数错误!
</body>
<%
end if
%>
<%
Set rs=nothing
Set rs1=nothing
Set rs2=nothing
Set rs3=nothing
conn.Close
set conn=nothing
%>