?? qdqsdoc.asp
字號:
<%
set fs=server.CreateObject("scripting.filesystemobject")
whichfile=server.MapPath("doc/my.txt")
set thisfile=fs.CreateTextFile(whichfile,true)
%>
<!--#include file="asp/opendb.asp"-->
<%t=request("t")
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from meetuser where reid="&request("id")&" order by id desc"
rs.Open sql,conn,1
if not rs.EOF and not rs.BOF then
thisfile.writeline rs("meetname")
if t="qs" then
thisfile.writeline("已簽收單位")
' thisfile.writeline("名稱 簽收時間")
do while not rs.EOF
if rs("qshou")=1 then
thisfile.writeline rs("name")
end if
rs.MoveNext
loop
rs.MoveFirst
thisfile.writeblanklines(2)
thisfile.writeline("未簽收單位")
do while not rs.EOF
if rs("qshou")=0 then
thisfile.writeline rs("name")
end if
rs.MoveNext
loop
end if
if t="qd" then
thisfile.writeline("已簽到單位")
' thisfile.writeline("名稱 簽收時間")
do while not rs.EOF
if rs("qdao")=1 then
thisfile.writeline rs("name")
end if
rs.MoveNext
loop
rs.MoveFirst
thisfile.writeblanklines(2)
thisfile.writeline("未簽到單位")
do while not rs.EOF
if rs("qdao")=0 then
thisfile.writeline rs("name")
end if
rs.MoveNext
loop
end if
else
thisfile.write"出錯拉"
end if
rs.Close
set rs=nothing
set conn=nothing
thisfile.close
set thisfile=nothing
set fs=nothing
Response.Redirect whichfile
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -