📄 grzl.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="BBSLib.asp"-->
<%
    if Request.ServerVariables("Request_Method") = "POST" then
        select case Request.QueryString("ACT")
            case "1"  
                ret = Command("118|"&Request.QueryString("NC"))
                if GetPart(ret,1) <> "0" then     
                   ShowError 3,GetPart(ret,2)
                else
                   ShowMessage 3,"该人已被成功加入您的好友名单！"
                end if   
            case "2" 
                ret = Command("107|"&Request.QueryString("NC"))
                if GetPart(ret,1) <> "0" then     
                   ShowError 3,GetPart(ret,2)
                else
                   ShowMessage 3,"该人已被禁闭！"
                end if   
            case "3" 
                ret = Command("117|"&Request.QueryString("NC"))
                if GetPart(ret,1) <> "0" then     
                   ShowError 3,GetPart(ret,2)
                else
                   ShowMessage 3,"该人已被删除！"
                end if    
        end select
        Response.End
    else                 
        ret = Command("104|"&Request.QueryString("NC"))
        if GetPart(ret,1) <> "0" then
            ShowError 0,GetPart(ret,2)
            Response.End
        end if
    end if
    
            

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>个人资料</title>
<style type="text/css">
<!--
a,body,td {  font-family: "宋体"; font-size: 12px}
.p9 {  font-family: "宋体"; font-size: 12px}
.TButton {  font-family: "宋体"; font-size: 12px;cursor:hand;width:66px;height:22px}
-->
</style>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
window.resizeTo(520,450);
window.moveTo(screen.width/2-520/2,screen.height/2-450/2);


function window_onresize() {
    window.resizeTo(520,450);
    window.moveTo(screen.width/2-520/2,screen.height/2-450/2);
}

function bGB_onclick() {
    window.close();
}

function bFSXX_onclick() {
    l = screen.width/2-250/2;
    t = screen.height/2-200/2;
    fLY = window.open('','fLY','scrollbar=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=250,height=200,left='+l+',top='+t);
    fLY.location.replace('fsxx.asp?NC=<%=GetPart(ret,2)%>');
    fLY.opener = null;
}


function bJWHY_onclick() {
    fGRZL.action = 'grzl.asp?ACT=1&NC=<%=GetPart(ret,2)%>';
    fGRZL.submit();
}

function bSC_onclick() {
    if (window.confirm('真的要禁闭此人吗？')) {
        fGRZL.action = 'grzl.asp?ACT=2&NC=<%=GetPart(ret,2)%>';
        fGRZL.submit();
    }    
}

function bSCCR_onclick() {
    if (window.confirm('真的要删除此人吗？')) {
        fGRZL.action = 'grzl.asp?ACT=3&NC=<%=GetPart(ret,2)%>';
        fGRZL.submit();
    }    
}

function openpic(url)                    
{                    
window.open(url,"","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=220,height=180");                    
}
//-->
</SCRIPT>
</head>


<body bgcolor="#ffffff" style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none" bottommargin="0" topmargin="0" rightmargin="0" leftmargin="0" LANGUAGE=javascript onresize="return window_onresize()">
<table width="100%" cellPadding=1 cellSpacing=1 bgcolor="#ffffff">
 <tr class=p9> 
    <td rowspan="4" width="14%" align="center" class="p9" bgcolor="#F7F7F7">
        <table border="0" cellspacing="0" cellpadding="0" >
          <tr> 
            <td ><img align="absMiddle" src="images/face/<%=GetPart(ret,9)%>" width="64" height="64" VSPACE="4" HSPACE="4"></td>
          </tr>
        </table>
        <font color="#000000"><%=GetClass(Int(GetPart(ret,23)),Int(GetPart(ret,24)))%><BR></font>
        <%for star=1 to Int(GetImage(Int(GetPart(ret,23)),Int(GetPart(ret,24))))
              Response.Write("<img src=images/star.gif>")
          next
        %>  
    </div>
    </td>
    <td  height=20 width="40%" bgcolor=#93A7CC>昵称：<%=GetPart(ret,2)%>&nbsp; 
      <% if GetPart(ret,28) then%>
      <a href="javascript:openpic('user_photo_disp.asp?id=<%=GetPart(ret,2)%>')" title="我的靓照！" onMouseOver="window.status='查看我的靓照';return true"><img src=images/photo.gif border=0></a> 
      <% else %>
      <% end if%>
    </td>
    <td height=20 width="24%" bgcolor=#F7F7F7>经验：<%=GetPart(ret,23)%></td>
    <td height=20 width="24%" bgcolor=#F7F7F7>体　力：<%=GetPart(ret,25)%></td>
  </tr>
  <tr class=p9> 
    <td height=20 bgcolor=#efefef>性别： <%select case GetPart(ret,3)
            case 0
                Response.Write("男&nbsp;&nbsp;<img src=images/boy.gif>")
            case 1
                Response.Write("女&nbsp;&nbsp;<img src=images/girl.gif>")
            case 2
                Response.Write("保密")
        end select
     %> </td>
    <td height=20 bgcolor=#F7F7F7>魅力：<%=GetPart(ret,24)%></td>
    <td height=20 bgcolor=#F7F7F7>金　钱：<%=GetPart(ret,26)%></td>
  </tr>
  <tr class=p9> 
    <td height=20 bgcolor=#93A7CC>来源：<%=GetPart(ret,6)%></td>
    <td height=20 bgcolor=#93A7CC>生日：<%=GetPart(ret,5)%></td>
    <td height=20 bgcolor=#93A7CC>发贴数：<%=GetPart(ret,21)%></td>
  </tr>
  <tr class=p9 bgcolor=#efefef> 
    <td height=20>伴侣：<%=IIF(GetPart(ret,27) = "","无",GetPart(ret,27))%></td>
    <td height=20>OICQ：<%=mid(GetPart(ret,11),1,10)%></td>
    <td height=20>回复数：<%=GetPart(ret,22)%></td>
  </tr>
  <tr class=p9> 
    <td colspan="2" height=20 bgcolor=#93A7CC>E-mail　：<%=GetPart(ret,4)%> </td>
    <td colspan="2" height=20 bgcolor=#93A7CC>注册日期：<%=GetPart(ret,19)%></td>
  </tr>
