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

📄 index.asp

📁 免费实用家教网整站程序(奥运特别版) v1.5
💻 ASP
📖 第 1 页 / 共 3 页
字号:
sqls="select * from city where Shengid="&shengid&" and  shino="&int(rs("city"))
rss.open sqls,conn,1,1
if rss.eof then

end if

               shi=rss("shiname")
                rss.close
                set rss=nothing
                %>
                            <%=sheng%><%=shi%><%=rs("xian")%></td>
                                    <td width="101" height="25" align="center" background="images/bg1.gif" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; ">
									<%=rs("fund")%></td>
                                  </tr>
                                 <%
rs.movenext
if rs.eof then exit for
next
rs.close
end if
%>	
        </table>
      </TD>
    <TD width=15>&nbsp;</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=810 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD colSpan=5 height=10></TD></TR>
  <TR>
    <TD width=25>&nbsp;</TD>
    <TD vAlign=top width=760>
      
    </TD>
    <TD width=25>&nbsp;</TD></TR></TBODY></TABLE><!--*****//    Part3    //*****-->
<TABLE cellSpacing=0 cellPadding=0 width=810 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD height=10></TD></TR></TBODY></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 height=202 cellSpacing=1 cellPadding=0 width="100%" bgColor=#cccccc 
      border=0>
        <TBODY>
        <TR>
          <TD vAlign=top align=middle 
          background="newimg/beijin1.gif" 
          bgColor=#ffffff height=161>
            <TABLE cellSpacing=0 cellPadding=0 width="94%" border=0>
              <TBODY>
              <TR>
                <TD width=21 bgColor=#f7941c></TD>
                <TD align=middle width=100 bgColor=#f7941c height=25>
                  <DIV align=left><span style="font-weight: bold">会员搜索</span></DIV></TD>
                <TD align=middle width=65 
            bgColor=#f7941c></TD></TR></TBODY></TABLE><BR>
			<table><form name="form100"method="POST" action="search.asp" TARGET="_blank">
								<tr>
										<td height="30">
										<p align="left"> 
&nbsp;省份:<select size="1" name="province" onChange=chsel() style=" font-size: 12px; background-color: #ffffff">
          <option value="0" selected>选择省份</option>
		  <option value="0">不限</option>
          <%dim tmpShengid
tmpShengid=0
province=int(province)
city=int(city)
set rs1_s=server.createobject("adodb.recordset")
sql2="select * from province  order by shengorder"
rs1_s.open sql2,conn,1,1
while not rs1_s.eof


           if rs1_s("ShengNo") =province  then
     
          tmpShengid=rs1_s("id")
%>
          <option value="<%=rs1_s("ShengNo")%>" selected ><%=trim(rs1_s("ShengName"))%></option>
          <%
     else
%>
          <option value="<%=rs1_s("ShengNo")%>" ><%=trim(rs1_s("ShengName"))%></option>
            <%
     end if        
 
    rs1_s.movenext
wend
rs1_s.close
set rs1_s=nothing
%></select><br>
            &nbsp;城市:<select size="1" size="18" name="city"  style=" font-size: 12px; background-color: #ffffff" >
                        <option value="0" >选择城市</option>
 <%
set rs1_s=server.createobject("adodb.recordset")
sql2="select * from city where shengid="&tmpShengid&" order by shiorder"
rs1_s.open sql2,conn,1,1
while not rs1_s.eof
%><option value="<%=rs1_s("ShiNo")%>" <%if city=rs1_s("ShiNo") then%>selected<%end if%>><%=trim(rs1_s("ShiName"))%></option>
          <%
    rs1_s.movenext
wend
rs1_s.close
set rs1_s=nothing
%></td>
							  </tr>
									<tr>
										<td height="30">
										<p align="left"> 
												&nbsp;<SELECT SIZE="1" NAME="job" STYLE="border: 1px solid #333333; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF">
<OPTION VALUE="0" selected>::需要辅导科目::</OPTION>
<option value="0">不限</option>
<%
call listjob("")
%>
</SELECT></td>
									</tr>
																		<tr>
										<td height="30">  
