<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
%>