<%
    Response.Write("<tr class=p9 bgcolor=#efefef>")
    if len(GetPart(ret,8)) > 17 then
        Response.Write("<td height=20 colspan=2 title="&GetPart(ret,8)&">爱好："&left(GetPart(ret,8),15)&"...</td>")
    else
        Response.Write("<td height=20 colspan=2>爱好："&GetPart(ret,8)&"</td>")
    end if
    Response.Write("<td height=20 colspan=2 nowrap>最近登录："&GetPart(ret,20)&"</td>")
    Response.Write("</tr>")
%>
  <tr class=p9>
    <td colspan="2" height=20 bgcolor=#93A7CC>个人主页：<%=GetPart(ret,10)%> </td>
	<td colspan="2" height=20 bgcolor=#93A7CC>社团：<%=GetPart(ret,7)%> </td>
  </tr>
  <tr class=p9 bgcolor=#F7F7F7>
    <td colspan="2" height=20 valign=top>

<table width="90%" border="0" cellspacing="0" cellpadding="0" height="100%" 
      style="HEIGHT: 55px; WIDTH: 290px">
          <tr> 
            <td class="p9">个人介绍：<br> 
              <table cellpadding="1" cellspacing="1" border="0" width="100%" height="100%" align="left">
                <tr> 
                  <td> 
                    <div style="BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; HEIGHT: 200px; OVERFLOW: auto; PADDING-BOTTOM: 2px; PADDING-LEFT: 2px; PADDING-RIGHT: 2px; PADDING-TOP: 2px; WIDTH: 290px"> 
                      <table class="p9" width="100%" height="100%">
                        <tr> 
                          <td><font color="#000000"><%=ConvertStr(GetPart(ret,12))%></font></td>
                        </tr>
                      </table>
                    </div>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>	

</td>
    <td colspan="2" height=20 bgcolor=#93A7CC align=center> 
      <%
dim connshop,strshop,dbshop
dbshop="dressshop/shop.mdb"
Set connshop = Server.CreateObject("ADODB.Connection")
strshop="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbshop)
connshop.Open strshop

set brs=server.createobject("adodb.recordset")
sql="select * from [User] where NC='"&GetPart(ret,2)&"'"
brs.open sql,connshop,1,3
if brs.eof then
%>
      <img src=dressshop/userface/nobg1.gif border=0> 
      <%else%>
      <TABLE WIDTH="193" HEIGHT="0" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR><TD>
<script src=dressshop/userface.asp?UserName=<%=GetPart(ret,2)%>></script>
</td></tr>
</TABLE><br><br><br><br><br><br><br><br><br><br><br><br><br>
<!-- Space -->
<table width="100%" height="2">
<tr><td><img src="dressshop/userface/1px.gif" width="1" height="1"></td>
</tr></table>
<!-- Space -->
<%
end if
brs.close
set brs=nothing
connshop.close
set connshop=nothing
%>
	
	</td>
  </tr>
  <form name="fGRZL" method="post" target="iHIDE">  
    <tr bgcolor="#93A7CC" class=p9> 
      <td colspan="4" height=30> 
        <div align="center" class="p9" > <font color="#000000"> 
        <input type="button" name="bJWHY" value="加为好友" class="TButton" style="BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black" LANGUAGE=javascript onclick="return bJWHY_onclick()">
        &nbsp; 
        <input type="button" name="bFSXX" value="发送讯息" class="TButton" style="BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black" LANGUAGE=javascript onclick="return bFSXX_onclick()">
        <% if UCase(Request.Cookies("NC")) = UCase(Application("NC")) then
               Response.Write("&nbsp;<input type=button name=bSC value=禁闭此人 class=TButton style='BACKGROUND-COLOR: #FFFFEF; BORDER: buttonhighlight 1px solid; COLOR: black' LANGUAGE=javascript onclick='return bSC_onclick()'>")
               Response.Write("&nbsp;&nbsp;<input type=button name=bSCCR value=删除此人 class=TButton style='BACKGROUND-COLOR: #FFFFEF; BORDER: buttonhighlight 1px solid; COLOR: black' LANGUAGE=javascript onclick='return bSCCR_onclick()'>")
           end if
        %>       
        &nbsp; 
        <input type="button" name="bGB" value="关闭" class="TButton" style="BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black" LANGUAGE=javascript onclick="return bGB_onclick()">
          &nbsp; </font></div>
    </td>
  </tr>
  </form>
</table>
<IFRAME name="iHIDE" style="HEIGHT: 0px; WIDTH: 0px;VISIBILITY: hidden"></IFRAME>
</body>
</BODY>
</HTML>
⌨️ 快捷键说明

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