📄 xs_adminlist.asp
字号:
if (frm_search.FBSJ_FROM_R.value ==" ")
{
alert(" 『新闻发布时间-FROM』-『年』-『月』-『日』填写完整。");
frm_search.FBSJ_FROM_R.focus();
return false;
}
}
if ((frm_search.FBSJ_TO_N.value !="") || (frm_search.FBSJ_TO_Y.value !=" ") || (frm_search.FBSJ_TO_R.value !=" "))
{
if (frm_search.FBSJ_TO_N.value =="")
{
alert(" 『新闻发布时间-TO』-『年』-『月』-『日』填写完整。");
frm_search.FBSJ_TO_N.focus();
return false;
}
if (frm_search.FBSJ_TO_Y.value ==" ")
{
alert(" 『新闻发布时间-TO』-『年』-『月』-『日』填写完整。");
frm_search.FBSJ_TO_Y.focus();
return false;
}
if (frm_search.FBSJ_TO_R.value ==" ")
{
alert(" 『新闻发布时间-TO』-『年』-『月』-『日』填写完整。");
frm_search.FBSJ_TO_R.focus();
return false;
}
}
if ((frm_search.FBSJ_FROM_N.value !="")&&(frm_search.FBSJ_TO_N.value !="")&&(parseInt(frm_search.FBSJ_FROM_N.value,10) > parseInt(frm_search.FBSJ_TO_N.value,10)))
{
alert(" 请正确填写新闻发布时间年份-TO>=FROM！\r\n\r\n[1900～2050]");
frm_search.FBSJ_TO_N.focus();
return false;
}
frm_search.submit();
return true;
}
//-->
</SCRIPT>
<%
'page = Trim(SafeRequest("start",1))
FBSJ_FROM_N = Trim(Request("FBSJ_FROM_N"))
FBSJ_FROM_Y = Trim(Request("FBSJ_FROM_Y"))
FBSJ_FROM_R = Trim(Request("FBSJ_FROM_R"))
'新闻发布时间起始时间
if FBSJ_FROM_N <> "" and Not IsNULL(FBSJ_FROM_N) THEN
FBSJ_FROM = FBSJ_FROM_N + "-"
END IF
if FBSJ_FROM_Y <> "" and Not IsNULL(FBSJ_FROM_Y) THEN
FBSJ_FROM = FBSJ_FROM + FBSJ_FROM_Y + "-"
END IF
if FBSJ_FROM_R <> "" and Not IsNULL(FBSJ_FROM_R) THEN
FBSJ_FROM = FBSJ_FROM + FBSJ_FROM_R + "-"
END IF
FBSJ_TO_N = Trim(Request("FBSJ_TO_N"))
FBSJ_TO_Y = Trim(Request("FBSJ_TO_Y"))
FBSJ_TO_R = Trim(Request("FBSJ_TO_R"))
'新闻发布时间结束时间
if FBSJ_TO_N <> "" and Not IsNULL(FBSJ_TO_N) THEN
FBSJ_TO = FBSJ_TO_N + "-"
END IF
if FBSJ_TO_Y <> "" and Not IsNULL(FBSJ_TO_Y) THEN
FBSJ_TO = FBSJ_TO + FBSJ_TO_Y + "-"
END IF
if FBSJ_TO_R <> "" and Not IsNULL(FBSJ_TO_R) THEN
FBSJ_TO = FBSJ_TO + FBSJ_TO_R + "-"
END IF
ID = Trim(SafeRequest("ID",1))
xID = Trim(SafeRequest("xID",1))
GJC_1 = NULLToString(Trim(Request("GJC_1")))'关键字
JSMB = Trim(Request("JSMB"))'检索目标
ROrder = Trim(Request("ROrder"))'检索目标
SearchDisplay = Trim(Request("SearchDisplay"))
%>
<%
set rs1 = Server.CreateObject("ADODB.Recordset")
SQL_News = "SELECT * FROM 学生表_student where 1=1 "
if FBSJ_FROM <> "" then
SQL_News = SQL_News & " and KbeginT >= '" & ZhuDate((FBSJ_FROM)) & "'"
end if
if FBSJ_TO <> "" then
SQL_News = SQL_News & " and KendT <= '" & ZhuDate((FBSJ_TO)) & "'"
end if
if ID <> "" and Not IsNull(ID) then
SQL_News = SQL_News & " and nianji='"&grad&"' "
end if
if xID <> "" and Not IsNull(xID) then
SQL_News = SQL_News & " and class="&cint(xid)&""
end if
if JSMB = "ALL" or JSMB = "" or IsNull(JSMB) then
'-----------------------------------------------------------------------
if GJC_1 <> "" then
SQL_News = SQL_News & " and (name like '%"&GJC_1&"%' or rename like '%"&GJC_1&"%' or renamejp like '%"&GJC_1&"%' or renameqp like '%"&GJC_1&"%' "
SQL_News = SQL_News & ")"
end if
'-----------------------------------------------------------------------
end if'if JSMB = "ALL" or JSMB = "" or IsNull(JSMB) then
if JSMB = "name" then'-课题标题-
'-----------------------------------------------------------------------
if GJC_1 <> "" then
SQL_News = SQL_News & " and (name like '%"&GJC_1&"%' )"
end if
'-----------------------------------------------------------------------
end if'if JSMB = "name" then
if JSMB = "rename" then'-关键字-
'-----------------------------------------------------------------------
if GJC_1 <> "" then
SQL_News = SQL_News & " and (rename like '%"&GJC_1&"%' or renamejp like '%"&GJC_1&"%' or renameqp like '%"&GJC_1&"%' )"
end if
'-----------------------------------------------------------------------
end if'if JSMB = "rename" then
if JSMB = "xuehao" then'
'-----------------------------------------------------------------------
if GJC_1 <> "" then
SQL_News = SQL_News & " and (xuehao like '%"&GJC_1&"%' )"
end if
'-----------------------------------------------------------------------
end if'if JSMB = "rename" then
SQL_News = SQL_News & " and (AlreadyDeleted=0)"
if Lcase(ROrder) = Lcase("Orderbysh") then
SQL_News = SQL_News & " and sh=0"
end if
if Lcase(ROrder) = Lcase("OrderbyKhit") then
SQL_News = SQL_News & " order by CiShu DESC,ID DESC"
end if
'if Lcase(ROrder) = Lcase("OrderbyZhuanTiID") then
' SQL_News = SQL_News & " order by ZhuanTiID DESC,FBSJ DESC,KID DESC"
' end if
if Lcase(ROrder) = Lcase("OrderbyID") then
SQL_News = SQL_News & " order by ID DESC"
end if
if Lcase(ROrder) = Lcase("OrderbyJOIN") then
SQL_News = SQL_News & " order by JOINketi DESC,ID DESC"
end if
if Lcase(ROrder) = Lcase("Orderbyketi") then
SQL_News = SQL_News & " order by keti DESC,ID DESC"
end if
if ROrder = "" or IsNull(ROrder) then
SQL_News = SQL_News & " order by ID DESC"
end if
'Response.Write SQL_News
'Response.End
rs1.open SQL_News,Conn,3,1
%>
<SCRIPT language=JavaScript>
<!--
function IDchange()
{
frm_search.submit();
return true;
}
function ZhuanTiIDchange()
{
frm_search.submit();
return true;
}
function SFZDchange()
{
frm_search.submit();
return true;
}
function JSMBchange()
{
frm_search.submit();
return true;
}
function ZTchange()
{
frm_search.submit();
return true;
}
function CheckROrder()
{
frm_search.submit();
return true;
}
//-->
</SCRIPT>
<script>
function ShowTableSearch(){
frm_search.SearchDisplay.value = "Y"; //是否显示为NO
TableNewsSearch.style.display = "";
TableDisplaySearch.style.display = "none";
//frm_search.submit();
}
</script>
<script>
function HideTableSearch(){
frm_search.SearchDisplay.value = "N"; //是否显示为NO
TableNewsSearch.style.display = "none";
TableDisplaySearch.style.display = "";
//frm_search.submit();
}
</script>
<table border="1" width="100%" cellspacing="0" cellpadding="2" id=TableNewsSearch>
<tr>
<td align="left" valign="top">
<!--<font color="#7C96B8">年级：</font>
<select name="ID" class="xselect-1" size="1" onchange="return IDchange()">
<option value="" <%if ID = "" or IsNull(ID) then%>Selected<%end if%>>所有年级</option>
<option value="1" <%if ID = "1" then%>Selected<%end if%>>高一年级</option>
<option value="2" <%if ID = "2" then%>Selected<%end if%>>高二年级</option>
<option value="3" <%if ID = "3" then%>Selected<%end if%>>高三年级</option>
</select>
<option value="" <%if xID = "" or IsNull(xID) then%>Selected<%end if%>>所有班级</option>
<% if ID = "1" then classNUB=session("class1")%>
<% if ID = "2" then classNUB=session("class2")%>
<% if ID = "3" then classNUB=session("class3")%>
<font color="#7C96B8">班级：</font>
<select class="xselect-1" name="xID" size="1" onchange="return ZTchange()">
<option value="" <%if xID = "" or IsNull(xID) then%>Selected<%end if%>>所有班级</option>
<%
for j=1 to classNUB
%> <option value="<%=j%>" <%if xID<>"" then%><%if cint(xID) =j then%>Selected<%end if%><%end if%>>（<%=j%>）班</option>
<%next%></select>-->
<font color="#7C96B8">检索：</font><select class="xselect-1" name="JSMB" size="1" >
<option value="ALL" <%if JSMB = "ALL" or JSMB = "" or IsNull(JSMB) then%>Selected<%end if%>>常用字段</option>
<option value="rename" <%if JSMB = "rename" then%>Selected<%end if%>>真实姓名</option>
<option value="xuehao" <%if JSMB = "xuehao" then%>Selected<%end if%>>--学号--</option>
</select>
<font color="#7C96B8">关键词：</font><font color="#7C96B8"></font><input type="text" class="xselect-texbox-1" name="GJC_1" size="12" Value="<%=GJC_1%>" onFocus="this.focus();this.select();" title="此字段支持模糊查询!<%=Str_BR%>真实姓名支持简拼和全拼!<%=Str_BR%>此字段不支持空格输入！<%=Str_BR%>如果是带空格的特殊词语（如英文、蒙文等）则用粘贴文本录入！" onkeypress="NoSpace();"> <input type="hidden" name="SearchDisplay" Value="<%=SearchDisplay%>">
<input type="submit" name="BSearch" value="提交查询" onclick="return checkinput()"> <input type="button" value="全部显示" onclick="document.location='XS_AdminList.asp'" title="全部显示所有记录"> <a href="javascript:HideTableSearch();"><img alt="隐藏检索窗体界面" border=0 height=9 src="images/HideUp.gif" width=9><font color="gray" title="隐藏检索窗体界面">隐藏查询窗体</font></a>
</td>
</tr>
</table>
<%
end sub
%>
<%
if SearchDisplay = "Y" then
%>
<script>
{
//ShowTableSearch();//隐藏检索框
frm_search.SearchDisplay.value = "Y"; //是否显示为NO
TableNewsSearch.style.display = "";
TableDisplaySearch.style.display = "none";
}
</script>
<%
else
%>
<script>
{
//HideTableSearch();//隐藏检索框
frm_search.SearchDisplay.value = "N"; //是否显示为NO
TableNewsSearch.style.display = "none";
TableDisplaySearch.style.display = "";
}
</script>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -