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

📄 index.asp

📁 免费实用家教网整站程序(奥运特别版) v1.5
💻 ASP
📖 第 1 页 / 共 3 页
字号:
<!--#include file="top.asp"-->
<!--#include file="info.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="unhtml.asp"-->
<title> <%=webname%></title>
<script language=JavaScript>
<%dim i_1,j_1
	set rs_s=server.createobject("adodb.recordset")
	sql="select * from province order by shengorder"
	rs_s.open sql,conn,1,1
%>
	var selects=[];
	selects['0']=new Array(new Option('城区不限','0'));
<%
	for i=1 to rs_s.recordcount
%>
	selects['<%=rs_s("ShengNo")%>']=new Array(

new Option('选择城市','0'),
<%
	set rs_s1=server.createobject("adodb.recordset")
	sql="select * from city where shengid="&rs_s("id")&" order by shiorder"
	rs_s1.open sql,conn,1,1
	if rs_s1.recordcount>0 then 
	%>


	<%		for j=1 to rs_s1.recordcount
		if j=rs_s1.recordcount then 
%>
		new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'));
<%		else
%>
		new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'),
<%
		end if
		rs_s1.movenext
		next
	else 
%>
		new Option('','0'));
<%
	end if
	rs_s1.close
	set rs_s1=nothing
	rs_s.movenext
	next
rs_s.close
set rs_s=nothing
%>
	function chsel(){
		with (document.form100){
			if(province.value) {
				city.options.length=0;
				for(var i=0;i<selects[province.value].length;i++){
					city.add(selects[province.value][i]);
				}
			}
		}
	}



</script>

<script language=javascript>
  function test()
  {
      if (document.form1.name.value==""){
	      alert("请输入用户名!")
		  document.form1.name.focus();
		  return false
		    }
	  if (document.form1.pwd.value==""){
	      alert("请输入密码!");
		  document.form1.pwd.focus();
		  return false
		  } 
		  
		   if (document.form1.user.value=="0"){
	      alert("请选择会员类别!");
		  document.form1.user.focus();
		  return false
		  }
		  return true
  }
  function reset_form()
  {
   document.form1.name.value="";
   document.form1.pwd.value="";
   document.form1.user.value="";
   document.form1.name.focus;
  }
</script>
<table bgcolor="#FFFFFF" width="810"  height="35"  border="0" align="center" cellpadding="2" cellspacing="0">
  <%
if Request.Cookies("ggval")<>"81528686528" then 
Response.Cookies("id")=""
Response.Cookies("ac")=""
Response.Cookies("user")="" 
end if 
if Request.Cookies("id")="" or Request.Cookies("ac")="" or Request.Cookies("user")="" then


