ASP "返回的数据页面"数据库修改???
我想可以在此页面修改数据,(数据库是SQL的)
怎么总写不进去呢/?????
或者可以写到一个页面的办法??? 求助!!!
(1) 这个页面是返回的数据,详细数据内容页面!
<%
set rs=server.CreateObject( "ADODB.Recordset ")
strSQL= "select * from Docstate where king_page= ' "&Request.QueryString( "king_page ")& " ' "
rs.Open strSQL,conn,3,3
%>
<html>
<BODY>
<form action= "OKking_Admin.asp " name= "form1 " method= "post " ID= "Form1 ">
<table>
<tr>
<td> 章节 <INPUT id= "Text1 " type= "text " name= "king_page " value= " <%=rs( "king_page ")> "> </td>
<tr>
<td> 英翻 <INPUT id= "Text2 " type= "text " name= "king_EVersion " value= " <%=rs( "king_EVersion ")%> "> </td>
<td> 英校 <INPUT id= "Text3 " type= "text " name= "king_ECollate " value= " <%=rs( "king_ECollate ")%> "> </td>
<td> 韩翻 <INPUT id= "Text4 " type= "text " name= "king_HVersion " value= " <%=rs( "king_HVersion ")%> "> </td>
<td> 韩校 <INPUT id= "Text5 " type= "text " name= "king_HCollate " value= " <%=rs( "king_HCollate ")%> "> </td>
<td> 繁翻 <INPUT id= "Text6 " type= "text " name= "king_FVersion " value= " <%=rs( "king_FVersion ")%> "> </td>
<td> 繁校 <INPUT id= "Text7 " type= "text " name= "king_FCollate " value= " <%=rs( "king_FCollate ")%> "> </td>
</tr>
<tr>
<td> 数字 <INPUT id= "Text8 " type= "text " name= "king_Chinahow " value= " <%=rs( "king_Chinahow ")%> "> </td>
<td> 描述 <INPUT id= "Text9 " type= "text " name= "king_MatterRemark " value= " <%=rs( "king_MatterRemark ")%> "> </td>
</tr>
<% if Session( "power ") <> 1 then %>
<% else %>
<tr>
<td valign= "middle "nowrap> <INPUT type= 'submit ' name= 'Submit ' value= '修改 ' ID= "Submit1 "> </td>
</tr>
<% end if %>
</TABLE>
</form>
</BODY>
</HTML>
(2) OKking_Admin.asp
<!--#include file= "conn.asp "-->
<%
king_page=request.Form( "king_page ")
king_EVersion=request.Form( "king_EVersion ")
king_ECollate=request.Form( "king_ECollate ")
king_HVersion=request.Form( "king_HVersion ")
king_HCollate=request.Form( "king_HCollate ")
king_FVersion=request.Form( "king_FVersion ")
king_FCollate=request.Form( "king_FCollate ")
king_Chinahow=request.Form( "king_Chinahow ")
king_MatterRemark=request.Form( "king_MatterRemark ")
strSQL= "Update Docstate set king_EVersion= ' "&king_EVersion& " ',king_ECollate= ' "&king_ECollate& " ',king_HVersion= ' "&king_HVersion& " ',king_HCollate= ' "&king_HCollate& " ',king_FVersion= ' "&king_FVersion& " ',king_FCollate= ' "&king_FCollate& " ',king_Chinahow= ' "&king_Chinahow& " ',king_MatterRemark= ' "&king_MatterRemark& " ' where king_page= ' "&Request.QueryString( "king_page ")& " ' "
conn.execute(strSQL)
%>
<script language= "VBScript " type= "text/VBScript ">
msgbox "该记录修改成功！ "
window.location.href= "doclookking.asp "
</script>
[解决办法]
(2) OKking_Admin.asp
<!--#include file= "conn.asp "-->
<%
king_page=request.Form( "king_page ")
king_EVersion=request.Form( "king_EVersion ")
king_ECollate=request.Form( "king_ECollate ")
king_HVersion=request.Form( "king_HVersion ")
king_HCollate=request.Form( "king_HCollate ")
king_FVersion=request.Form( "king_FVersion ")
king_FCollate=request.Form( "king_FCollate ")
king_Chinahow=request.Form( "king_Chinahow ")
king_MatterRemark=request.Form( "king_MatterRemark ")
strSQL= "Update Docstate set king_EVersion= ' "&king_EVersion& " ',king_ECollate= ' "&king_ECollate& " ',king_HVersion= ' "&king_HVersion& " ',king_HCollate= ' "&king_HCollate& " ',king_FVersion= ' "&king_FVersion& " ',king_FCollate= ' "&king_FCollate& " ',king_Chinahow= ' "&king_Chinahow& " ',king_MatterRemark= ' "&king_MatterRemark& " ' where king_page= ' "&king_page& " ' " ' ' ' 'Request.QueryString( "king_page ")改为king_page
conn.execute(strSQL)
%>
<script language= "VBScript " type= "text/VBScript ">
msgbox "该记录修改成功！ "
window.location.href= "doclookking.asp "
</script>
[解决办法]
Request.QueryString( "king_page ") 跟本就没有值，改成：Request.Form( "king_page ")
