/ltd/ccs/ccs_gz/cx/CF_TEST/CWXS1/cwrpt_company1.asp

http://github.com/zhaowe/bc · ASP · 167 lines · 118 code · 45 blank · 4 comment · 7 complexity · dac892bd773a655ba7a93cb8f89e60c2 MD5 · raw file 

    

  1. <%@ Language=VBScript %>

    2. 

  2. <%

    3. 

  3. '   OledbStr_cf = "provider=sqloledb;server=10.254.0.102;database=szxcw;uid=sa;pwd=123456;"  

    4. 

  4. OledbStr_cf = "provider=sqloledb;server=10.254.0.102;database=cwszx;uid=sa;pwd=123456;"  

    5. 

  5.    Set objConn_cf = Server.CreateObject("ADODB.Connection")

    6. 

  6.    objConn_cf.Open OledbStr_cf

    7. 

  7.    Set objRst=server.CreateObject ("ADODB.Recordset")

    8. 

  8.    objRst.LockType=3

    9. 

  9.    objRst.CursorType=3

    10. 

  10.    set objRst.activeConnection=objConn_cf    

    11. 

  11.    'Á¬½ÓÊý¾Ý¿â

    12. 

  12.    

    13. 

  13.    

    14. 

  14.    bdate=Request.QueryString("bdate")

    15. 

  15.    edate=Request.QueryString("edate")

    16. 

  16.    agentname=trim(Request.QueryString("ag"))

    17. 

  17.    company=Request.QueryString("com")

    18. 

  18.    depcity=Request.QueryString("dep")

    19. 

  19.    arrcity=Request.QueryString("arr")

    20. 

  20.    

    21. 

  21.    

    22. 

  22. 

    23. 

  23. if trim(agentname)="ËùÓдúÀíÈË" then 

    24. 

  24.    sqlag=""

    25. 

  25. else

    26. 

  26.    sqlag=" and agentname='"& trim(agentname) &"'"

    27. 

  27. end if

    28. 

  28. 

    29. 

  29. 

    30. 

  30. if trim(company)="ËùÓй«Ë¾" then 

    31. 

  31.    sqlco=""

    32. 

  32. elseif trim(company)="Í⹫˾" then 

    33. 

  33.    sqlco=" and company<>'SZX' "

    34. 

  34. else

    35. 

  35.    sqlco=" and company='"& trim(company) &"'"

    36. 

  36. end if

    37. 

  37. 

    38. 

  38. 

    39. 

  39. if trim(depcity)="ËùÓк½Õ¾" then 

    40. 

  40.    sqldep=""

    41. 

  41. else

    42. 

  42.    sqldep=" and depcity='"& trim(depcity) &"'"

    43. 

  43. end if

    44. 

  44. 

    45. 

  45. 

    46. 

  46. 

    47. 

  47. if trim(arrcity)="ËùÓк½Õ¾" then 

    48. 

  48.    sqlarr=""

    49. 

  49. else

    50. 

  50.    sqlarr=" and arrcity='"& trim(arrcity) &"'"

    51. 

  51. end if

    52. 

  52. 

    53. 

  53.    

    54. 

  54.    

    55. 

  55. sqldate=" flightdate>='"& bdate &"' and flightdate<='"& edate &"' "

    56. 

  56. 

    57. 

  57. sqlwhere=sqldate+sqlco+sqlag+sqldep+sqlarr

    58. 

  58. 

    59. 

  59. 

    60. 

  60. 

    61. 

  61. 'Response.Write sqlwhere

    62. 

  62.    

    63. 

  63. 

    64. 

  64.    

    65. 

  65.    

    66. 

  66. %>

    67. 

  67. <HTML>

    68. 

  68. <HEAD>

    69. 

  69. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

    70. 

  70. <meta http-equiv="Content-Language" content="zh-cn">

    71. 

  71. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">

    72. 

  72. <title><%=bdate%>ÖÁ<%=edate%>´úÀíÈËÏúÊÛÓн±Àø¿ÍƱÇé¿ö</title>

    73. 

  73. <style type="text/css">

    74. 

  74. 

    75. 

  75. 

    76. 

  76. A {

    77. 

  77. 	FONT-FAMILY: ËÎÌå; FONT-SIZE: 15px; TEXT-DECORATION: none;color:#0000FF

    78. 

  78. }

    79. 

  79. A:hover {

    80. 

  80. 	FONT-FAMILY: ËÎÌå; FONT-SIZE: 15px; TEXT-DECORATION: underline; color:#FF0000

    81. 

  81. }

    82. 

  82. TD {

    83. 

  83.     FONT-FAMILY: ËÎÌå; FONT-SIZE: 14px

    84. 

  84. }

    85. 

  85. </style>

    86. 

  86. </HEAD>

    87. 

  87. 

    88. 

  88. <body>

    89. 

  89. <p align="center"><b><font size="5" color="#000099"><font color=red> <%=agentname%></font>ÏúÊÛ<font color=red><%=company%></font>Óн±Àø¿ÍƱÇé¿ö</b>(³ÐÔËÈÕÆÚ£º<font color=red><%=bdate%></font>ÖÁ<font color=red><%=edate%></font>)</font></p>

    90. 

  90. <div align="center">

    91. 

  91.   <p align="left">  

    92. 

  92.   <center>

    93. 

  93.     <%

    94. 

  94.    

    95. 

  95.     'SqlIns ="exec cf_proc_temp '"& cstr(bdate) &"', '"& cstr(edate) &"'"

    96. 

  96.     

    97. 

  97.     SqlIns ="select ³ÐÔ˹«Ë¾=company,º½°àºÅ=flightno, "

    98. 

  98.     SqlIns =SqlIns+"¿ÍƱÕÅÊý=count(price),½ð¶î=sum(price), "

    99. 

  99.     SqlIns =SqlIns+"½±Àø·ÑÂÊ1=ar1,½±Àø·ÑÂÊ2=ar2,½±Àø·ÑÂÊ3=ar3,½±Àø·Ñ=sum(agentfee) "

    100. 

  100.     SqlIns =SqlIns+" from ticketinfo "

    101. 

  101.     SqlIns =SqlIns+" where "

    102. 

  102.     SqlIns =SqlIns+sqlwhere

    103. 

  103.     SqlIns =SqlIns+"  and (ar1<>0 or ar2<>0 or ar3<>0) "

    104. 

  104.     SqlIns =SqlIns+" group by flightno,company,ar1,ar2,ar3 "

    105. 

  105.     SqlIns =SqlIns+"order by company,flightno "

    106. 

  106.     

    107. 

  107.     objrst.Source =sqlins

    108. 

  108.     

    109. 

  109.     objrst.Open 

    110. 

  110.     

    111. 

  111.     if not (objrst.EOF and objrst.BOF) then

    112. 

  112.     

    113. 

  113.     %>  

    114. 

  114.  <table border="0" cellspacing="1" width="96%" height="1" bgcolor="#0000FF" bordercolor="#0000FF">

    115. 

  115.     <tr>

    116. 

  116.       <td  height="1" bgcolor="#99CCFF"><b><font color="#990099">³ÐÔ˹«Ë¾</font></b></td>      

    117. 

  117.       <td  height="1" bgcolor="#99CCFF"><b><font color="#990099">º½°àºÅ</font></b></td>      

    118. 

  118.       <td  height="1" bgcolor="#99CCFF"><b><font color="#990099">¿ÍƱÕÅÊý</font></b></td>

    119. 

  119.       <td  height="1" bgcolor="#99CCFF"><b><font color="#990099">ÏúÊÛ¶î</font></b></td>            

    120. 

  120.       <td  height="1" bgcolor="#99CCFF"><b><font color="#990099">½±Àø·ÑÂÊ1</font></b></td>            

    121. 

  121.       <td  height="1" bgcolor="#99CCFF"><b><font color="#990099">½±Àø·ÑÂÊ2</font></b></td>            

    122. 

  122.       <td  height="1" bgcolor="#99CCFF"><b><font color="#990099">½±Àø·ÑÂÊ3</font></b></td>            

    123. 

  123.       <td  height="1" bgcolor="#99CCFF"><b><font color="#990099">´ÙÏú·Ñ</font></b></td>

    124. 

  124.     </tr>

    125. 

  125. 

    126. 

  126.     

    127. 

  127.     

    128. 

  128.     <%

    129. 

  129. 

    130. 

  130.     

    131. 

  131.     objrst.MoveFirst 

    132. 

  132.     while not objrst.EOF 

    133. 

  133.     %>

    134. 

  134.     <tr>

    135. 

  135.       <td  height="1" bgcolor="#FFFFFF"><font color="#0000FF"><%=trim(objrst(0))%></font></td>      

    136. 

  136.       <td  height="1" bgcolor="#FFFFFF"><font color="#0000FF"><%=objrst(1)%></font></td>

    137. 

  137.       <td  height="1" bgcolor="#FFFFFF"><font color="#0000FF"><%=objrst(2)%></font></td>

    138. 

  138.       <td  height="1" bgcolor="#FFFFFF"><font color="#0000FF"><%=objrst(3)%></font></td>

    139. 

  139.       <td  height="1" bgcolor="#FFFFFF"><font color="#0000FF"><%=objrst(4)%></font></td>      

    140. 

  140.       <td  height="1" bgcolor="#FFFFFF"><font color="#0000FF"><%=objrst(5)%></font></td> 

    141. 

  141.       <td  height="1" bgcolor="#FFFFFF"><font color="#0000FF"><%=objrst(6)%></font></td> 

    142. 

  142.       <td  height="1" bgcolor="#FFFFFF"><font color="#0000FF"><%=objrst(7)%></font></td> 

    143. 

  143.     </tr>

    144. 

  144.     <%

    145. 

  145.     objrst.MoveNext 

    146. 

  146.     wend

    147. 

  147.     

    148. 

  148. 

    149. 

  149.   %> 

    150. 

  150. 

    151. 

  151.   </table>

    152. 

  152.   

    153. 

  153.   <% else %>

    154. 

  154.   

    155. 

  155.   <p align="center"><b><font size="6" color="red">ÎÞ·ûºÏÌõ¼þµÄÊý¾Ý£¡</font></b></p>

    156. 

  156. <p align="center">¡¡</p>

    157. 

  157. <p align="center"><b><a href="./cwxs_index.asp"><font size="4" color="#0000CC">ᵠȯ</font></a></b></p>  

    158. 

  158.   

    159. 

  159.   <%

    160. 

  160.   end if

    161. 

  161.       objrst.Close  %>

    162. 

  162.   </center>

    163. 

  163. </div>

    164. 

  164. 

    165. 

  165. 

    166. 

  166. </body>

    167. 

  167. </HTML>
    168.