<% ss=request("ss") fb_ss=request("fb_ss") userid=request("userid") fb_username=request("fb_username") if userid="" then response.Write "" response.End end if if request("action")="add" then ss1=request("ss") fb_ss1=request("fb_ss") userid1=request("userid") fb_username1=request("fb_username") if request("biaoti")="" then response.Write "" response.End end if if request("content")="" then response.Write "" response.End end if cc=trim(request("userid")) if cc<>"" then cc=split(cc,",") end if for i = 0 to ubound(cc) set rs1=server.CreateObject("adodb.recordset") if ss1=1 then rs1.open "select * from shop_books where bookid="&cc(i)&"",conn,1,3 elseif ss1=2 then rs1.open "select * from laoshi where id="&cc(i)&"",conn,1,3 elseif ss1=3 then rs1.open "select * from jd_admin where id="&cc(i)&"",conn,1,3 end if if rs1.eof or rs1.bof then response.Write "" response.End else do while not rs1.eof set rs=server.CreateObject("adodb.recordset") rs.open "select * from xinxi",conn,1,3 rs.addnew if ss1=1 then rs("xx_username")=rs1("bookname") elseif ss1=2 then rs("xx_username")=rs1("ls_username") elseif ss1=3 then rs("xx_username")=rs1("user_name") end if rs("xx_biaoti")=request("biaoti") rs("xx_content")=request("content") rs("xx_date")=now() rs("fb_username")=fb_username1 rs("ss")=ss1 rs("fb_ss")=fb_ss1 rs.update rs1.movenext loop end if next rs.close set rs=nothing response.Write "" response.End end if %> Untitled Document
添加发送信息
&fb_ss=<%=fb_ss%>&fb_username=<%=fb_username%>">
信息标题:
信息内容: