在内网测试没有问题,但在外网就出错.
反馈错误如下:
--------------------------------------------------------------------
Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/cn_password.asp, line 115 

Response.Write year(rst.Fields("transaction date"))&"å¹?&month(rst.Fields("transaction date"))&"æœ?&day(rst.Fields("transaction date"))&"æ—?
-----------------------------------------------------------------------^

--------------------------------------------------------------------
处理页面部分内容如下:
--------------------------------------------------------------------

	<table class="zhaoping STYLE1">

  	<tr>

  		<td>

		<div class="zhaoping" style="text-align:left;">

		<%

dim idn,rs,rst,rstl,cn,strconn,idno

set cn=server.createobject("ADODB.connection")

strconn="Driver={SQL Server};SERVER=10.200.253.61;UID=sa;PWD=2829ftc;DATABASE=ctf_vip;" 

cn.Open strconn

   Set rs = Server.CreateObject("ADODB.Recordset")

   Set rst = Server.CreateObject("ADODB.Recordset")

   Set rst1 = Server.CreateObject("ADODB.Recordset")

'dim idn

idno=session("vipno")

 rst1.open "select * from [VIP Customer Master] where [Card No]=" & idno,cn,1,3

            if not rst1.eof then

			   idn=rst1("Customer ID")

			end if  

   rst1.close

%>

<script language="vbscript" type="text/vbscript">

 sub ret_onclick()

 history.go(-1)

 end sub

</script>

<%

  rst.open "select * from [VIP Credit Transaction] where [customer id]=" & idn & " order by [transaction date]" ,cn,1,3

   while not rst.eof  

        rs.open "select [Card No] from [VIP Customer Master] where [Customer ID]=" & rst.Fields("Customer ID") ,cn,1,3

        rs.close 

        response.write "<b>></b> "

        Response.Write year(rst.Fields("transaction date"))&"年"&month(rst.Fields("transaction date"))&"月"&day(rst.Fields("transaction date"))&"日"

        'response.write "<br>"

	   

        rs.Open "select * from [VIP Tran Code] where [tran code]=" & rst.Fields("transaction code"),cn,1,3

        

                select case rst.fields("transaction code")

		  case "1" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;销售加分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"

		  case "2" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;换取礼品减分"

		  case "3" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;退货减分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"

		  case "4" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;申请新卡加分"

		  case "5" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;由ICS系统减分"

		  case "6" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;调整加分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"

		  case "7" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;续约初始积分"

		  case "8" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;总部补充积分"

		  case "9" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;续约申请加分"

		  case "10" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;调整减分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"

		  case "11" Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;奖励加分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"

          case else Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您好"

		end select      

        rs.Close 

         

		if  rst.Fields("transaction code")=2 or rst.Fields("transaction code")=3 or rst.Fields("transaction code")=5 or rst.Fields("transaction code")=10 then

		    response.write "   &nbsp;&nbsp;&nbsp;&nbsp;减"

		else

		    response.write "   &nbsp;&nbsp;&nbsp;&nbsp;加"

		end if

        

		Response.Write rst.Fields("credit")

		response.write"分 "

        

		      

        rst.MoveNext

     response.write "<br>"

  wend   

%>

		</div>

		</td>

	</tr>

</table>

--------------------------------------------------------------------