<meta http-equiv='Content-Type' content='text/html; charset=utf-8' /> <% dim id,edit,code edit=request.form("type") code=request.form("code") if edit="edit" then 'response.write "<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />" if code="" then response.write "代ç 为空" else response.write code end if else 'response.write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312' />" id=request.QueryString("id") if not isnumeric(id) then response.Write "å‚数错误" else Set Conn=Server.CreateObject("Adodb.Connection") ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/inc/db/#dbAAE8.Mdb") Conn.open ConnStr if err then err.clear Set Conn = Nothing Response.Write "系统错误" else sql="select * from w3_content_01 where aid="&id set rs = server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then response.Write "å‚数错误" else response.Write rs("content") end if rs.close set rs=nothing conn.close set conn=nothing end if end if end if %>