⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 userinfo.asp

📁 SMS是SP服务中一种流行的服务类型,用户可以通过发送短信来定制电影,视频,交友,下载等在线服务, 联盟程序正是处于用户与SP商之间的一种接口平台,平台下可以发展站长,站长在自己的站上做宣传. 手
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<html>
<head>
<LINK href="inc/css.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Site_name%> // <%=SYStem_url%> // 用户控制面板 // 电影下载 视频交友 娱乐笑话 言情小说</title></head>
<%
call ConnectionDatabase
dim Action
Action=request.QueryString("Action")
Cmd=request.QueryString("Cmd")
%>
<Script Language=Javascript src="inc/idx.js"></Script>
<body>
<table width="770" border="0" align="center" cellspacing="0">
  <tr> 
    <td height="42" align="center" valign="middle" bgcolor="#FFFFFF"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="../download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="760" height="161">
        <param name="movie" value="images/1.swf">
        <param name="quality" value="high">
        <embed src="images/1.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="770" height="161"></embed></object></td>
  </tr>
</table>
<table width="682"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="165" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="156"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><img src="images/dl1.gif" width="156" height="45"></td>
            </tr>
            <tr>
              <td height="74" background="images/dlbg.jpg"><table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="27%" height="22" align="center"><img src="images/point.gif" width="8" height="8"></td>
                  <td width="73%" height="22"><a href="?Action=GetAd">获取广告代码</a></td>
                </tr>
                <tr>
                  <td height="22" align="center"><img src="images/point.gif" width="8" height="8"></td>
                  <td height="22"><a href="?Action=ChangPwd">修改登录密码</a></td>
                </tr>
                <tr>
                  <td height="22" align="center"><img src="images/point.gif" width="8" height="8"></td>
                  <td height="22"><a href="?Action=EditUserData">修改基本资料</a></td>
                </tr>
                <tr>
                  <td height="22" align="center"><img src="images/point.gif" width="8" height="8"></td>
                  <td height="22"><a href="?Action=ShowMoney">查看提成拥金</a></td>
                </tr>
              
                <tr>
                  <td height="22" align="center"><img src="images/point.gif" width="8" height="8"></td>
                  <td height="22"><a href="?Action=Quit">退出用户面板</a></td>
                </tr>
              </table></td>
            </tr>
            <tr>
              <td><img src="images/dl2.gif" width="156" height="38"></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height=8></td>
      </tr>
      <tr>
        <td><table width="156"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><img src="images/jm1.gif" width="157" height="41"></td>
            </tr>
            <tr>
              <td height="158" valign="top" background="images/jmbg.jpg"><table width="93%"  border="0" align="center" cellpadding="0" cellspacing="1">
                  <%
				   	Set Rs=GrateRs("Select top 8 * from member order by id desc",1)
					if not Rs.eof then 
					do while not Rs.eof
				   %>
                  <tr>
                    <td width="17%" height="22" align="right" background="images/line4.gif"><IMG height=12 
                        src="images/star.gif" width=20></td>
                    <td width="83%" height="22" background="images/line4.gif"><a href="<%=Rs("site_url")%>" target="_blank"><%=Rs("site_name")%></a></td>
                  </tr>
                  <%
					Rs.movenext
					loop
					end if
					Rs.close
					
					%>
              </table></td>
            </tr>
            <tr>
              <td><img src="images/jm2.gif" width="157" height="17"></td>
            </tr>
        </table></td>
      </tr>
       <tr>
        <td height=8></td>
      </tr>
      <tr>
        <td><table width="156"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><img src="images/kf1.gif" width="157" height="41"></td>
            </tr>
            <tr>
              <td height="115" valign="top" background="images/jmbg.jpg"><%
			call adshow(6)
			%></td>
            </tr>
            <tr>
              <td><img src="images/jm2.gif" width="157" height="17"></td>
            </tr>
        </table></td>
      </tr>
    </table></td>
    <td width="590" valign="top"><table width="607"  border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="35" background="images/gg.jpg"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="22%">&nbsp;</td>
            <td width="71%"><MARQUEE onmouseover=stop() onmouseout=start() scrollAmount=5 scrollDelay=100>
              <%
			  call adshow(2)
			  %>
            </MARQUEE></td>
            <td width="7%">&nbsp;</td>
          </tr>
        </table></td>
      </tr>
    </table>
      <table width="607" height="580"  border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td valign="top" bgcolor="#FFFFFF"><table width="607%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="607" height="252" valign="top"><table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td valign="top"><%
		select case Action
		case "ChangPwd"
		%>
                    <!--#include file="ChangPwd.asp"-->
                    <%
		case "EditUserData"
		%>
                    <!--#include file="EditUserData.asp"-->
                    <%
		case "ShowMoney"
		%>
                    <!--#include file="ShowMoney.asp"-->
        <%
		case "Quit"
			Session("Usr_UserName") = ""
			Session("Usr_PassWord") = ""
			response.write "<script language='JavaScript'>{window.alert('您已经安全退出了用户控制面板,欢迎下次再来!');window.location='index.asp';}</script>"
			response.end
		case else
		%>
                    <!--#include file="ShowAd.asp"-->
                    <%
		end select
		%></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<table width="76%"  border="0" cellspacing="0" align=center cellpadding="0">
  <tr>
    <td height="1" bgcolor="#000000"></td>
  </tr>
  <tr>
    <td height="39" align="center" bgcolor="#41AAEE"> Copy Right &copy; 2004-2005 <%=Site_name%> <%=SYStem_url%> 网站设计:<a href="http://www.258sp.com" target="_blank">258sp商务平台</a> <font color="#41AAEE">
      <script src=admin/Count/mofei_count_save.asp?id=6></script>
    </font></td>
  </tr>
</table>
</body>
</html>
<%
call DBConnEnd
%>

⌨️ 快捷键说明

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