📄 assort1.asp
字号:
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>• <a href="user.asp?lei=mywen" target="_blank">我的提问</a></td>
<td>• <a href="user.asp" target="_blank">个人中心</a></TD>
</tr>
<tr>
<td>• <a href="user.asp?lei=myda" target="_blank">我的回答</a></td>
<td>• <a href="exit.asp">退出</a><%rs.close%></td>
</tr>
<%end if%><%if session("person")="" then%><tr><form method=post action=assort1.asp?id=<%=id%>&topic=<%=topic%>><td align="center" valign="top">
<p>用 户: <input name="name" type="text" id="name" size="12"><br>密 码: <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="登录">
<a href="reg.asp">注册</a>
</td></form><%end if%></tr>
</table>
<tr>
<td width="100%" height="15"></td>
</tr>
<tr>
<td width="100%" height="14">
<%
rs3.open"select top 5 * from zhuanjia where flid="&shu&" order by fljifen desc",conn,1,1
if rs3.eof then
gengduo=""
else
gengduo="<a class=lmore href=zhuanjia.asp?id="&id&" target=_blank>更多>></a>"
end if
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="bgtle" nowrap>分类专家</td>
</tr>
<tr>
<td class="bgcntBor3">
<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><%
while NOT rs3.EOF
rs.open"select * from person where name='"&rs3("user")&"'",conn,1,1
if rs.eof then%>暂时没有专家
<%rs.close
else
jf=rs("jifen")
rs.close
end if
%>
<tr>
<td class="ln23"><a href=showperson.asp?name=<%=rs3("user")%> target=_blank><%=rs3("user")%></a></td>
<td class="ln23"><font color="red" size="3">↑</font><%=jf%></td>
</tr><%rs3.movenext
wend%>
</tbody>
</table>
<%=gengduo%></td>
</tr><%rs3.close%>
</table>
</td>
</tr>
<tr>
<td width="100%" height="15"></td>
</tr>
</table>
<%if gx=1 then%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="14">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="bgtle" nowrap>本类共享资料</td>
</tr>
<tr>
<td class="bgcntBor3">
<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="&id&"",conn,1,1
if rs3.eof then%>本类暂时没有共享资料
<%rs3.close
else
while NOT rs3.EOF
%>
<tr>
<td class="ln23"><a href=sharev.asp?id=<%=rs3("id")%> target=_blank><%=rs3("ftitle")%></a></td>
</tr>
<%rs3.movenext
wend
rs3.close
end if%>
</tbody>
</table>
<a class=lmore href=share.asp?id=<%=id%> target=_blank>更多>></a> <a href="userupfile.asp" target="_blank">我要上传</a></td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr>
<td width="100%" height="15"></td>
</tr>
</table>
</td>
</tr>
</table>
</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=2 order by time desc",conn,1,1
if rs2.eof then
rs3.open"select * from gonggao where flid=1 order by time desc",conn,1,1
if rs3.eof then
gonggao="暂时未有公告"
else
gonggao=rs3("text")
end if
rs3.close
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"> <input type="submit" name="Submit" value="搜索答案">
<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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -