<%@language=vbscript codepage=936 %>
<%
dim ArticleID,rsArticle,FoundErr,ErrMsg
ArticleID=trim(request("ArticleID"))
id=trim(request("id"))
FoundErr=False
if ArticleID="" then
response.Redirect("ywManage.asp?id="&request("id")&"")
end if
sql="select * from yw where ArticleID=" & ArticleID & ""
Set rsArticle= Server.CreateObject("ADODB.Recordset")
rsArticle.open sql,conn,1,1
if FoundErr=True then
call WriteErrMsg()
else
%>
<%
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from SmallClass order by SmallClassID asc"
rs.open sql,conn,1,1
%>
<%
end if
rsArticle.close
set rsArticle=nothing
call CloseConn()
%>