| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 781 人关注过本帖
标题:求语句解释,请懂的人赐教!
只看楼主 加入收藏
mpdeng
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2014-7-25
结帖率:33.33%
收藏
已结贴  问题点数:16 回复次数:3 
求语句解释,请懂的人赐教!
<[email=%@language=vbscript]%@language=vbscript[/email] codepage=936 %>
<%
if  session("name") <> "admin" then
response.Redirect "index.asp"
end if
%>
<style type="text/css">
<!--
td {
font-size: 12px;

}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
-->
</style>
<!-- #include file="BGMConn.asp" -->
<!-- #include file="LIB/Functionn.asp" -->
<%
dim strFileName
const MaxPerPage=30
dim totalPut,CurrentPage,TotalPages
dim i,j
dim ID
dim Title
dim sql,rs
dim BigClassName,SmallClassName,SpecialName
dim PurviewChecked
dim strAdmin,arrAdmin
PurviewChecked=false
session("purview")=3
strFileName="gzmanage.asp"
Title=Trim(request("Title"))
ID=Request("ID")   这个ID的默认值是多少?
select_tine=Trim(request("select_t"))
if request("page")<>"" then   请问这个PAGE默认值是多少
    currentPage=cint(request("page"))
else
currentPage=1
end if
sql="select * from jhgz "
if Title<>"" then
sql=sql & " where  name like '%" & Title & "%' "
end if
if select_tine<>"" then
sql=sql & "where time=#"&select_tine&"# "
'session("select_tine")=select_tine
end if
sql=sql & " order by ID desc"
'Response.Write(sql)
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<SCRIPT language=javascript>
function unselectall()
{
    if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
    }  
}
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements;
    if (e.Name != "chkAll")
       e.checked = form.chkAll.checked;
    }
  }
function ConfirmDel()
{
   if(confirm("确定要删除选中的用户吗?一旦删除将不能恢复!"))
     return true;
   else
     return false;
  
}
function CheckForm()
{
if(document.form1.select.value=="0")
{
  alert("请输入查询时间!");
  document.form1.select.focus();
  return false;
}



}

</SCRIPT>
<link href="Css.css" rel="stylesheet" type="text/css">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse:collapse">
  <tr>
    <td  align="center" valign="top"><br>
      <b> </b>
      <p align="center"><strong>工 资
        管 理</strong>    </p>
      <p align="center"><a href="addgz.asp" >添加工资单</a>  
   <a href="xlsdaoaccesst.asp" target="_blank">导入用户数据</a>
    <a href="daogzdsjt.asp" target="_blank">导入主工资单数据</a>
    <a href="daogzdsjtqt.asp" target="_blank">导入其他工资单数据</a>  
     <a href="usrmanage.asp" target="_blank">用户管理</a>  
   <a href="loigoout.asp" >退出</a>
   
   </p>
      <a href="javascript:window.print();">打印工资单</a>
   <form id="form1" name="form1" method="post" action="gzmanage.asp">

  <select name="select_t" size="1">
  <option value="0" >请选择查询时间</option>
     <% dim char(20)  '定义显示21个列表项目
     i=0
  see=0
  c=0
     sql="select * from jhgz "
     set time_rs=server.CreateObject("adodb.recordset")
  time_rs.open sql,conn,1,1
  do while Not time_rs.EOF
  
  for j=0 to i
  
   if char(j) = month(time_rs("time")) then
   
   see=1
   
         exit for
   
   else
   
   see = 0
   
   end if
   
   next
   
   if see=0 then
   char(i)=month(time_rs("time"))
  
  %>
    <option value="<%=time_rs("time")%>"><%=time_rs("time")%></option>
<%  
   'char(i)=time_rs("time")
   i=i+1
   end if
   time_rs.movenext
   loop
   time_rs.close
   set time_rs = nothing
%>
  
  </select>

  <input type="submit" name="Submit1" value="查询" />
  <input type="reset" name="Submit1" value="重置" />
  
</form>
      <form name="del" method="Post" action="delgz.asp">
      
     <table width="972" height="29" border="1" cellpadding="0" cellspacing="1" style="border-collapse:collapse" >
          <tr >
            <td width="534" height="25"><a href="gzmanage.asp"> 工资管理</a> &gt;&gt;
              <%
if request.querystring="" then
response.write "所有用户"
else
if request("Query")<>"" then
  if Title<>"" then
   response.write "名称中含有“<font color=blue>" & Title & "</font>”的用户"
  else
   response.Write("所有用户")
  end if
  
end if
end if
%>


            </td>
            <td width="429"  align="right">
              <%
   if rs.eof and rs.bof then
  response.write "共找到 0 个用户</td></tr></table>"
else
     totalPut=rs.recordcount
  if currentpage<1 then
         currentpage=1
     end if
     if (currentpage-1)*MaxPerPage>totalput then  什么情况下才会(currentpage-1)*MaxPerPage>totalput ?
      if (totalPut mod MaxPerPage)=0 then
        currentpage= totalPut \ MaxPerPage
     else
         currentpage= totalPut \ MaxPerPage + 1
      end if
     end if
  response.Write "共找到 " & totalPut & " 个用户"
