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% "> </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 ">
&