<!-- #include file="conn.asp" -->
<%if wzfb=1 then%>

 <%else%> 
 <!-- #include file="bbs/ydzq.asp" -->
<%end if
call Head()
call saycardd("发表文章")
if wzfb=1 then
if myid=myid then

else
call error("所有人可发表")
end if
end if
if wzfb=2 then
if myid>0 or keys=1  then

else
call error("仅支持会员和管理发表")
end if
end if
if wzfb=3 then 
if keys=1 then

else
call error("仅支持管理发表")
end if
end if
if wzfb=4 then 

if myid=myid then

call error("仅支持后台发表")
end if
end if
 class1=request.QueryString("class")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from WZclass where classid="&class1
rs.open sql,conn,1,1 
classname=rs("class")
Response.write "<a href=""/index.asp?saytk="&saytk&"&amp;sid="&sid&""">首页</a>>文章"

Response.write ">><a href=""list.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;class="&class1&""">"&classname&"</a><br/>"
  rs.close
  set rs=Nothing
call index
function index

dim rs,sql
set rs=server.createobject("adodb.recordset")
sql = "select classid,class from wzclass"
rs.open sql,conn,1,1
if saytk>1 then
	Response.write "<form name=""form"" method=""post"" action=""post.asp?sid="&sid&"&amp;saytk="&saytk&""">"
%>
请勿上传违禁内容,谢谢！<br/>
<br/>标题:<input name="title" value=""/><br/>
内容:<input name="test" title="内容" type="text" value=""/><br/>
<%Else%>
请勿上传违禁内容,谢谢！<br/>
<br/>标题:<input name="title<%=minute(now)%><%=second(now)%>" value=""/><br/>
内容:<input name="test<%=minute(now)%><%=second(now)%>" title="内容" type="text" value=""/><br/>
<% 
end if%>
<%if saytk>1 then
call xltjlj("user",""&myni&"")
call xltjlj("classid",""&class1&"")
%>

<input type="submit" name="Submit" value="确定"></form><br/><%
else%>
<anchor>确定提交
    <go href="post.asp?sid=<%=sid%>" method="post" accept-charset="utf-8">
        <postfield name="title" value="$(title<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="test" value="$(test<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="user" value="<%=myni%>"/>
        <postfield name="classid" value="<%=class1%>"/>
    </go>
</anchor>
<%end if
end function%>

<br/>------------
<%if saytk>1 then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from WZclass where classid="&class1
rs.open sql,conn,1,1 
response.Write "<br/><a href=""list.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;class="&class1&""">返回"&rs("class")&"</a><br/>"
else%>
<br/><anchor>返回上页<prev/></anchor><br/>
<%end if%>
<!--#include file="fanhui.asp"-->
<%call headsay()%>