<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()
Call saycarda("选择版块发帖")

dim id
id=trim(request.querystring("id"))
if id="" or IsNumeric(id)=False then
  Call Error("ID无效！")
  end if
dim path,pathurl
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select id,files from upfile where id="&id,conn,1,1
if rs.eof then
  Call Error("相片不存在！")
  end if
path=rs("files")
rs.close
set rs=nothing
pathurl="(img)"&path&"(/img)"
response.write "请选择要发表到的版块<br/>"

if saytk<>1 Then

Response.write "<form name=""form"" method=""post"" action=""writetext.asp?saytk="&saytk&"&amp;sid="&sid&""">"
End if

response.write "<select name='bbsid'><option value='0'>=选择版块=</option>"
set rs=server.createobject("ADODB.Recordset")
rs.open"select id,name,pid from ydbbs where lx=1 and prentID<>0 and city=0 order by pid asc",conn,1,1
dim j
j=1
do while not rs.eof
 dim names
names=rs("name")
if len(names)>8 then names=left(names,8)
Response.write "<option value="""&rs("id")&""">"&ubb(names)&"</option>"
j=j+1
rs.movenext
loop
rs.close
set rs=nothing
Response.write "</select>"
if saytk<>1 Then
response.write "<input type=""hidden"" name=""path"" value="""&pathurl&"""/>"
response.write "<input type=""submit"" name=""Submit"" value=""下一步""/></form>"

else
response.write "<br/><anchor>下一步<go href=""writetext.asp?saytk="&saytk&"&amp;sid="&sid&""" method=""post"">"
response.write "<postfield name=""bbsid"" value=""$(bbsid)""/>"
response.write "<postfield name=""path"" value="""&pathurl&"""/>"
response.write "</go></anchor>"
End if

response.write"<br/><a href=""photoview.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">取消发表</a>"
response.write"<br/><a href=""photo.asp?saytk="&saytk&"&amp;sid="&sid&""">返回相册</a>"
%><!--#include file="fanhui.asp"-->
<%call head1()%>