<%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 "请选择要发表到的版块
" response.write "=选择版块=" set rs=server.createobject("ADODB.Recordset") rs.open"select id,name,pid from ydbbs where lx=1 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 ""&ubb(names)&"" j=j+1 rs.movenext loop rs.close set rs=nothing Response.write "" response.write "
下一步" response.write "" response.write "" response.write "" response.write"
取消发表" response.write"
返回相册" %>