&nbsp;<SELECT ID=create_date NAME=date size="1"> 
<option selected value="不限">请选择发布时间</option>
<OPTION VALUE="不限">不限</OPTION> <OPTION VALUE="7">一星期内</OPTION> 
<OPTION VALUE="30">一个月内</OPTION> <OPTION VALUE="183">六个月内</OPTION>
<OPTION VALUE="365">一年内</OPTION> </SELECT></td>
									</tr>
									<tr>
										<td height="30">
										<% if Request.Cookies("user")="1" then %>
										<input type="radio" value="1" checked name="class">教员&nbsp;&nbsp;&nbsp; 
										<input type="radio" name="class" value="2">学员</td>
										<%else%>
										<input type="radio" value="1"  name="class">教员&nbsp;&nbsp;&nbsp; 
										<input type="radio" checked name="class" value="2">学员</td>
										<%end if %>
									</tr>
									<tr>
										<td height="30">
										<p align="left">
										<% if Request.Cookies("id")<>"" or Request.Cookies("ac")<>"" or Request.Cookies("user")<>"" then %>
										<input border="0" src="images/s2.gif" name="I1" width="53" height="20" type="image">&nbsp;&nbsp;&nbsp;&nbsp;
										<a href="super_search.asp">
										<img border="0" src="images/s1.gif" width="79" height="20"></a>
										<%else
response.write "<font color=#FF0000>登录后才可搜索</font>"
end if %><br>&nbsp;&nbsp; &nbsp;&nbsp; <A  href="law.asp?id=4&what=常见问题" 
                              target=_blank><strong><font color=#ff0000>〓〓</font> 新手指南 <font color=#ff0000>〓〓</font></strong></A></td>
									</tr>
							</form></table>
        <TABLE height=20 cellSpacing=0 cellPadding=0 width="92%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=bottom>
                  </DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=10></TD></TR></TBODY></TABLE>
      <TABLE height=202 cellSpacing=1 cellPadding=0 width="100%" bgColor=#cccccc 
      border=0>
        <TBODY>
        <TR>
          <TD vAlign=top align=middle 
          background="newimg/beijin1.gif" 
          bgColor=#ffffff height=161>
            <TABLE cellSpacing=0 cellPadding=0 width="94%" border=0>
              <TBODY>
              <TR>
                <TD width=21 bgColor=#f7941c></TD>
                <TD align=middle width=100 bgColor=#f7941c height=25>
                  <DIV align=left><STRONG class=white_link_9>最新认证教员</STRONG></DIV></TD>
                <TD width=65 bgColor=#f7941c></TD></TR></TBODY></TABLE>
            <%
sql="select top 6 id,name,trade,cxz,fund,rdate,vip,province,city,xian from en_user where rz=1  order by rdate desc"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
           response.write "暂无教员信息!"
           rs.close
           else
%>
            <table border="0" width="196" 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>
                  </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>
                  </tr>
                  <%
rs.movenext
if rs.eof then exit for
next
rs.close
end if
%>
            </table></TD>
        </TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height=10></TD></TR></TBODY></TABLE>
      <TABLE height=202 cellSpacing=1 cellPadding=0 width="100%" bgColor=#cccccc 
      border=0>
        <TBODY>
        <TR>
          <TD vAlign=top align=middle 
          background="newimg/beijin1.gif" 
          bgColor=#ffffff height=161>
            <TABLE cellSpacing=0 cellPadding=0 width="94%" border=0>
              <TBODY>
              <TR>
                <TD width=21 bgColor=#f7941c></TD>
                <TD align=middle width=100 bgColor=#f7941c height=25>
                  <DIV align=left><STRONG class=white_link_9>最新认证学员</STRONG></DIV></TD>
                <TD width=65 bgColor=#f7941c></TD></TR></TBODY></TABLE><BR>
                <TABLE cellSpacing=0 cellPadding=0 width="97%" border=0>
                  <TBODY>
                    <TR>
                      <TD vAlign=top align=middle><%
sql="select top 6 id,name,sex,rdate,gzcs,zye,gzdd,zy,province,city,xian,vip from in_user where lock=false and name<>''and rz=1  order by rdate desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
rs.close
response.write "暂时没有学员用户!" 
else
%>
                          <table border="0" width="187" cellspacing="0" cellpadding="0" id="table12" height="49">
                            <tr>
                              <td height="25" bgcolor="#DAE3DA" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="87" align="center"><p> <b>学员姓名</b></td>
                              <td height="25" bgcolor="#DAE3DA" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="100" align="center"><STRONG>辅导科目</STRONG></td>
                            </tr>
                            <%
for ii=1 to 6
%>
                            <tr>
                              <td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; " width="87" height="25" align="center" background="images/bg1.gif"><a  target =_blank href="student.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("gzdd")%></font></td>
                            </tr>
                            <%

⌨️ 快捷键说明

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