%
id=SafeRequest("id",1)
sql="select * from dcyj where dcyjid=" & id
%>
山东省发展和改革委员会
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,session("sqlconnect"),1,1 ''记录移动、只读
if not rs.eof then
title=rs("title")
part=rs("part")
content=changechr(rs("content"))
leftnum=int(len(rs("title"))/2)
num=len(rs("title"))
filename1=rs("filename1")
web_name_1=rs("web_name_1")
end if
rs.close
set rs=nothing%>