%>
  <form name="form1" method="post" action="login.asp" onSubmit="return test()">
    <tr>
      <td  align="right" valign="middle" bgcolor="#FFFFFF"><img src="newimg/1titletop.gif" width="17" height="17"> [<span style="font-weight: bold; color: #FF0000">会员登录</span>] 用户名:
        <input name="name" type="text" class="form4" id="username" size="16" maxlength="16">
        密码:
      <input name="pwd" type="password" class="form4" id="userpwd" size="16" maxlength="16"></td>
      <td width="159"  align="center" bgcolor="#FFFFFF"><select size="1" name="user">
        <option selected value="0">-请选择会员类别 </option>
        <option value="1">学员/家长用户</option>
        <option value="2">教员/教师用户</option>
      </select>
      </td>
      <td  bgcolor="#FFFFFF" ><input name="imageField" type="image" src="newimg/login.gif" width="63" height="23" border="0">
      <a href="register.asp"> <img src="newimg/reg.gif" alt="会员注册中心"  height="23" border="0"> </a> <a href="search_pwd1.asp" target="_blank"><img src="newimg/getpasspwd.gif" alt="会员密码取回" width="63" height="23" border="0"></a> </td>
    </tr>
  </form>
  <%else%>
  <td align="center" bgcolor="#B5C3DE">
  会员:<font color="#FF0000"><%=Request.Cookies("ac")%></font> ,欢迎您登录本站。&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 请选择操作:●● <a href="control.asp">【进入会员中心】</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ●● <a href="exit.asp">【退出会员登录状态】</a></td>
  <%end if %>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=810 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=15>&nbsp;</TD>
    <TD vAlign=top width=200><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=10></TD></TR></TBODY></TABLE>
      <TABLE height=260 cellSpacing=1 cellPadding=0 width="100%" bgColor=#cccccc 
      border=0>
        <TBODY>
        <TR>
          <TD vAlign=top align=middle 
          background="newimg/beijin1.gif" 
          bgColor=#ffffff>
            <TABLE cellSpacing=0 cellPadding=0 width="94%" border=0>
              <TBODY>
              <TR>
                <TD width=21 bgColor=#00aeef></TD>
                <TD align=middle width=100 bgColor=#00aeef height=25>
                  <DIV align=left><STRONG class=white_link_9>最 新 公 
                  告</STRONG></DIV></TD>
                <TD width=65 bgColor=#00aeef></TD></TR></TBODY></TABLE><BR><% sql="select notice from notice where id=1"
				rs.open sql,conn,1,1
				%>  <marquee ONMOUSEOVER="this.stop()" ONMOUSEOUT="this.start()" width="150" height="200" direction="up" scrolldelay="80" scrollamount="1">
                   <% =unHtml(rs("notice")) %>
              </marquee>
	  <% rs.close %>
              </TD>
      </TR></TBODY></TABLE></TD>
    <TD width=10>&nbsp;</TD>
    <TD vAlign=top>
      <TABLE cellSpacing=1 cellPadding=0 width="100%" bgColor=#cccccc 
        border=0><TBODY>
        <TR>
          <TD bgColor=#ffffff height=80>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD align=right ><a href="reg_dw.asp"><IMG height=72 
                  src="newimg/qinjiajiao.gif" 
                  width=134 border=0></a></TD>
                <TD >
                  <TABLE height=50 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD width=1 bgColor=#5ab6d5 rowSpan=2></TD>
                      <TD >&nbsp;</TD>
                      <TD  rowspan="3">&lt;-家长学员请注册</TD>
                    </TR>
                    <TR>
                      <TD width=3>&nbsp;</TD>
                      </TR>
                    <TR>
                      <TD bgColor=#5ab6d5></TD>
                      <TD>&nbsp;</TD>
                      </TR></TBODY></TABLE></TD>
                <TD align=right ><a href="reg_gr.asp"><IMG height=72 
                  src="newimg/zuojiaoyuan.gif" 
                  width=134 border=0></a></TD>
                <TD width="130">
                  <TABLE height=50 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD width=1 bgColor=#5ab6d5 rowSpan=2></TD>
                      <TD >&nbsp;</TD>
                      <TD rowspan="3">&lt;-教师教员请注册</TD>
                    </TR>
                    <TR>
                      <TD width=3>&nbsp;</TD>
                      </TR>
                    <TR>
                      <TD bgColor=#5ab6d5></TD>
                      <TD>&nbsp;</TD>
                      </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
	    <div align="center">
					    <%
sql="select top 6 id,name,trade,cxz,fund,rdate,vip,province,city,xian from en_user where vip=1  order by rdate desc"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
           response.write "暂无教员信息!"
           rs.close
           else
%>
	        <span style="font-weight: bold; color: #FF0000">VIP会员推荐榜</span>        </div>
					  <table border="0" width="544" cellspacing="0" cellpadding="0" id="table12" height="49">
                                  <tr>
                                    <td height="25" bgcolor="#FEEBD5" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="96" align="center"><p><b>教员姓名</b></td>
                                    <td height="25" bgcolor="#FEEBD5" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="100" align="center"><p><b>擅长科目</b></td>
                                    <td height="25" bgcolor="#FEEBD5" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="96" align="center"><b>&nbsp;教员身份</b></td>
                                    <td height="25" bgcolor="#FEEBD5" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="151" align="center"><span style="font-weight: bold">服务区域</span></td>
                                    <td bgcolor="#FEEBD5" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="101" align="center"><span style="font-weight: bold">单价[元/小时]</span></td>
                                  </tr>
                                  <%
for ii=1 to 6
%>
                                  <tr>
                                    <td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="96" height="25" align="center" background="images/bg1.gif"><a target =_blank  href="teacher.asp?id=<%=rs("id")%>"><%=left(rs("name"),1)%>教员</a>
                                    <%if rs("vip")=true then response.write "<font color='#FF0000'>[荐]</font>"%></td>
                                    <td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="100" height="25" align="center" background="images/bg1.gif">『<font color=#ff0000><%=rs("cxz")%></font>』
                                    </td>
                                    <td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="96" height="25" align="center" background="images/bg1.gif"><p align="center"><%=rs("trade")%></td>
                                    <td width="151" height="25" align="center" background="images/bg1.gif" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; "> <%
                  set rss=server.createobject("adodb.recordset")
sqls="select * from province where shengNo="&int(rs("province"))
rss.open sqls,conn,1,1
if rss.eof then

end if
if rs("province") =0 then
response.write "不详"
end if
               shengid=rss("id")
               sheng=rss("shengname")
                rss.close
                set rss=nothing
                %>
                                <%
                  set rss=server.createobject("adodb.recordset")

⌨️ 快捷键说明

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