📄 e_reinyqtj.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<%
' 说明：客诉要求统计
' 作者：Ruphi
' 时间：2001-11-23
'
%>
<%
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
departcode=request("bm")
'投诉要求
set rsyq=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='ksyq'"
rsyq.open sql,Pubconn,1,1
if not rsyq.eof then
if not isnull(rsyq("NumValue")) then
reinyq=Split(trim(rsyq("NumValue")),",")
end if
end if
set rsyq=nothing
%>
<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" >
<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="E_wtlxtj.asp" name="myform">
<p>
<table border="0" cellspacing="0" width="100%" align="center" bgcolor="#F1E8DA" height="12">
<tr>
<td width="58" align="center" width="96" width="123" bgcolor="#F1E8DA" height="2">
<p align="right">
<font size="2">客诉部门</font>
</p>
</td>
<td width="478" align="center" width="263" width="243" bgcolor="#F1E8DA" height="2">
<p align="left"><font size="2">
<%
set rsbm=Server.CreateObject("ADODB.RecordSet")
sql="select * from A_DepartInfo where delflag<>'1'"
rsbm.open sql,Pubconn,1
%>
<select size="1" name="bm" style="width:120">
<option value="">全部</option>
<%do while not rsbm.eof %>
<option value="<%=rsbm("departcode")%>"
<%if departcode<>"" then
if departcode=rsbm("departcode") then
response.write ("selected")
end if
end if
%>
><%=rsbm("name")%></option>
<%
rsbm.movenext
loop
%>
</select>
</p>
</font>
</td>
</tr>
<tr>
<td width="58" align="center" width="96" width="123" bgcolor="#F1E8DA" height="50">
<p align="right">
<font size="2">客诉日期
</font>
</p>
</td>
<td width="478" align="center" width="263" width="243" bgcolor="#F1E8DA" height="50">
<p align="left">
<font size="2">
<input type="text" size="4" name="year1" <%if year1<>"" then %> value="<%=year1%>" <%end if%> 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" <%if year2<>"" then %> value="<%=year2%>" <%end if%> 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 + -