请教向access修改和插入的问题,最后30分!救命!!!!

fengquan 2003-09-22 09:27:33

我想在同一页中可显示库中内容,同时将修改前后的内容也能显示.老调不通请帮我看看如何改!<%@ Language=VBScript %>
<%
set conn = server.createobject ("adodb.connection")
conn.open "FQ1", "sa", "123"

set RSLogin = conn.Execute("select * from JSCFB ")
xm = trim (Request.Form("姓名"))
xrkm= trim (Request.Form("现任科目"))
hjrq1=trim (Request.Form("获奖日期1"))
hjmc1= trim (Request.Form("获奖名称1"))
hjjb1=trim (Request.Form("获奖级别1"))
sjdw1=trim (Request.Form("授奖单位1"))
hjbz1=trim (Request.Form("获奖备注1"))

hjrq2=trim (Request.Form("获奖日期2"))
hjmc2 = trim (Request.Form("获奖名称2"))
hjjb2=trim (Request.Form("获奖级别2"))
sjdw2 =trim (Request.Form("授奖单位2"))
hjbz2 =trim (Request.Form("获奖备注2"))

set rslogin=server.createobject("adodb.recordset")
strsql="select * from JSCFB "
rslogin.open strsql,conn,3,3
application.lock

RSLogin("姓名")=xm
RSLogin("现任科目")=xrkm
RSLogin("获奖日期1")= hjrq1
RSLogin("获奖名称1")=hjmc1
RSLogin("获奖级别1")=hjjb1
RSLogin("授奖单位1")=sjdw1
RSLogin("获奖备注1")=hjbz1

RSLogin("获奖日期2")= hjrq2
RSLogin("获奖名称2")=hjmc2
RSLogin("获奖级别2")=hjjb2
RSLogin("授奖单位2")=sjdw2
RSLogin("获奖备注2")=hjbz2
rslogin.update

application.unlock

%>
<html>
<table WIDTH=100% border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3><font color=white><P ALIGN="CENTER"> [当前用户-<% response.write Session("Name") %>]</FONT></td></tr>
<tr bgcolor=white >
<td><a href="../.././html/home.asp"><font color="#164DA8">返回内网主页</font></a></td>
<td align=center> <font color="#164DA8" ><% response.write TheMessage %></FONT></td>
<td align=right><a href="SystemManager.asp"><font color="#164DA8">返回上一级网页</font></a></td>
</tr>
</table>
<form action="JX20-7.asp" method=post>
<div align="center">
<center>
<table border="3" cellpadding="0" cellspacing="0" width="99%" height="159">
<tr>
<td width="100%" colspan="5" height="19">
奖励情况表单</td>
</tr>
<tr>
<td width="60%" height="23" colspan="2">姓名</td>
<td width="26%" valign="middle" align="left" height="23">

<p><input type="text" name="姓名" value="<% response.write RSLogin("姓名") %>" size="26"></p>

</td>
<td width="17%" height="23">所任学科</td>
<td width="32%" valign="middle" align="left" height="23">

<p><input type="text" name="现任科目" value="<% response.write RSLogin("现任科目") %>" size="26"></p>

</td>
</tr>
<tr>
<td width="38%" height="107" rowspan="3">获奖日期
<select name="获奖日期1年" size=1>
<%
yearcounter=year(rslogin("获奖日期1"))
%>
<OPTION VALUE="<% Response.Write YearCounter %>"> <% Response.Write YearCounter %> </OPTION>
<%
YearCounter = 2000
Do until YearCounter <=1900
%>
<OPTION VALUE="<% Response.Write YearCounter %>"> <% Response.Write YearCounter %> </OPTION>
<%
yearCounter = YearCounter-1
loop
%>
</select>年

<select name="获奖日期1月" size=1>
<%
monthcounter=month(rslogin("获奖日期1"))
%>
<OPTION VALUE="<% Response.Write MonthCounter %>"> <% Response.Write MonthCounter %> </OPTION>

<%
MonthCounter = 1
Do until MonthCounter >12
%>
<OPTION VALUE="<% Response.Write MonthCounter %>"> <% Response.Write MonthCounter %> </OPTION>
<%
MonthCounter = MonthCounter+1
loop
%>
</select>月

<select name="获奖日期1日" size=1>
<%
daycounter=day(rslogin("获奖日期1"))
%>
<OPTION VALUE="<% Response.Write DayCounter %>"> <% Response.Write DayCounter %> </OPTION>
<%
DayCounter = 1
Do until DayCounter >31
%>
<OPTION VALUE="<% Response.Write DayCounter %>"> <% Response.Write DayCounter %> </OPTION>
<%
DayCounter = DayCounter+1
loop
%>
</select>日
</td>
<td width="22%" height="23">获奖名称</td>
<td width="26%" valign="middle" align="left" height="23">

<p><input type="text" name="获奖名称1" value="<% response.write RSLogin("获奖名称1") %>" size="26"></p>

</td>
<td width="17%" height="23">获奖级别</td>
<td width="32%" valign="middle" align="left" height="23">

<p><input type="text" name="获奖级别1" value="<% response.write RSLogin("获奖级别1") %>" size="26"></p>

</td>
</tr>
<tr>
<td width="22%" height="23">授奖单位</td>
<td width="75%" valign="top" align="left" height="23" colspan="3">

<p><input type="text" name="授奖单位1" value="<% response.write RSLogin("授奖单位1") %>" size="26"></p>

</td>
</tr>
<tr>
<td width="22%" height="61">备注</td>
<td width="75%" colspan="3" height="61">

<p><textarea rows="2" name="S1" cols="71"></textarea></p>

</td>
</tr></center>
</div>

<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=100% align=center>
<TR VALIGN="top" ALIGN="center">
<TD WIDTH=100% align=center >

<INPUT TYPE="submit" NAME="Modify" VALUE="修改" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB"></TD>
</TR>
</table>

</FORM>

</html>

...全文