<%@LANGUAGE="VBSCRIPT" CodePage="65001"%>
<%
Response.CharSet = "utf-8"
Session.CodePage = "65001"
%>
<%
id = isid(Request("id"),0)
Set rs= Server.CreateObject("ADODB.Recordset")
strSql="select * from p_main where id="&id
rs.open strSql,Conn,1,1
if not rs.eof then
xs_pai = Rs("s_pai")
xS_name = rs("S_name")
xs_img = rs("s_img")
xs_content = rs("s_content")
xs_time = rs("s_time")
end if
rs.close
set rs=nothing
%>
<%=xs_name%>-<%=web_name%>
<%
id = isid(Request("id"),0)
Set rs= Server.CreateObject("ADODB.Recordset")
strSql="select * from A_main where id="&id
rs.open strSql,Conn,1,1
xs_pai = Rs("s_pai")
xS_name = rs("S_name")
xs_ly = rs("s_ly")
xs_content = rs("s_content")
xs_time = rs("s_time")
rs.close
set rs=nothing
%>
<%
sql = "select * from a_class where s_pai="&xs_pai&" order by s_order asc, id desc"
Set Rs = Conn.Execute(sql)
If Not Rs.Eof Then
Do While Not Rs.Eof
%>
