<% if session("logined")=false then response.redirect("index.asp") else %>

Admin

Add Class1

Add Class2

Add Article

---

<%if request.querystring("action")="addcat1" then sql="select * from cat1" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3%>

Class1£º

order_id:

<%end if if request.querystring("action")="addcat2" then sql="select * from cat2" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3%>

Class1£º	<% sql="select * from cat1" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof%>"><%=rs("name")%> <%rs.movenext loop if rs.eof and rs.bof then%>No Article Class <%end if%>
Class2£º	order_id:
ÄÚÈݼò½é£º
СͼƬ£º
´óͼƬ£º

<%end if if request.querystring("action")="addarticle" then sql="select * from article" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3%>

Name£º
Class£º	<% sql="select * from cat2" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof%>"><%=rs("name")%> <%rs.movenext loop if rs.eof and rs.bof then%>No Article Class <%end if%>
Content£º

<%end if if request.QueryString("action")="editcat1" then sql="select * from cat1 where id="&cint(request.querystring("id")) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %>

Class1£º

" size="25"> order_id:"> ">

<%end if if request.QueryString("action")="editcat2" then sql="select * from cat2 where id="&cint(request.querystring("id")) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %>

Class1£º	<% sql="select * from cat1" set rs1=server.createobject("adodb.recordset") rs1.open sql,conn,1,1 do while not rs1.eof%>" <%if rs1("id")=rs("cat1_id") then response.write "selected" end if%>><%=rs1("name")%> <%rs1.movenext loop if rs1.eof and rs1.bof then%>No Class <%end if%>
Class2£º	" size="25"> order_id:">
ÄÚÈݼò½é£º	<%=rs("text")%>
СͼƬ£º	" size="25">
´óͼƬ£º	" size="25">
	">

<%end if if request.QueryString("action")="editarticle" then sql="select * from article where id="&cint(request.querystring("id")) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 %>

">

Name£º	" size="25">
Class2£º	<% sql="select * from cat2" set rs2=server.createobject("adodb.recordset") rs2.open sql,conn,1,1 do while not rs2.eof%>" <%if rs2("id")=rs("cat2_id") then response.write "selected" end if%>><%=rs2("name")%> <%rs2.movenext loop if rs2.eof and rs2.bof then%>No Class <%end if%>
Contents£º	<%=rs("words")%>

<%end if if request.querystring("action")="admin" then sql="select * from web" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1%>

Webname£º	" size="25">
Weburl£º	" size="25">
User£º	" size="25">
Password£º	" size="25">
Logo£º	" size="25">
Banner£º	" size="25">
E-mail£º	" size="25">
keywords£º	<%=rs("keywords")%>

<% end if %>

---

<%end if