回复 5# 的帖子
</head>
<%
useid=trim(Request.QueryString("id"))
if len(useid)<1 then
Response.Redirect("spwtliulanbiao11.asp")
end if
set objrs=Conn.exeCute("select top 1 * from book3
where id="&useid&"")
if objrs.bof and objrs.eof then
response.write"<script language=JavaScript>alert('对不起，没有找到相关数据，请返回重新操作！');history.back(-1)</script>"
response.end
end if
%>
<body>
<p class="STYLE6"> </p>
<form name="add" method="post" action="jsadd.asp?id=<%=useid%>" onSubmit="return CheckForm();">
<table width="700" border="0" align="center">
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="72"><div align="center"><span class="STYLE1">捐书后台管理</span></div></td>
</tr>
</table>
<table width="700" height="118" border="1" align="center">
<tr>
<td width="107" height="25" align="center" nowrap bgcolor="#FFE186"><span class="STYLE9">姓名: </span></td>
<td width="227" bgcolor="#EFF8F8"><input name="name1" type="text"value="<%=objrs("name1") %>" readonly="true">
<span class="STYLE11">**</span></td>
<td width="107" height="25" align="center" nowrap bgcolor="#FFE186"><span class="STYLE9"> 学 号:</span></td>
<td width="231" bgcolor="#EFF8F8"><input type="text" name="xuehao" value="<%=objrs("xuehao") %>" readonly="true">
<span class="STYLE11">**</span></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFE186"><span class="STYLE9">书 名:</span></td>
<td bgcolor="#EFF8F8"><input type="text" name="shuming" value="<%=objrs("shuming") %>" readonly="true">
<span class="STYLE11">**</span></td>
<td height="25" align="center" bgcolor="#FFE186"><span class="STYLE9">ISBN:</span></td>
<td bgcolor="#EFF8F8"><input type="text" name="isbn" value="<%=objrs("isbn") %>" readonly="true">
<span class="STYLE11">**</span></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFE186"><span class="STYLE9">委托日期:</span></td>
<td bgcolor="#EFF8F8"><input name="thday" type="text" value="<%=objrs("thday") %>" readonly="true"></td>
<td align="center" bgcolor="#FFE186" class="STYLE9">备 注</td>
<td bgcolor="#EFF8F8"><input type="text" name="beizhu" value="<%=objrs("beizhu") %>" readonly="true"></td>
</tr>
<tr>
<td height="31" bgcolor="#EFF8F8"><p class="STYLE10"> </p>
</td>
<td height="31" bgcolor="#EFF8F8"> </td>
<td height="31" align="center" bgcolor="#EFF8F8"><span class="STYLE9"> 提交选项:</span></td>
<td height="31" bgcolor="#EFF8F8"><select name="tijiao">
<option value="完成捐书程序" selected>完成捐书程序</option>
<option value=" ">没接到所捐的书</option>
</select></td>
</tr>
</table>
<table width="700" height="84" border="0" align="center">
<tr>
<td width="245" height="51" align="right" class="STYLE6"><label></label></td>
<td width="63" align="right"><label>
<input type="submit" name="Submit" value="提
交" class="STYLE9">
</label></td>
<td width="28" align="center"> </td>
<td width="66" align="left"><label>
<input name="Submit2" type="reset"
class="input" id="Submit2"
value="重填">
</label></td>
<td width="276" align="left"> </td>
</tr>
</table>
<p> </p>
</form>
<%
set rs=nothing
conn.close
set conn=nothing
%>
</body>
<%
id =trim(request.querystring("id"))
shuming=request("shuming")
xuehao=request("xuehao")
name1=request("name1")
isbn=Request("isbn")
thday=request("thday")
beizhu=request("beizhu")
tijiao=request("tijiao")
set rs=server.createobject("adodb.recordset")
StrSql="select top 1 * from book2 where id="&id&""
rs.open StrSql,conn,1,3
rs.addnew
rs("shuming")=shuming
rs("xuehao")=xuehao
rs("name1")=name1
rs("isbn")=isbn
rs("thday") = thday
rs("beizhu") = beizhu
rs("tijiao") = tijiao
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script
language="JavaScript">
window.close();
history.go(-1);
window.close();
</script>
2008-05-09 15:44
