01.<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
02.<HTML>
03.<HEAD>
04.<TITLE> New Document </TITLE>
05.<META NAME="Generator" CONTENT="EditPlus">
06.<META NAME="Author" CONTENT="">
07.<META NAME="Keywords" CONTENT="">
08.<META NAME="Description" CONTENT="">
09.</HEAD>
10.
11.<BODY>
12.<%
13. Dim Conn,strSQL,objRec
14. SET rs=Server.CreateObject("ADODB.Recordset")
15. SET rsMiss=Server.CreateObject("ADODB.Recordset")
16. SET rsYear=Server.CreateObject("ADODB.Recordset")
17. SET rsPP=Server.CreateObject("ADODB.Recordset")
18. Set conn=Server.CreateObject("ADODB.Connection")
19. Set objRec = Server.CreateObject("ADODB.Recordset")
20. conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("dbfile\PP30db.mdb")
21. sqlMiss = "SELECT AutoID, TIN, BraNam, JurNam, ISIC From company WHERE AutoID="&Request.QueryString("id1")
22. rsMiss.open sqlMiss,conn,1,3
23. Response.Write "<BR><BR><CENTER><font size='3'> <font color=black><B>ÃÒÂÅÐàÍÕ´¼Ùé»ÃСͺ¡ÒÃ</B></CENTER><BR>"
24. Response.Write "<CENTER><B>TIN : </B>"&rsMiss("TIN")&"<font size='3'> <font color=black><B> ʶҹ»ÃСͺ¡Òà : </B> "&rsMiss("BraNam")&" <font size='3'> <font color=black><B>ª×èÍ-Ê¡ØÅ : </B>"&rsMiss("JurNam") &" <font size='3'> <font color=black><B> ISIC : </B>"&rsMiss("ISIC") &"<HR></CENTER><BR>"
25.
26.sqlYear = "SELECT DISTINCT PP_Year FROM pp30 WHERE AutoID="&Request.QueryString("id1")& " ORDER BY PP_Year"
27.sqlYear = "SELECT DISTINCT PP_Year FROM pp50 WHERE AutoID="&Request.QueryString("id1")& " ORDER BY PP_Year"
28.rsYear.open sqlYear,conn,1,3
29.rsPP.open sqlYear,conn,1,3
30.
31.rsYear.MoveFirst
32.Do While Not rsYear.Eof
33. sql = "SELECT PP_Month, PP_Year, SaleTax1, SaleTax5 FROM pp30 WHERE AutoID="&Request.QueryString("id1")& " AND PP_Year="&rsYear("PP_Year")&" ORDER BY PP_Year, PP_Month,PP_ID"
34. sql = "SELECT PP_Year, SaleTax7, SaleTax6 FROM pp50 WHERE AutoID="&Request.QueryString("id1")& " AND PP_Year="&rsYear("PP_Year")&" ORDER BY PP_Year, PP_ID"
35. rs.open sql,conn,1,3
36.
37. IF rs.RecordCount =0 THEN
38. Response.Write "<CENTER><font face='MS Sans Serif' size='2' color='#3300CC'>* * * äÁ辺¢éÍÁÙÅ * * * <BR><form><input type=button value='»Ô´Ë¹éҨ͹Õé' onClick='javascript:window.close();'></form></CENTER><BR>"
39. Else
40. Response.Write "<TABLE table border=1 width=500 cellspacing=0 bordercolor=black bordercolordark=white bordercolorlight=black>"
41. Response.Write "<TH BGCOLOR='#CCCCCC'><font size='3'> <font color=black> à´×͹ </TH><TH BGCOLOR='#CCCCCC'><font size='3'> <font color=black> ¾.È. </TH><TH BGCOLOR='#CCCCCC'><font size='3'> <font color=black> ÂÍ´¢Ò </TH><TH BGCOLOR='#CCCCCC'><font size='3'> <font color=black> ÍÒ¡ÃáʵÁ»ì </TH><TH BGCOLOR='#CCCCCC'><font size='3'> <font color=black> ÀҾẺ </TH>"
42. Sum1=0
43. sum2=0
44. sum3=0
45. sum4=0
46. rs.MoveFirst
47. Do While Not rs.Eof
48. If Color=0 Then
49.
50.
51.
52.
53.
54. End If
55.Response.Write "<TD ALIGN='RIGHT'>"&rs("PP_Month")&" </TD><TD ALIGN='RIGHT'>"&rs("PP_Year")&"</TD><TD ALIGN='RIGHT'>"&FormatNumber(rs("SaleTax1"),2)&"</TD><TD ALIGN='RIGHT'>"&FormatNumber(rs("SaleTax5"),2)&"</TD></TR>"
56.
57.
58.
59. Sum1=Sum1+rs("SaleTax7")
60. Sum2=Sum2+rs("SaleTax6")
61. sum3=sum1-sum2
62. sum4=sum4+rs("saletax1")
63. sum5=sum5+rs("saletax5")
64.
65. rs.MoveNext
66. loop
67. Response.Write "<TR BGCOLOR='#FFCCCC'><TD COLSPAN='2' ALIGN='Center'><B>ÃÇÁ»Õ "&rsYear("PP_Year")&"</B></TD><TD ALIGN='RIGHT'><B>"&FormatNumber(Sum1,2)&"</B></TD><TD ALIGN='RIGHT'><B>"&FormatNumber(Sum2,2)&"</B></TD><TD ALIGN='RIGHT'><B>"&FormatNumber(Sum3,2)&"</B></TD>"
68. Response.Write"</TABLE><BR>"
69. END IF
70.rsYear.MoveNext
71.rs.Close
72.loop
73.
74. conn.Close
75.
76. %>
77.</BODY>
78.</HTML>
