📄 allxkf.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charsnet=gb2312" />
<title>管理</title>
<LINK href="mainimages/style.css" type="text/css" rel="stylesheet">
<body >
</head>
<!--#include file="piaoy.inc"-->
<!--#include file="hyyxlAdmin.asp"-->
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<script>
function fncSelectAll(flag1,flag2)
{
if (frm1.llBox.checked==true)
{
yesorno.innerText="全选本页"
var objs=document.getElementsByTagName("INPUT")
{for(var i=0;i<objs.length;i++){
if (objs[i].type=="checkbox")
objs[i].checked=flag1;}}
}
else
{
yesorno.innerText="全选本页"
var objs=document.getElementsByTagName("INPUT")
{for(var i=0;i<objs.length;i++){
if (objs[i].type=="checkbox")
objs[i].checked=flag2;}}
}
}
</script>
<body>
<%
kfglzlbm=session("kfglzlbm")
kfglfzbm=session("kfglfzbm")
kfglsjdxbm=session("kfglsjdxbm")
kfglscsjbm=session("kfglscsjbm")
kfglgrdxkbm=session("kfglgrdxkbm")
kfgldxlsjlbm=session("kfgldxlsjlbm")
kfgldxlsjlxxbm=session("kfgldxlsjlxxbm")
kfglyfkjlbm=session("kfglyfkjlbm")
kfgldxlsjlbm=session("kfgldxlsjlbm")
kfgldxlsjlxxbm=session("kfgldxlsjlxxbm")
kfglyfkjlbm=session("kfglyfkjlbm")
session("dxgs")=""
session("kfid")=""
session("txtAddId")=""
session("tj")=""
session("sqllb")=""
%>
<% if request("wchar")<>"" then
function getpychar(char)
tmp=65536+asc(char)
if(tmp>=45217 and tmp<=45252) then
getpychar= "A"
elseif(tmp>=45253 and tmp<=45760) then
getpychar= "B"
elseif(tmp>=45761 and tmp<=46317) then
getpychar= "C"
elseif(tmp>=46318 and tmp<=46825) then
getpychar= "D"
elseif(tmp>=46826 and tmp<=47009) then
getpychar= "E"
elseif(tmp>=47010 and tmp<=47296) then
getpychar= "F"
elseif(tmp>=47297 and tmp<=47613) then
getpychar= "G"
elseif(tmp>=47614 and tmp<=48118) then
getpychar= "H"
elseif(tmp>=48119 and tmp<=49061) then
getpychar= "J"
elseif(tmp>=49062 and tmp<=49323) then
getpychar= "K"
elseif(tmp>=49324 and tmp<=49895) then
getpychar= "L"
elseif(tmp>=49896 and tmp<=50370) then
getpychar= "M"
elseif(tmp>=50371 and tmp<=50613) then
getpychar= "N"
elseif(tmp>=50614 and tmp<=50621) then
getpychar= "O"
elseif(tmp>=50622 and tmp<=50905) then
getpychar= "P"
elseif(tmp>=50906 and tmp<=51386) then
getpychar= "Q"
elseif(tmp>=51387 and tmp<=51445) then
getpychar= "R"
elseif(tmp>=51446 and tmp<=52217) then
getpychar= "S"
elseif(tmp>=52218 and tmp<=52697) then
getpychar= "T"
elseif(tmp>=52698 and tmp<=52979) then
getpychar= "W"
elseif(tmp>=52980 and tmp<=53640) then
getpychar= "X"
elseif(tmp>=53689 and tmp<=54480) then
getpychar= "Y"
elseif(tmp>=54481 and tmp<=62289) then
getpychar= "Z"
end if
end function
function getpy(str)
for i=1 to len(str)
getpy=getpy&getpychar(mid(str,i,1))
next
end function
Set rs = Server.CreateObject ("ADODB.Recordset")
if request("xkfzb")="all" then
sql="select * from "&kfglzlbm&" where (xkfscbj is null or xkfscbj=0) and kfglid=" &request("kfglid")&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where (xkfscbj is null or xkfscbj=0) and kfglid=" &request("kfglid")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
else
sql="select * from "&kfglzlbm&" where (xkfscbj is null or xkfscbj=0) and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where (xkfscbj is null or xkfscbj=0) and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
end if
rs.Open sql,conn,1,3
if rs.EOF and rs.BOF then
else
for i=1 to rs.recordcount
if(left(rs("xkfxm"),1)="1") then
sz="Y"
elseif(left(rs("xkfxm"),1)="2") then
sz="E"
elseif(left(rs("xkfxm"),1)="3") then
sz="S"
elseif(left(rs("xkfxm"),1)="4") then
sz="S"
elseif(left(rs("xkfxm"),1)="5") then
sz="W"
elseif(left(rs("xkfxm"),1)="6") then
sz="L"
elseif(left(rs("xkfxm"),1)="7") then
sz="Q"
elseif(left(rs("xkfxm"),1)="8") then
sz="B"
elseif(left(rs("xkfxm"),1)="9") then
sz="J"
elseif(left(rs("xkfxm"),1)="0") then
sz="L"
end if
if getpychar(rs("xkfxm"))=request("wchar") or UCase(left(rs("xkfxm"),1))=request("wchar") or sz=request("wchar") then
id=id&"xkfid="&rs("xkfid")&" or "
end if
rs.movenext
next
rs.close
Set rs = Nothing
end if
end if
%>
<%
page=cint(Request.QueryString("page"))
pagecount=cint(request("page"))
set rsn=Server.CreateObject("ADODB.RecordSet")
if id="" and request("wchar")="" then
if request("xkfzb")="all" then
sql="select * from "&kfglzlbm&" where (xkfscbj is null or xkfscbj=0) and kfglid=" &request("kfglid")&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where (xkfscbj is null or xkfscbj=0) and kfglid=" &request("kfglid")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
else
sql="select * from "&kfglzlbm&" where (xkfscbj is null or xkfscbj=0) and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" order by xkfid desc"
sqllb="select * from "&kfglzlbm&" where (xkfscbj is null or xkfscbj=0) and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12 and xkfsj like '0%')) "
end if
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -