ASP中插入数据问题!

py_mfkmfk
等级:
可用分等级：短工
总技术专家分：0
总技术专家分排名：311804

发表于：2008-05-29 09:52:3010楼得分:0

点击这个页面的"批示"
<%
call bgmid()
set conn=opendb
set rs=server.createobject("adodb.recordset")
sql="select * from gongwen where sender <>'"&oabusyusername&"'and recipientusername='"& oabusyusername &"' and readflag='未阅读'"
rs.open sql,conn,1,1

if not rs.eof and not rs.bof then
rs.pagesize=13
if request("page") <>"" then page=clng(request("page"))
if page <1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="readgongwe_no.asp"
rs.absolutepage=page
%>
<table border="1" cellpadding="4" cellspacing="0" width="95%">
<tr>
<td align=center> <b>公文标题 </b> </td> <td align=center > <b>附件 </b> </td> <td align=center > <b>发送者所在部门 </b> </td> <td align=center > <b>发送者 </b> </td> <td align=center > <b>发送日期 </b> </td> <td align=center> <b>批示 </b> </td>
</tr>
<%
for ipage=1 to rs.pagesize
%>
<tr>
<td> <div align="center"> <a href="#" onclick="Javascript:OpenSmallWindows('showgongwen.asp?id= <%=rs("Id")%>')" >
<font color=red> <%=rs("title")%> </font> <img src="images/new.gif" border="0">
</a> </div> </td>
<td align="center">
<%
if rs("fujian")=1 then
%>
<a href="#" onclick="Javascript:OpenSmallWindows('downgong.asp?id= <%=rs("Id")%>')" > <img src="images/attach.gif" width=25 height=25 border=0 > </a>
<%
else
%>

<%
end if
%>
</td> <td align="center">

<%=showdept(rs("sender"))%>

</td>
<td align="center">

<%=showname(rs("sender"))%>

</td>
<td align="center"> <%=rs("inputdate")%> </td>

<td align=center> <a href="senddate111.asp?id= <%=rs("id")%>">批示 </a> </td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>

弹出这个输入页面:
<b> 公文批示 </b>
<%
call bgmid()
%>

<%
gwid=request("id")
set conn1=opendb
set rs1=server.createobject("adodb.recordset")
sql2="select * from readgongwen where gongwenid ="&gwid &" and readname = '"&oabusyname&"' and readdept = '"&oabusyuserdept&"'"
rs1.open sql2,conn1,1,1

gwcount=rs1.recordcount

set conn=opendb
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from gongwen where id=" & request("id")

if request("submit") ="发送" then
id=request("id")
conn.execute "update gongwen set pishiflag = 1 ,answer_date='"&content&"' where id = "&id

end if
rs.open sql,conn,1

%>

<br>
<center>
<table border="1" cellpadding="0" cellspacing="0">
<tr>
<form method="post" name="sendform" action="senddateindb.asp" onsubmit="return form_check();" >
<input type="hidden" name="userdept" value=" <%=firstdept%>">
<input type="hidden" name="username" value="所有人">
<td align="center"> <b>发给： </b> </td>
<td> <input type="text" name="sendto" size=48 value=| <%=showdept(rs("sender"))%>: <%=showname(rs("sender"))%>( <%=showusername(rs("sender"))%>)>

<tr>
<td align="center"> <b>标题: </b> </td>
<td> <input type=text name="title" size=60 value=《 <%=rs("title")%>》的回复> <font color=red>* </font> </td>
</tr>
<tr>
<td align="center"> <b>内容: </b> </td>
<td> <textarea name="content" rows="9" cols="60"> </textarea> </td>
</tr>

<tr>
<td align=center colspan=2>
<input type="submit" name="fasong" value="发送">
<input type="reset" value="重写" name="B2">

</td>
</form>
</tr>
</table>
</center>
<%
rs.close
set conn=nothing
call bgback()
%>
</body>
我想在输入页面提交的时候将"pishiflag"字段改为1并将批示内容插入"pishicontent"字段!

修改删除举报引用回复