viewip.asp

这个论坛也不错．适合做毕业设计的

<!--#INCLUDE FILE="config.asp" -->
<%
Function ChkString(string)
	 if string = "" then string = " "
	 ChkString = Replace(string, "'", "''")
End Function

Function ChkUser(strName, StrPasswd)
strsql = "select SFAdmin_Name, SFAdmin_Password from SFAdmin"
set rs_chk = my_conn.Execute (strSQL)
if strName=rs_chk("SFAdmin_Name") and strpasswd=rs_chk("SFAdmin_Password") then ChkUser =1
rs_chk.close	
set rs_chk = nothing
set rsAdmin = nothing
End Function


%>
<!--#INCLUDE FILE="top.asp" -->
<br><table width=<%=TableWidth%> border =0 align="center" class="sft"><tr><td><a href="index.asp">论坛首页</a> &gt 论坛管理
</table>

<%
if Request.QueryString("mode") = "doit" then
  set my_conn= Server.CreateObject("ADODB.Connection")
  my_Conn.Open ConnString
  mlev = cint(ChkUser(Request.Form("user"), Request.Form("pass"))) 
  if mlev > 0 then
  %><table align="center" bgcolor=<%=TableColor%> border="0" width=360 cellspacing="1" cellpadding="3" class="sft">
    <tr><td bgcolor=<%=CellColor1%> align="center"><%
    if Request.Form("topic_id")<> "" then
      StrSQL = "select T_IP from topics where Topic_ID = " & Request.Form("topic_id")
      set rs = my_conn.Execute (strSQL)
      Response.Write "<P align=center>IP:"& rs("T_IP") &"<br><br>"
    else
      StrSQL = "select R_IP from Reply where Reply_ID = " & Request.Form("reply_id")
      set rs = my_conn.Execute (strSQL)
      Response.Write "<P align=center>IP:"& rs("R_IP") &"<br><br>"
    end if
  else
    Response.Write "<P align=center>您没有查看IP的权限!<br><br>"
    Response.Write "<a href=""Javascript: onClick= history.go(-1) "">退回上一步</a></p>"
  end if
  my_conn.Close
  set my_Conn = nothing
%>
</td></tr></table>
<%
else 
%>	
<center></center>
<div align="center"><center>
<form action="viewip.asp?mode=doit" method=post>
<input type=hidden name="topic_id" value="<%=Request.QueryString("topic_id") %>">
<input type=hidden name="reply_id" value="<%=Request.QueryString("reply_id") %>">
<table align="center"  bgcolor=<%=TableColor%> border="0" width=300 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="<% =HeadColor %>" colspan=2 class="sfh" align="center">查看作者的IP地址</td></tr>                
<TR><TD bgcolor="<% =CellColor1 %>" width="30%" align="right">管理员名称:</td>
<TD bgcolor="<% =CellColor1 %>" width="70%"><input type=text name="user" size=20 value="<%=Request.Cookies("User")("Name")%>" class="box"></td>
<TR><TD bgcolor="<% =CellColor1 %>" align="right">管理员密码:</td>
<TD bgcolor="<% =CellColor1 %>"><input type=password name="pass" size=20 value="<%=Request.Cookies("User")("Pword")%>" class="box"></td>
<TR><TD bgcolor="<% =CellColor1 %>" colspan=2 align=center><Input type=submit value="确 定" class="btn"></td></TR>
</form></TABLE>
<% end if %>