📄 f_swhtbrow.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
username=Getuser()
userclass=TableVisitor("F_Tblcontract2",username)
if userclass<1 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=F_htjm.htm>返回</a>"
response.end
end if
%>
<%
'***************************************
'
'Author:Ruphi Update Time:2001-06-29
'功能说明：客户丢失报告记录信息浏览
'对某一些记录如果不是当前登陆者所有的，仍然不能删除的
'**************************************
%>
<%
hth=request("hth")
year1=request("year1")
month1=request("month1")
date1=request("date1")
'当年月日同时选择中了，才能进入查询条件，合并
if year1<>"" and month1<>"" and date1<>"" then
total1=year1+"-"+month1+"-"+date1
end if
'当年月日同时选择中了，才能进入查询条件，合并
year2=request("year2")
month2=request("month2")
date2=request("date2")
if year2<>"" and month2<>"" and date2<>"" then
total2=year2+"-"+month2+"-"+date2
end if
%>
<%
set htcx=server.createobject("adodb.recordset")
str="select * from F_Tblcontract2 where DepartID like '"&Session("DepartID")&"%'"
if hth<>"" then
str=str&" AND (contractNum='"&hth&"')"
end if
if total1<>"" and total2="" then
str=str&" AND (signtime='"&total1&"')"
end if
if total1="" and total2<>"" then
str=str&" AND (signtime='"&total2&"')"
end if
if total1<>"" and total2<>"" then
str=str&" AND (signtime between '"&total1&"' and '"&total2&"') "
end if
htcx.open str&"order by id desc",pubconn,1
'response.write str
'(htcx("Authors")<>Session("Username"))
'response.write htcx("Authors")&"<br>"
'response.write username
%>
<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>
<script language="vbscript">
sub GoPage()
page1=document.form1.page1.value
hth=document.myform.hth.value
year1=document.myform.year1.value
month1=document.myform.month1.value
date1=document.myform.date1.value
year2=document.myform.year2.value
month2=document.myform.month2.value
date2=document.myform.date2.value
a="F_swhtbrow.asp?page="+page1+"&hth="+hth+"&year1="+year1+"&month1="+month1+"&date1="+date1+"&year2="+year2+"&month2="+month2+"&date2="+date2
window.location=a
end sub
</script>
<body bgcolor="#FFFFFF">
<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" width="34" height="15"></font>
<font size="2">商务合同文稿明细查询</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="post" action="F_swhtbrow.asp" name="myform">
<table border="0" cellspacing="0" width="636" align="center" width="630" width="636">
<tr>
<td width="41" align="center" width="151" width="150" bgcolor="#F1E8DA">
<p align="right">
<font size="2">合同号
</font>
</p>
</td>
<td width="87" align="center" width="104" width="104" bgcolor="#F1E8DA">
<p align="left"> <input type="text" size="13" name="hth">
</p>
</td>
<td width="58" align="center" width="96" width="123" bgcolor="#F1E8DA">
<p align="right">
<font size="2">签订日期
</font>
</p>
</td>
<td width="478" align="center" width="263" width="243" bgcolor="#F1E8DA">
<font size="2">
<input type="text" size="4" name="year1" value="<%=year(date())%>">年<select name="month1" style="width: 51; height: 23" size="1">
<option value=""></option>
<%for i=1 to 9%>
<option value="<%="0"&i%>"
<%
if month1<>"" then
if cint(month1)=i then
response.write ("selected")
end if
end if
%>
><%="0"&i%></option>
<%next%>
<%for i =10 to 12%>
<option value="<%=i%>"
<%
if month1<>"" then
if cint(month1)=i then
response.write ("selected")
end if
end if
%>
><%=i%></option>
<%next%>
</select>月<select name="date1" style="width: 51; height: 23" size="1">
<option value=""></option>
<%for i=1 to 9%>
<option value="<%="0"&i%>"
<%
if date1<>"" then
if cint(date1)=i then
response.write ("selected")
end if
end if
%>
><%="0"&i%></option>
<%next%>
<%for i =10 to 31%>
<option value="<%=i%>"
<%
if date1<>"" then
if cint(date1)=i then
response.write ("selected")
end if
end if
%>
><%=i%></option>
<%next%>
</select>日 至<input type="text" size="4" name="year2" value="<%=year(date())%>">年<select name="month2" style="width: 51; height: 23" size="1">
<option value=""></option>
<%for i=1 to 9%>
<option value="<%="0"&i%>"
<%
if month2<>"" then
if cint(month2)=i then
response.write ("selected")
end if
end if
%>
><%="0"&i%></option>
<%next%>
<%for i =10 to 12%>
<option value="<%=i%>"
<%
if month2<>"" then
if cint(month2)=i then
response.write ("selected")
end if
end if
%>
><%=i%></option>
<%next%>
</select>月<select name="date2" style="width: 51; height: 23" size="1">
<option value=""></option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -