1
2connstr="DBQ="+server.mappath("db3.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
3set conn=server.createobject("ADODB.CONNECTION")
4conn.open connstr
1
2'username=request.cookies("zswmuser")
3username=request("zswmuser")
4strSQL2 ="select * from admin where username='"&username&"'"
5Set rs2 = Server.CreateObject("ADODB.Recordset")
6rs2.open strSQL2,Conn,1,1
7if not rs2.eof then
8name1=rs2("name")
9else
10response.write "查无此人"
11response.end
12end if
13response.write "name1:"&name1&"
14"
15if name1<>"" then
16strSQL ="select * from Flow_Censor where Censor_user='"&name1&"' and Censor="&false
17Set rs = Server.CreateObject("ADODB.Recordset")
18rs.open strSQL,Conn,1,1
19if not rs.eof then
20Flow_id=rs("Flow_id")'
21else
22response.write "无此人文档"
23end if
24response.write "Flow_id:"&Flow_id&"
25"
26end if
27if Flow_id<>"" then
28strSQL1 ="select * from Doc_Flow where Flow_id=Flow_id "
29Set rs1 = Server.CreateObject("ADODB.Recordset")
30rs1.open strSQL1,Conn,1,1
31if rs1.eof and rs1.bof then
32response.write "没有文档"
33else
34count=0
35do while not (rs.eof or rs.bof) and count<rs.PageSize
36response.write rs1("Flow_title")
37response.write rs1("Flow_from")
38response.write rs1("Flow_date")
39rs.movenext
40count=count+1
41loop
42end if
43end if
44'rs.close
45'rs1.close
46'rs2.close