aduser.asp

it is a good thing i think you will like it

                  <td width="85%" nowrap><select size="1" name="star">
                  <option value="1" <% if rs("star")=1 then%> selected <%end if%>>
                  一星</option>
                  <option value="2" <% if rs("star")=2 then%> selected <%end if%>>
                  二星</option>
                  <option value="3" <% if rs("star")=3 then%> selected <%end if%>>
                  三星</option>
                  <option value="4" <% if rs("star")=4 then%> selected <%end if%>>
                  四星</option>
                  <option value="5" <% if rs("star")=5 then%> selected <%end if%>>
                  五星</option>
                  </select></td>
                </tr>
                <tr>
                  <td width="15%" align="right" nowrap>是否推荐：</td>
                  <td width="85%" nowrap>
                  <input type="radio" name="best" value="1" <%if rs("best")=1 then%> checked <%end if%>>是<input type="radio" name="best" value="0" <%if rs("best")=0 then%> checked <%end if%>>否　</td>
                </tr>
                <tr>
                  <td width="100%" colspan="2" nowrap>
                  <p align="center">
                  <input type="submit" value=" <%if request("type")="edit" then%>修改资料<%else%>现在加入<%end if%> ">
                  </td>
                </tr>
                <tr>
                  <td width="100%" colspan="2" nowrap></td>
                </tr>
              </table>
              </td>
            </tr>
          </form>
        </table>
        <%'############################### 取得代码 ###############################                                         
elseif request("type")="code" then%>
        <form method="POST" action="user.asp?type=code">
          <p align="center"><b>请输入你的用户名：</b><input name="user" size="20" value="<%=request.form("user")%>" style="color: #0000FF"><input type="submit" value="取回代码"></p>
        </form>
        <%'############################### 修改资料登陆 ###########################            
elseif request("type")="login" then%>
        <form method="POST" action="save.asp?type=login">
          <div align="center">
            <center>
            <table border="0" bgcolor="#808080" cellspacing="1">
              <tr>
                <td width="100%"><b><font color="#FFFFFF">修改资料</font></b></td>
              </tr>
              <tr>
                <td width="100%" bgcolor="#FFFFFF">用户名：<input name="user" size="20" style="color: #0000FF"></td>
              </tr>
              <tr>
                <td width="100%" bgcolor="#FFFFFF">密&nbsp; 码：<input name="pwd" size="20" style="color: #0000FF" type="password"></td>
              </tr>
              <tr>
                <td width="100%" bgcolor="#FFFFFF">
                <p align="center"><input type="submit" value="确认登陆"></td>
              </tr>
            </table>
            </center>
          </div>
        </form>
        <form method="POST" action="save.asp?type=pwd">
          <div align="center">
            <center>
            <table border="0" bgcolor="#808080" cellspacing="1">
              <tr>
                <td width="100%"><b><font color="#FFFFFF">忘了密码</font></b></td>
              </tr>
              <tr>
                <td width="100%" bgcolor="#FFFFFF">用户名：<input name="user" size="20" style="color: #0000FF"></td>
              </tr>
              <center>
              <tr>
                <td width="100%" bgcolor="#FFFFFF">
                <p align="center"><input type="submit" value="取回密码"></td>
              </tr>
            </table>
            </center>
          </div>
        </form>
        </center>
        <%'############################### 成功加入 ###########################           
elseif request("type")="regok" then%> </center></center>
        <p align="left"><font color="#ff0000">您的网站已经成功地加入<%=rsadm("webname")%>.<br>
        你的用户名是: <%=request("user")%></font><br>
        请点击此处<a href="<%=tmp%>in.asp?user=<%=request("user")%>" target="_blank"><%=tmp%>in.asp?user=<%=request("user")%></a> 
        激活您的帐号.<br>
        <br>
        <br>
        <%'############################### 修改资料 ###############################                                      
else                                      
response.write"<p align=center>参数错误!<br><br><a href=index.asp>-点击这里返回首页-</a></p>"                                      
end if%> <%'##### 代码部分 ########           
if request.form("user")<>"" or request("user")<>"" then           
if request.form("user")<>"" then           
 user=request.form("user")           
elseif request("user")<>"" then           
 user=request("user")           
else           
 user="你的用户名"           
end if%> </p>
        <table border="0" width="100%" cellspacing="0" cellpadding="6">
          <tr>
            <td width="100%">请将以下 HTML 代码加入您的网页，待我们刷新数据后你的网站就会在排行榜上出现:
            <p><b>文字链接：<br>
            </b><textarea cols="64" name="S1" rows="2">&lt;a href="<%=tmp%>in.asp?user=<%=user%>" target="_blank"&gt;亚洲美女排行榜&lt;/a&gt;</textarea></p>
            <hr>
            <p><b>跳出框：<br>
            </b><textarea cols="64" name="S5" rows="12">&lt;script language=JavaScript&gt;
&lt;!--
browserVer = parseInt(navigator.appVersion);
SX=window.open('<%=tmp%>in.asp?user=<%=user%>',
'SXback','toolbar=1,location=1,status=1,menubar=1,'+
'scrollbars=1,resizable=1,width=640,height=480');

if( browserVer &gt;= 4) {
window.focus() ;
}
// --&gt;
&lt;/script&gt;</textarea></p>
            <hr>
            <p><b>离开主页跳出框：<br>
            </b><textarea cols="64" name="S5" rows="12"><SCRIPT language="JavaScript"> 
<!-- 
var exit=true; 
function caomm() 
{ 
if (exit) 
window.open("<%=tmp%>in.asp?user=<%=user%>"); 
} 
// --> 
</SCRIPT>

请在<body>里加入 onunload="caomm()" 
例：<body onunload="caomm()"></textarea></td>
          </tr>
        </table>
        <%end if           
'######## 代码结束 ########%>
      </div>
      </td>
    </tr>
    <center>
    <tr>
      <td width="100%" height="10" bgcolor="#F4F4F4">　 </td>
    </tr>
  </table>
  </td>
  </tr>
  </table>
  </center>
</div>
<div align="center">
  <center>
  <table border="0" width="630" cellspacing="0" cellpadding="0" height="7">
    <tr>
      <td width="100%"></td>
    </tr>
    <tr>
      <td width="100%"></td>
    </tr>
  </table>
  </center>
</div>
<div align="center">
  <center>
  <table border="0" width="630" cellspacing="0" cellpadding="0">
    <tr>
      <td width="100%">
      <p align="center"><%=rsadm("ad2")%></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
<%                                                                                  
rsadm.close                                                                                  
set rsadm=nothing                                                                                  
rs_type.close                                   
set rs_type=nothing                                   
conn.close                                                                                  
set conn=nothing                                               
%>