📄 e_installmainfrm.asp
字号:
<%
'*********************************页面说明区****************************
'开发者 金寿吉
'首次开发时间 2001-08-31
'最后一次修改时间 2001-09-04
'主要功能 安装调试报告单 %>
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
'******************************变量的说明**********************************
dim UserName '当前用户名
dim userclass '表示用户的权限级别
dim userCheck '表示用户是否有审核权限
dim Authors(20) '表示文档集合的作者
dim DepartID(20) '表示文档集合的部门标识
Dim DataRow '数据的实际行数
dim TotalPage '总页数
dim curPage '当前页
dim NextPage '下一页
dim PrevPage '前一页
dim Keyitem(20,10) '保存数据的值的数组(行小于20，列小于10)
dim ShowField '主要显示的字段
dim DelSucc '表示删除数据成功的标志
'*********************************设置常量和变量的值************************
'bgColor ：表示主页背景颜色 firstclor ：表示奇数行的颜色
'SecondColor：表示偶数行的颜色 MainTable ：主表名(控制对用户的权限)
'budStyle ：表示按纽的样式 TableSql ：查询表达式
'TableOrder ：表示查询中的排序字样 ShowField ：主要显示的字段
'MainPage ：对应的详细页面 RowCount ：控制的最多显示的行数
const bgcolor="#ffffff"
const firstcolor="#f7f7f7"
const secondcolor="#EDEBEC"
const MainTable="E_ProdBuild"
const budStyle="background-color: #D1D1D1; border-style: solid; border-width:1"
const TableSql="select ID,BillID,ClientName,ArriveTime,GiveTime,GivePerson,Authors,DepartId from ES_ProdBuild where 1=1"
const TableOrder="BillID Desc"
ShowField="ID,BillID,ClientName,ArriveTime,GiveTime,GivePerson"
DelSucc=1
Const MainPage="E_InstallSubFrm.asp"
Const KeyField="BillID"
Const RowCount=12
%>
<!--#include file="../BaseInfo/ListData1.Server"-->
<% Set PubConn=Nothing %>
<Script Language="VBScript">
'功能：表单的初始化代码
sub formini()
document.forms(0).billID.value="<%=Request("billID")%>"
document.forms(0).ClientName.value="<%=Request("ClientName")%>"
document.forms(0).bYear.value="<%=Request("bYear")%>"
document.forms(0).bMonth.value="<%=Request("bMonth")%>"
document.forms(0).bday.value="<%=Request("bDay")%>"
document.forms(0).eYear.value="<%=Request("eMonth")%>"
document.forms(0).eMonth.value="<%=Request("eMonth")%>"
document.forms(0).eDay.value="<%=Request("eDay")%>"
document.forms(0).Condition.value="<%=Condition%>"
document.forms(0).gopage.value="<%=Request("gopage")%>"
if document.forms(0).gopage.value="" then document.forms(0).gopage.value="1"
document.forms(0).Condition.value="<%=Condition%>"
'*********************调整年、月和日************************
lcYear=cstr(year(now))
lcMonth=Month(now)
lcDay=Day(now)
if lcMonth<10 then
lcMonth="0"+cstr(lcMonth)
else
lcMonth=cstr(lcMonth)
end if
if lcday<10 then
lcday="0"+cstr(lcDay)
else
lcDay=cstr(lcDay)
end if
if document.forms(0).bYear.value="" then
document.forms(0).bYear.value=lcYear
end if
if document.forms(0).eYear.value="" then
document.forms(0).eYear.value=lcYear
end if
if document.forms(0).bMonth.value="" then
document.forms(0).bMonth.value="01"
end if
if document.forms(0).eMonth.value="" then
document.forms(0).eMonth.value=lcMonth
end if
if document.forms(0).bDay.value="" then
document.forms(0).bDay.value="01"
end if
if document.forms(0).eDay.value="" then
document.forms(0).eDay.value=lcDay
end if
document.forms(0).gopage.value="<%=gopage%>"
if document.forms(0).gopage.value="" then document.forms(0).gopage.value="1"
End Sub
'功能：形成查询条件
Sub SearchClick()
dim lcBillId,lcClientName
dim lcBegin,lcEnd
dim condition
lcBillID=trim(document.forms(0).billid.value)
lcClientName=trim(document.forms(0).ClientName.value)
lcBegin=document.forms(0).bYear.value+"-"+document.forms(0).bMonth.value+"-"+document.forms(0).bday.value
lcEnd=document.forms(0).eYear.value+"-"+document.forms(0).eMonth.value+"-"+document.forms(0).eday.value
if lcEnd<lcBegin then
msgbox "终止时间应不小于开始时间！！",48,"错误信息"
else
condition="GiveTime>='"+lcBegin+"' and GiveTime<='"+lcEnd+"'"
end if
if lcBillID<>"" then
condition=Condition+" and billID='"+lcBillID+"'"
end if
if lcClientName<>"" then
Condition=Condition+" and ClientName like '%"+lcClientName+"%'"
end if
document.forms(0).Condition.value=condition
document.forms(0).submit()
End Sub
</Script>
<!--#include file="../BaseInfo/ListData.Client"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>客户服务通知单</title>
<link href="../cread.css" rel="stylesheet" type="text/css"></head>
<body bgcolor="#FFFFFF" onload="formini()">
<form method="GET" action="E_InstallMainFrm.asp" name="fn">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font><font size="2">安装调试报告单</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<table border="1" width="100%" cellspacing="0" cellpadding="0" height="30">
<tr>
<td width="100%" height="35" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle" align="center">
<p align="left" style="margin-left: 40"><font size="2" face="宋体">
<b>单据编号：</b><input maxLength="32" name="billID" size="26" tabindex="1"> </font>
<font size="2" face="宋体"><b>客户名称：</b><input maxLength="32" name="ClientName" size="35" tabindex="1"></font>
</td>
</tr>
<tr>
<td width="100%" height="30" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="top" align="center">
<p style="margin-left: 40" align="left"><font size="2" face="宋体"><b>交货时间：<select size="1" name="byear">
<% for i=1990 to 2010 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select></b><b>年 <select size="1" name="bMonth">
<% for i=1 to 12
if i<10 then
j="0"+cstr(i)
else
j=cstr(i)
end if %>
<option value="<%=j%>"><%=j%></option>
<% next %>
</select>月 <select size="1" name="bDay">
<% for i=1 to 31
if i<10 then
j="0"+cstr(i)
else
j=cstr(i)
end if %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -