<% dim id,edit,code edit=request.form("type") code=request.form("code") if edit="edit" then 'response.write "" if code="" then response.write "代码为空" else response.write code end if else 'response.write "" 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 %>