您的位置：首页 > 移动开发

Response.ContentType = "application/vnd.ms-excel"

2007-03-08 17:15 316 查看

<%
Response.ContentType = "application/vnd.ms-excel"
dim pj(6),aa(6),bb(6),cc(6),dd(6),ee(6),ff(6),gg(6),hh(6),ii(6),jj(6),kk(6),lll(6)

function chanshow(sssss)
if trim(sssss)="1900/1/1" or trim(sssss)="" then
changeshow=""
else
if instr(sssss,"/")>1 then
'response.Write sssss&"<br>"
mydate=split(sssss,"/")
myyyyy=mydate(0)
mymmmm=mydate(1)
mydddd=mydate(2)
if len(mymmmm)=1 then mymmmm="0"&mymmmm
if len(mydddd)=1 then mydddd="0"&mydddd
chanshow=mydddd&"/"&mymmmm&"/"&myyyyy
'response.write chanshow&"<br>"
else
chanshow=sssss
end if
end if
end function

public ll
public a()
dim b(6)
dim an(8)
od=trim(request("od"))
if od="" then
od="id"
end if
mod_no=trim(Request("mod_no"))
fittings_no=trim(Request("fittings_no"))
fittings_sort=trim(Request("fittings_sort"))
zt=trim(Request("zt"))
gtyear=request("gtyear")
gtmonth=request("gtmonth")
gtrtime=trim(gtyear)&"/"&trim(gtmonth)

shuru_bm=trim(Request("shuru_bm"))
if request("yq_riqi")="" or request("yq_riqi2")="" then
yq_riqi_day=trim(Request("yq_riqi_day"))
yq_riqi_day2=trim(Request("yq_riqi_day2"))
yq_riqi_month=trim(Request("yq_riqi_month"))
yq_riqi_month2=trim(Request("yq_riqi_month2"))
yq_riqi_year=trim(Request("yq_riqi_year"))
yq_riqi_year2=trim(Request("yq_riqi_year2"))
yq_riqi=yq_riqi_year&"/"&yq_riqi_month&"/"&yq_riqi_day
yq_riqi2=yq_riqi_year2&"/"&yq_riqi_month2&"/"&yq_riqi_day2
else
yq_riqi=request("yq_riqi")
yq_riqi2=request("yq_riqi2")
end if

if request("yq_riqim")="" or request("yq_riqi2m")="" then
yq_riqi_daym=trim(Request("yq_riqi_daym"))
yq_riqi_day2m=trim(Request("yq_riqi_day2m"))
yq_riqi_monthm=trim(Request("yq_riqi_monthm"))
yq_riqi_month2m=trim(Request("yq_riqi_month2m"))
yq_riqi_yearm=trim(Request("yq_riqi_yearm"))
yq_riqi_year2m=trim(Request("yq_riqi_year2m"))
yq_riqim=yq_riqi_yearm&"/"&yq_riqi_monthm&"/"&yq_riqi_daym
yq_riqi2m=yq_riqi_year2m&"/"&yq_riqi_month2m&"/"&yq_riqi_day2m
else
yq_riqim=request("yq_riqim")
yq_riqi2m=request("yq_riqi2m")
end if

if request("f_riqi")="" or request("f_riqi2")="" then
f_riqi_day=trim(Request("f_riqi_day"))
f_riqi_day2=trim(Request("f_riqi_day2"))
f_riqi_month=trim(Request("f_riqi_month"))
f_riqi_month2=trim(Request("f_riqi_month2"))
f_riqi_year=trim(Request("f_riqi_year"))
f_riqi_year2=trim(Request("f_riqi_year2"))
f_riqi=f_riqi_year&"/"&f_riqi_month&"/"&f_riqi_day
f_riqi2=f_riqi_year2&"/"&f_riqi_month2&"/"&f_riqi_day2
else
f_riqi=request("f_riqi")
f_riqi2=request("f_riqi2")
end if

if request("wc_riqi")="" or request("wc_riqi2")="" then
wc_riqi_day=trim(Request("wc_riqi_day"))
wc_riqi_day2=trim(Request("wc_riqi_day2"))
wc_riqi_month=trim(Request("wc_riqi_month"))
wc_riqi_month2=trim(Request("wc_riqi_month2"))
wc_riqi_year=trim(Request("wc_riqi_year"))
wc_riqi_year2=trim(Request("wc_riqi_year2"))
wc_riqi=wc_riqi_year&"/"&wc_riqi_month&"/"&wc_riqi_day
wc_riqi2=wc_riqi_year2&"/"&wc_riqi_month2&"/"&wc_riqi_day2
else
wc_riqi=request("wc_riqi")
wc_riqi2=request("wc_riqi2")
end if

bd_no=trim(Request("bd_no"))
finished= trim(Request("finished"))
client_name=trim(Request("client_name"))

if f_riqi="" or len(f_riqi)=2 then
f_riqi="1900/1/1"
end if
if f_riqi2="" or len(f_riqi2)=2 then
f_riqi2="3000/1/1"
end if
if yq_riqi="" or len(yq_riqi)=2 then
yq_riqi="1900/1/1"
end if
if yq_riqi2="" or len(yq_riqi2)=2 then
yq_riqi2="3000/1/1"
end if
if wc_riqi="" or len(wc_riqi)=2 then
wc_riqi="1900/1/1"
end if
if wc_riqi2="" or len(wc_riqi2)=2 then
wc_riqi2="3000/1/1"
end if
wc_riqi=cdate(wc_riqi)
wc_riqi2=cdate(wc_riqi2)
yq_riqi=cdate(yq_riqi)
yq_riq2=cdate(yq_riqi2)
f_riqi=cdate(f_riqi)
f_riqi2=cdate(f_riqi2)
%>
<style type="text/css">