%>
            </td>
          </tr>
        </table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
  <tr>
    <td> </td>
  </tr>
</table>
  <%  
     if currentPage=1 then
         showContent
         showpage strFileName,totalput,MaxPerPage,true,false,"个用户",select_tine
      else
          if (currentPage-1)*MaxPerPage<totalPut then
              rs.move  (currentPage-1)*MaxPerPage
           dim bookmark
             bookmark=rs.bookmark
             showContent
             showpage strFileName,totalput,MaxPerPage,true,false,"个用户",select_tine
         else
          currentPage=1
             showContent
             showpage strFileName,totalput,MaxPerPage,true,false,"个用户",select_tine
      end if
  end if
end if
%>
  这段的含义和作用?
      
        <%  
sub showContent
    dim i
    i=0
%>
        <table width="100%" border="1" cellpadding="0" cellspacing="1" style="border-collapse:collapse" >
          <tr  class="title">
            <td width="34" height="25" align="center"><strong>选中</strong></td>
            <td width="45" align="center">姓名</td>
            <td width="50" align="center">保留工资</td>
            <td width="17" align="center">岗位津贴</td>
            <td width="81" align="center">职岗津贴</td>
            <td width="18" align="center">综合补贴</td>
            <td width="17" align="center">薪级工资</td>
            <td width="15" align="center">课金</td>
            <td width="23" align="center">应发小计</td>
            <td width="19" align="center">养老保险</td>
            <td width="54" align="center">医疗金</td>
            <td width="57" align="center">失业金</td>
            <td width="49" align="center">公积金</td>
            <td width="44" align="center">工会费</td>
            <td width="43" align="center">房租</td>
            <td width="45" align="center">水电费</td>
            <td width="42" align="center">所得税</td>
            <td width="58" align="center">扣除小计</td>
            <td width="50" align="center">实发工资</td>
            <td width="87" align="center">时间</td>
            <td width="60" align="center" ><strong>操作</strong></td>
          </tr>
          <%do while not rs.eof%>
   
          <tr class="tdbg">
   
   
           <td width="34" height="22" align="center" >
              <input name='ID' type='checkbox' id="ID" value='<%=cstr(rs("ID"))%>'>
            </td>
            <td align="center"><a href="seetable.asp?id=<%=cstr(rs("ID"))%>"  target="_blank"><%= rs(1)%> </a></td>
            <%

   tr_i=2
Do While  tr_i < rs.Fields.Count - 6

   %>
            <td align="center"><%= rs(tr_i)%> </td>
            <%
   tr_i=tr_i+1
   loop
   
   %>
            <td align="center"><%= rs("time")%> </td>
            <td width="81" align="center" ><a href="gzedit.asp?ID=<%=rs("ID")%>">修改</a> <a href="delgz.asp?ID=<%=rs("ID")%>">删除</a></td>
          </tr>
          <%
i=i+1
       if i>=MaxPerPage then exit do
       rs.movenext
loop
%>
        </table>
              <table width="549" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
              选中本页显示的所有用户</td>
            <td width="335"><input name="submit" type='submit' value='删除选定的用户' >
            <input name="Action" type="hidden" id="Action" value="Del"></td>
          </tr>
        </table>
        <%
   end sub
%>
      </form>
      <br>
      <table width="970" border="0" cellpadding="0" cellspacing="0" class="border">
        <tr class="tdbg">
          <form name="searchsoft" method="get" action="gzmanage.asp">
            <td width="794" height="30"><strong>查找工资单:</strong>
              <input name="Title" type="text" class=smallInput id="Title" size="10" maxlength="20">
              <input name="Query" type="submit" id="Query" value="查 询">
                请输入“用户名“ 或 ”姓“ 或 ”名“。如果为空,则查找所有用户</td>
          </form>
        </tr>
      </table></td>
  </tr>
</table>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>


[ 本帖最后由 mpdeng 于 2014-8-6 08:50 编辑 ]
搜索更多相关主题的帖子: file style admin active include 
2014-08-06 08:48
hp3325
Rank: 2
等 级:论坛游民
帖 子:29
专家分:26
注 册:2009-6-7
收藏
得分:16 
就是分页嘛
2014-08-06 09:42
hp3325
Rank: 2
等 级:论坛游民
帖 子:29
专家分:26
注 册:2009-6-7
收藏
得分:0 
<input name='ID' type='checkbox' id="ID" value='<%=cstr(rs("ID"))%>'>
2014-08-06 09:45
mpdeng
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2014-7-25
收藏
得分:0 
回复 2 楼 hp3325
我晓得啊,大哥,详细点啊,我红色标注的地方!不太能看懂
2014-08-07 12:12
快速回复:求语句解释,请懂的人赐教!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048114 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved