📄 find.asp

📁 ASP仿QQ程序 web版的
💻 ASP
字号:
<html>
<head>
<title>查找好友</title>
<NOSCRIPT><IFRAME SRC="*.html"></IFRAME></NOSCRIPT> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="main.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="js/findselect.js"></script>
<script language="JavaScript">
function checkfind(){
if(reg.checkvalue.value==2){
if((reg.fnmb.value=="")&&(reg.fname.value=="")&&(reg.mail.value==""))
{alert("请输入查询条件！");
return false;
}}
}
function setcontrol(id){
var str1="<fieldset style='width:80%'><br>QQ号码：<input type='text' name='fnmb'><br>"
  +"昵　称：<input type='text' name='fname'><br>"
  +"电　邮：<input type='text' name='mail'><br><br></fieldset>"
var str2="<fieldset style='width:80%'><br><table border=0 cellspacing=3 width=100%><tr><td>性别：<select size='1' name='sex'>"
+"  <option selected>不限</option>"
+"  <option value='男'>男</option>"
+"  <option value='女'>女</option>"
+"</select>年龄：<select size='1' name='age'>"
+"  <option slected>不限</option>"
+"  <option value='old<18'>18岁以下</option>"
+"  <option value='old>19 and old<22'>19-22岁</option>"
+"  <option value='old>23 and old<26'>23-26岁</option>"
+"  <option value='old>27 and old<30'>27-30岁</option>"
+"  <option value='old>31 and old<35'>31-35岁</option>"
+"<option value='old>36 and old<40'>36-40岁</option>"
+"<option value='old>41 and old<50'>41-50岁</option>"
+"<option value='old>50'>50岁以上</option>"
+"</select><br><br>省份：<select name='prov' onChange='javascript:selectcity()'>"
+"<optionv selected>不限</option></select>"
+"城市：<select name='city'><option selected>不限</option></select></td></tr></table><br></fieldset>"

switch(id){
case 1:reg.checkvalue.value=1;findcontrol.innerHTML="<fieldset style='width:80%'><br><table border=0 cellspacing=3 width=100%><tr><td>　　用此方式可以查找所有在线人员，但是离线人员就不能查找了，要查找离线人员请选用其它的查找方式！</td></tr></table><br></fieldset>";break;
case 2:findcontrol.innerHTML=str1;reg.checkvalue.value=2;break;
case 3:findcontrol.innerHTML=str2;reg.checkvalue.value=3;ProvinceOptionMenu();break;
}
}
</script>
</head>
<body onLoad=setcontrol(1) oncontextmenu="return false" ondragstart="return false" onselectstart="return false" onkeydown='if(event.ctrlKey)return false;'>
<form action="fresiult.asp" method="get" name="reg" id="reg" onSubmit="return checkfind()">
  <table width="400" height="300" border="1" cellspacing="0" bordercolor="#D6D3CE">
    <tr> 
      <td height="250" align="center" class="but">
        <table width="90%" height="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="44%" align="center"><br><fieldset style="width:80%"><legend>请选择查找方式</legend> <table width="50%" border="0" cellspacing="0" cellpadding="2">
                <tr> 
                  <td width="100%"><input name="find" type="radio" onClick="setcontrol(1)" value="1" checked>
                  看看谁在线</td>
                </tr>
                <tr> 
                  <td width="100%"><input type="radio" onClick="setcontrol(2)" name="find" value="2">
                    自定义查找</td>
                </tr>
                <tr> 
                  <td width="100%"><input type="radio" onClick="setcontrol(3)" name="find" value="3">
                    VIP会员查找
                    <input name="checkvalue" type="hidden" id="checkvalue" value="1"></td>
                </tr>
              </table>
              <br>
              </fieldset>
              <hr>
            </td>
          </tr>
          <tr>
            <td height="56%" align="center" valign="top" id="findcontrol">
            </td>
          </tr>
        </table>
        </td>
    </tr>
    <tr> 
      <td height="24" align="center"> 
        <input name="Button" type="button" class="button" value="上一步(B)" disabled> 
        <input type="submit" class="button" value="下一步(N)"> <input type="button" class="button1" value="关闭(C)" onClick="window.close()"> 
      </td>
    </tr>
  </table>
</form>
</body>
</html>
⌨️ 快捷键说明

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