</style><head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>搜索結果</title>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#D6D3CE">
<%

sql="select max(fittings_sort) ,mod_no,max(id) from info where"
if finished = 0 then
sql=sql+" isnull(rc_riqi,1) = 1    and "
end if
if finished = 1 then
sql=sql+" isnull(rc_riqi,1) <> 1    and "
end if
sql=sql+" shuru_bm like '%"&shuru_bm&"%'    and "
sql=sql+" fittings_sort like '%"&fittings_sort&"%'    and "
sql=sql+" zt like '%"&zt&"%'    and "
sql=sql+" mod_no like '%"&mod_no&"%'    and "
sql=sql+" fittings_no like '%"&fittings_no&"%' "
if request("yq_riqi_day")<>"" then
sql=sql+"   and yq_riqi between '"&yq_riqi&"' and '"&yq_riqi2&"' "
end if
if request("yq_riqi_daym")<>"" then
sql=sql+"   and yq_riqi2 between '"&yq_riqim&"' and '"&yq_riqi2m&"' "
end if
if request("wc_riqi_day")<>"" then
sql=sql+"   and wc_riqi between '"&wc_riqi&"' and '"&wc_riqi2&"' "
end if
if request("gtcheck")=1 then
sql=sql+" and gt_time like '%"&trim(gtrtime)&"%' "
end if
sql=sql+" and bd_no like '%"&bd_no&"%'   and "
sql=sql+" client_name like '%"&client_name&"%' "
if request("f_riqi_day")<>"" then
sql=sql+" and f_riqi between '"&f_riqi&"' and '"&f_riqi2&"' "
end if
sql_n=sql
if od="mod_no" then
sql=sql+"group by mod_no order by max("&od&") "
else
sql=sql+"group by mod_no order by max("&od&") desc"
end if

set rs=server.createobject("adodb.recordset")
rs.open sql,cn,3,3
if rs.eof then
response.write "沒有記錄<a href=query.asp><<返回</a>"
response.end
end if
do while not rs.eof
mod_no_temp=rs("mod_no")
%>

<%
set rszz=server.CreateObject("adodb.recordset")
sql="select * from jindu where mod_no='"&mod_no_temp&"' order by id"
rszz.Open sql,cn,1,1
'response.Write sql
'response.Write rszz.recordcount
'response.End()
if Cint(rszz.recordcount)<1 then
for jjj=1 to 5
pj(jjj)=""
aa(jjj)=""
bb(jjj)=""
cc(jjj)=""
dd(jjj)=""
ee(jjj)=""
ff(jjj)=""
gg(jjj)=""
hh(jjj)=""
ii(jjj)=""
jj(jjj)=""
kk(jjj)=""
lll(jjj)=""
next

else
inttemp=Cint(rszz.recordcount)
if inttemp>5 then inttemp=5
rszz.movefirst

for jjj=1 to inttemp
pj(jjj)=chanshow(rszz("pj"))
aa(jjj)=chanshow(rszz("aa"))
bb(jjj)=chanshow(rszz("bb"))
cc(jjj)=chanshow(rszz("cc"))
dd(jjj)=chanshow(rszz("dd"))
ee(jjj)=chanshow(rszz("ee"))
ff(jjj)=chanshow(rszz("ff"))
gg(jjj)=chanshow(rszz("gg"))
hh(jjj)=chanshow(rszz("hh"))
ii(jjj)=chanshow(rszz("ii"))
jj(jjj)=chanshow(rszz("jj"))
kk(jjj)=chanshow(rszz("kk"))
lll(jjj)=chanshow(rszz("ll"))
rszz.movenext
next

end if
'response.write mod_no_temp
%>

<tr>
    <td height="40" colspan="13"><div align="left"><font color=blue><%=replace(mod_no_temp,".","")%>
<%if instr(mod_no_temp,"...")>0 then
response.Write "(改圖已完成)"
elseif instr(mod_no_temp,".")>0 then
response.write "(改圖)"
else
response.write " "
end if
%></font></div></td>
</tr>
<tr>
    <td width="120">配件編號</td>
    <td width="120">備料及測試</td>
    <td width="120">剪模</td>
    <td width="120">CNC雕刻</td>
    <td width="120">手工雕</td>
    <td width="120">試模</td>
    <td width="120">CNC鑼切</td>
    <td width="120">打彎模</td>
    <td width="120">羅切</td>
    <td width="120">打彎</td>
    <td width="120">繞線</td>
    <td width="120">車件</td>
    <td width="120">鑄件</td>
</tr>

<%for i=1 to 5%>
<tr>
    <td width="120"><%=pj(i)%> </td>
    <td width="120"><%=aa(i)%> </td>
    <td width="120"><%=bb(i)%> </td>
    <td width="120"><%=cc(i)%> </td>
    <td width="120"><%=dd(i)%> </td>
    <td width="120"><%=ee(i)%> </td>
    <td width="120"><%=ff(i)%> </td>
    <td width="120"><%=gg(i)%> </td>
    <td width="120"><%=hh(i)%> </td>
    <td width="120"><%=ii(i)%> </td>
    <td width="120"><%=jj(i)%> </td>
    <td width="120"><%=kk(i)%> </td>
    <td width="120"><%=lll(i)%> </td>
</tr>

<%next%>
<tr>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
    <td> </td>
</tr>

<%

rszz.close
set rszz=nothing
rs.movenext
loop
%>
</table>
</body>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： sql microsoft generator function border file

相关文章推荐

新的分享

章节导航