日期:2014-05-17  浏览次数:20977 次

ASP中,提交数据后,存不进数据库中呀!急救!!!!!!!!!大哥大姐们
代码如下:
<%dim   action
action=request.QueryString( "action ")
if   action= "save "   then
set   rs=server.CreateObject( "adodb.recordset ")
rs.Open   "select   payid,paypin,payurl,npayid,npaypin,npayurl,westid,westurl,ipayid,ipaypin,ipayurl,ypayid,ypaypin,ypayurl   from   webinfo   ",conn,1,3
rs( "paypin ")=trim(request( "paypin "))
rs( "payid ")=request( "payid ")
rs( "payurl ")=request( "payurl ")
rs( "npaypin ")=trim(request( "npaypin "))
rs( "npayid ")=request( "npayid ")
rs( "npayurl ")=request( "npayurl ")
rs( "ipaypin ")=trim(request( "ipaypin "))
rs( "ipayid ")=trim(request( "ipayid "))
rs( "ipayurl ")=trim(request( "ipayurl "))
rs( "ypayid ")=trim(request( "ypayid "))
rs( "ypaypin ")=trim(request( "ypaypin "))
rs( "ypayurl ")=trim(request( "ypayurl "))
rs( "westid ")=request( "westid ")
rs( "westurl ")=request( "westurl ")
rs.update
rs.close
set   rs=nothing
response.Write   " <script   language=javascript> alert( '网站资料修改成功! ');history.go(-1); </script> "
end   if%>
<html>
<head>
<meta   http-equiv= "Content-Type "   content= "text/html;   charset=gb2312 ">
</head>
<body>
<table   class= "tableBorder "   width= "100% "   border= "0 "   align= "center "   cellpadding= "0 "   cellspacing= "1 "   >
    <tr>  
        <td   height= "25 "   align= "center "   background= "../images/admin_bg_1.gif "> <b> <font   color= "#ffffff "> 在线支付设置 </font> </b>   </td>
</tr>
<tr>  
<td   height= "107 "   valign= "top "   >
            <table   border= "0 "   cellpadding= "0 "   cellspacing= "1 "     width= "100% ">
                <tr>
                        <td   width= "100% "> &nbsp; </td>
                </tr>
                        <tr>
                       
                    <td   width= "100% ">   <table   width= "500 "   border= "0 "   align= "center "   cellpadding= "3 "   cellspacing= "0 ">
                            <form   name= "form1 "   method= "post "   action= "onlinepay.asp?action=save ">
                        &