📄 zhuanjia.asp
字号:
<!--#include file=conn.asp-->
<!--#include file="function.asp"-->
<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<%
if request("id")="" then
response.write"<script>alert('参数错误!');history.back();</script>"
response.End()
end if
if not IsNumeric(request("id")) then
Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
Response.end
end if
id=CLNG(request("id"))
rs.open"select * from assort where id="&id,conn,1,1
if rs.eof then
Response.Write ("<script>alert('友情提示!\n\暂无专家!');history.back();</script>")
Response.end
else
topic=rs("topic")
rs.close
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%> 网友专家排行榜</title>
<link href="iknow.css" rel="stylesheet" type="text/css">
</head>
<body class="bgbdy" topmargin="0">
<center>
<!--#include file=top.asp-->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" nowrap><a href="<%=weburl%>"><%=webname%></a> > 网友专家排行榜
</td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="bgtle" nowrap>网友专家排行榜 [<a href="assort1.asp?id=<%=id%>" target="_blank"><%=topic%></a>] </td>
<td class="bgtle" align="right" nowrap><span style="font-size: 9pt; font-weight: 400">
<a href="userexpert.asp" target="_blank">什么是网友专家</a></span></td>
</tr>
<tr>
<td valign="top" class="bgcnt" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%rs.open"select top 50 * from zhuanjia where flid="&id&" order by fljifen desc",conn,1,1%>
<td width="8%" nowrap height="30" class="padL6"><strong>排名</strong></td>
<td nowrap class="padL6"><strong>昵称</strong></td>
<td width="25%" nowrap class="padL6"><strong>级别</strong></td>
<td width="15%" nowrap class="padL6"><strong>上升专家分</strong></td></tr>
<%if rs.eof then%>暂无专家<%else
while not rs.eof
rs2.open"select * from person where name='"&rs("user")&"'",conn,1,1
touxian=rs2("touxian")
rs2.close
i=i+1
%>
<tr>
<td class="ln28"><%=i%></td>
<td class="ln28 f14ln20"><%if i<=5 then%><img src="img/icon_honor.gif" width="14" height="14" alt="网友专家"> <%end if%><a href="showperson.asp?name=<%=rs("user")%>" class="f14" target=_blank><%=rs("user")%></a></td>
<td class="ln28"> <a href="help.asp#n5" target=_blank><%=touxian%></a> </td>
<td class="ln28"> <%=rs("fljifen")%> </td>
</tr><%rs.movenext
wend
end if
rs.close%>
</table></td>
</tr>
</table></td>
<td width="180" valign="top" style="padding-left:10px;">
<!--出现登陆框-->
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="magBtm12 zhtable">
<tr>
<td class="bgtle" nowrap><%if session("person")<>"" then%>用户信息<%else%>用户登录<%end if%></td>
</tr>
<tr>
<td class="bgcntBor3">
<%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>• <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=zhuanjia.asp?id=<%=id%>><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="10"></td>
</tr>
</table>
<!--结束登陆框-->
<br>
</td>
</tr>
</table>
<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>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -