project_query.asp

ASP程序实现的科技期刊系统

				group[0][1]=new Option(" ","")
				group[1][0]=new Option("","")
				group[1][1]=new Option("未接收","未接收")
				group[1][2]=new Option("退回","退回")
				group[2][0]=new Option("","")
				group[2][1]=new Option("未接收","未接收")
				group[2][2]=new Option("退回","退回")
				group[3][0]=new Option("","")
				group[3][1]=new Option("未接收","未接收")
				group[3][2]=new Option("退回","退回")
				group[4][0]=new Option("","")
				group[4][1]=new Option("未审","未审")
				group[4][2]=new Option("退回","退回")
				group[5][0]=new Option("","")
				group[5][1]=new Option("未立项","未立项")
				group[5][2]=new Option("退回","退回")
				group[6][0]=new Option("","")
				group[6][1]=new Option("未审核","未审核")
				group[6][2]=new Option("审核","审核")
				group[7][0]=new Option("","")
				group[7][1]=new Option("未审核","未审核")
				group[7][2]=new Option("审核","审核")

				var selobj=document.form1.JDZK;

				for (m=selobj.options.length-1;m>0;m--)
				selobj.options[m]=null
				for (i=0;i<group[x].length;i++)
					{
					selobj.options[i]=group[x][i]
					}0
					selobj.options[0].selected=true
				}
				
</script>
              </td>
            </tr>
            <tr bgcolor="#CAEAFF"> 
              <td width="14%" align="right"> 
                <div align="right">年度批次</div>
              </td>
              <td width="2%">&nbsp;</td>
              <td width="35%" bgcolor="#CAEAFF"> 
                <input type="text" name="NDPC" maxlength="3" size="7" value="<%=session("NDPC")%>">
                至 
                <input type="text" name="NDPC2" maxlength="3" size="7">
              </td>
              <td align="right" bgcolor="#CAEAFF" width="11%">推荐标志 </td>
              <td align="right" bgcolor="#CAEAFF" width="2%">&nbsp;</td>
              <td bgcolor="#CAEAFF" width="36%"> 
                <select name="TJBZ">
                  <option> </option>
                  <option value="Y">Y</option>
                  <option value="N">N</option>
                </select>
                修改标志 
                <select name="XGBZ">
                  <option> </option>
                  <option value="Y">Y</option>
                  <option value="N">N</option>
                </select>
              </td>
            </tr>
            <tr bgcolor="#CAEAFF"> 
              <td width="14%" align="right">主管部门类别</td>
              <td width="2%">&nbsp;</td>
              <td width="35%">
			  <select name="DepartType" onChange="set_List2(this.options.selectedIndex)" style="width:118pt;">
                        <option > </option>
                        <%
                        rstLB.MoveFirst 
                        for i=1 to rstLB.RecordCount %>
                        <option value="<%=rstLB.Fields("主管部门类别").Value%>" <%if departType=rstLB.fields("主管部门类别") then response.write "selected" end if%>><%=rstLB.Fields("主管部门类别").Value %></option>
                        <%rstLB.MoveNext 
                     next
                     rstLB.Close
                     set rstLB=nothing
                     %>
                      </select>
			  </td>
              <td align="right" width="11%">主管部门</td>
              <td align="right" width="2%">&nbsp;</td>
              <td width="36%">
<select name="Depart">
                        <%
                  if rst5.RecordCount<>0 then
                        for i=1 to rst5.RecordCount %>
                        <option value="<%=rst5.Fields("用户编码").Value%>" <%if Depart=rst5.fields("用户编码") then response.write "selected" end if%>><%=rst5.Fields("用户姓名").Value %></option>
                        <%rst5.MoveNext 
						next
						rst5.Close
						set rst5=nothing
				end if
                     %>
                      </select>
                <script language="JavaScript">
				function set_List2(x)
				{
				var l=document.form1.DepartType.length ;
				var group=new Array(l);
				for (i=0;i<l;i++)
				group[i]=new Array();
				<% for i=0 to Num
				   for j=0 to rst(i).recordcount-1
				response.write "group["&i+1&"]["&j&"]=new Option("""&rst(i)("用户姓名")&""","""&rst(i)("用户编码")&""");"
				response.write chr(13)
				rst(i).movenext
				next
				next
				%>
				var selobj=document.form1.Depart;
				for (m=selobj.options.length-1;m>0;m--)
				selobj.options[m]=null
				for (i=0;i<group[x].length;i++)
					{
					selobj.options[i]=group[x][i]
					}0
					selobj.options[0].selected=true
				}
</script>			  </td>
            </tr>
            <tr bgcolor="#CAEAFF"> 
              <td colspan="6" align="center" height="10"> <img src="../MessageBox/Images/colorbar.gif" width="560" height="2" align="middle"></td>
            </tr>
            <tr bgcolor="#CAEAFF"> 
              <td width="14%" align="right">主持单位</td>
              <td width="2%">&nbsp;</td>
              <td width="35%"> 
                <input type="text" name="ZhuChiCom" maxlength="60">
              </td>
              <td width="11%" align="right">所在区</td>
              <td width="2%">&nbsp;</td>
              <td width="36%"> 
                <select name="ShuoZaiQv">
                  <option selected>　　　　　　　　　　</option>
                  <option value="浑南新区">浑南新区</option>
                  <option value="张士开发区">张士开发区</option>
                  <option value="农业高新区">农业高新区</option>
                  <option value="沈河区">沈河区</option>
                  <option value="和平区">和平区</option>
                  <option value="大东区">大东区</option>
                  <option value="铁西区">铁西区</option>
                  <option value="皇姑区">皇姑区</option>
                  <option value="于洪区">于洪区</option>
                  <option value="东陵区">东陵区</option>
                  <option value="新城子">新城子</option>
                  <option value="苏家屯">苏家屯</option>
                  <option value="法库">法库</option>
                  <option value="新民">新民</option>
                  <option value="辽中">辽中</option>
                  <option value="康平">康平</option>
                  <option value="其它">其它</option>
                </select>
              </td>
            </tr>
            <tr bgcolor="#CAEAFF"> 
              <td width="14%" align="right">法人代码</td>
              <td width="2%">&nbsp;</td>
              <td width="35%"> 
                <input type="text" name="FaRenCode" maxlength="50">
              </td>
              <td width="11%" align="right">企业特性</td>
              <td width="2%">&nbsp;</td>
              <td width="36%"> 
                <select name="ComPanyPro" style="width:118pt;">
                  <option>　　　　　　　　　　</option>
                  <%for i=1 to rst2.recordcount%>
                  <option value="<%=rst2("特性名称")%>"><%=rst2("特性名称")%></option>
                  <%
				  rst2.movenext
				  next
				  rst2.close
				  set rst2=nothing
				  %>
                </select>
              </td>
            </tr>
            <tr bgcolor="#CAEAFF"> 
              <td width="14%" align="right">单位类型</td>
              <td width="2%">&nbsp;</td>
              <td width="35%"> 
                <select name="CompanyType" style="width:118pt;">
                  <option>　　　　　　　　　　</option>
                  <option value="<%=rst3("单位类别")%>"><%=rst3("类别名称")%></option>
                </select>
              </td>
              <td width="11%" align="right">注册类型</td>
              <td width="2%">&nbsp;</td>
              <td width="36%"> 
                <select name="RegType" style="width:118pt;">
                  <option>　　　　　　　　　　</option>
                  <%for i=1 to rst4.recordcount%>
                  <option value="<%=rst4("注册类型")%>"><%=rst4("注册类型")%></option>
                  <%
				  rst4.movenext
				  next
				  rst4.close
				  set rst4=nothing
				  %>
                </select>
              </td>
            </tr>
            <tr bgcolor="#336699"> 
              <td width="14%" height="20" bgcolor="#336699" align="right"> 
                <div align="right"> 
                  <input type="checkbox" name="checkbox" value="checkbox">
                  <font color="#FF0000"> <font color="#FFFFFF">模糊查询</font></font></div>
              </td>
              <td width="2%" height="20">&nbsp; </td>
              <td width="35%" bgcolor="#336699" height="20"> 
                <div valign="center"> 
                  <div align="right"><font color="#FFFFFF">当前角色</font> 
                    <select name="role" >
                      <%for i=1 to objres.RecordCount %>
                      <option value="<%=objres("角色编码")%>"><%=objres("角色名称")%></option>
                      <%
                      objres.MoveNext 
                      next
					  objres.close
					  set objres=nothing
                      %>
                    </select>
                  </div>
                </div>
              </td>
              <td colspan="3" bgcolor="#336699" height="20"> 
                <div align="right"> 
                  <input class="button" type="submit" name="Submit" value="查询">
                  <input class="button" type="reset" name="Submit2" value="重填">
                  <% if Request.QueryString("query")="query" then %>
                  <input class="button" type="button" name="Submit3" value="返回"onClick="back()">
                  <% end if%>
                </div>
              </td>
            </tr>
          </form>
        </table>
      </td>
    </tr>
  </table>
</div>
<script language="vbscript">
function back()
history.back 
end function
</script>