小弟刚学ASP不久,请各位高手帮我看看应该怎么改!我的图片是以地址形式存如数据库,但在显示的时候来是提示: Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp,行242 ADODB.Field 错误 '80020009' 对象关闭时不允许操作 PERSON/register.asp,行0 显示图片页面的代码如下: <% Response.Buffer=True %> <!--#include file="../inc/person.inc"--> <!--#include file="../inc/html.inc"--> <% uname=session("puid") modify=request("modify") Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from person where uname='"&uname&"'" rs.open sql,conn,1,1 %> …… <SCRIPT language=JavaScript src="../inc/window.js"></SCRIPT> <% if modify<>"ture" then %><FORM name=register action=register.asp method=post> <%else%> <FORM name="register" action="register.asp?modify=ture" method="post"> <%end if%> </p> <table border="0" cellpadding="8" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber70" bgcolor="#003366"> <tr> <td align="right" bgcolor="#D5DDE5"><p align="center"><a href="<%=rs("pic")%>" target="_blank"> <img border="0" height="160" src="<%=rs("pic")%>" width="125"></a><br> </td> </tr> </table> <p> </p> <div align="center"> <center> </center> </div> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber19" bgcolor="#111111" height="1"> <tr> </tr> </table> </center> </div>
<% bday=request("bday") if bday="" then Response.End sex=request("sex") pic=request("pic") iname=request("iname") code=request("code") mzhu=request("mzhu") guoji=request("guoji") shengao=request("shengao") tizhong=request("tizhong") nianling=request("nianling") hkb=request("hkb") edus=request("edus") marry=request("marry") byday=request("byday") hka=request("hka") zye=request("zye") zyes=request("zyes") zyms=request("zyms") zym=request("zym") edu=request("edu") school=request("school") zzmm=request("zzmm") zcheng=request("zcheng") if iname="" then iname=rs("iname") end if rs.close Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from person where uname='"&uname&"'" rs.open sql,conn,3,3 rs("iname")=iname rs("code")=code rs("mzhu")=mzhu rs("pic")=pic rs("guoji")=guoji rs("tizhong")=tizhong rs("shengao")=shengao rs("byday")=byday rs("edus")=edus rs("zym")=zym rs("hkb")=hkb rs("nianling")=nianling rs("marry")=marry rs("zzmm")=zzmm rs("zcheng")=zcheng rs("bday")=bday rs("sex")=sex rs("hka")=hka rs("zye")=zye rs("zyes")=zyes rs("zyms")=zyms rs("edu")=edu rs("school")=school rs.update rs.close if modify<>"ture" then Response.Redirect "register2.asp" else Response.Redirect "modify.asp" end if %> 我不知道到底是那里错!请帮我看看该如何修改!我也知道有很多不好的地方!只能说谢谢各位了!
[此贴子已经被作者于2005-8-24 1:25:59编辑过]