📄 viewip.asp

📁 我的课程设计
💻 ASP
字号:
<%@ language=VBScript %>
<!--#include file="setup.asp"-->
<%

if Request("menu") = "viewip" then
call viewip()
else call index()
end if

sub index()

%>
<html><head><title><%=gbook_name%>--查看IP</title>
<link rel="stylesheet" href="../css/admin.css">
</head>
<body topmargin=0 background="">
<table width=600 height="27" border=1 bordercolor="#FFFFFF" align="center" cellpadding=0 cellspacing=1  style="border: 1px solid #CCCCCC;">
  <tr> 

    <td width="245"><div align="right">【<a href="index.asp">查看留言</a>】　　【<a href="write.asp">签写留言</a>】</div></td>
  </tr>
</table>
<br>
<table width="600" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#999999">
  <tr bgcolor="#ebebeb"> 
    <td height="25" bgcolor="#f7f7f7"> 
      <form method="post" action="viewip.asp">
	<input type=hidden name=id value=<%=Request("id")%>>
	<input type=hidden name=menu value=viewip>
        <table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
          <tr bgcolor="#f7f7f7"> 
            <td width="32%" height="25" align="right" nowrap>管理口令:</td>
            <td width="68%" height="25" nowrap> 
              <input type="password" name="password" size="20" style="background-color:#ffffff; color:#8888AA; border: 1 double #B4B4B4" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value=<%=Request.cookies("password")%>> <input type=checkbox name=save value=save <%if Request.cookies("save") <> "" then%>checked<%end if%>>记住密码
            </td>
          </tr>
          <tr bgcolor="#f7f7f7"> 
            <td width="32%" height="20" nowrap> <br>
            </td>
            <td width="68%" height="20" nowrap> &nbsp;&nbsp; 
              <input type="submit" name="Submit" value="查 看" style="backgroud-color: #ffffff; border-bottom: 1px solid; border-left: 1px solid; border-right: 1px solid; border-top: 1px solid; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 50px">
              <input type="reset" name="Submit2" value="重 置" style="backgroud-color: #ffffff; border-bottom: 1px solid; border-left: 1px solid; border-right: 1px solid; border-top: 1px solid; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 50px">
              <input type="button" name="Submit3" value="取 消" onClick="javascript:history.back(-1);" style="backgroud-color: #ffffff; border-bottom: 1px solid; border-left: 1px solid; border-right: 1px solid; border-top: 1px solid; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 50px">
            </td>
          </tr></form>
        </table>
      
    </td>
  </tr>
</table><br>
<!--#include file="../copyright.asp"-->
<%
call htmlend()

Response.End
end sub

sub viewip()

password = Request.form("password")
id = Request.form("id")
save = Request.form("save")

if id = "" then
message=message&"对不起，你的ID号不能为空！\n"
end if

if password <> passwords then
message=message&"您的管理口令不正确！\n"
end if

	if message <> "" then
	call error(""&message&"")
	Response.end
	end if

	sql = "select * from gbook where id=" & id
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.open sql,conn,1,1
	username=Rs("username")
	ip=Rs("ip")
	Rs.close

	if save <> "" then
	Response.cookies("password") = password
	Response.cookies("save") = save
	else
	Response.cookies("password") = ""
	Response.cookies("save") = ""
	end if

set Rs = nothing
conn.close
set conn = nothing

%>

<script>alert('<%=username%>的IP地址：<%=ip%>');history.back();</script><script>window.close();</script>"

<%
Response.End

end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -