<%
if request("submit")<>"" then
if request("bt")<>"" then
set rst=Server.CreateObject("ADODB.Recordset")
rst.open "sjxx",conn,1,3
rst.addnew
rst("bt")=request("bt")
rst("nr")=request("nr")
rst("qm")=request("qm")
rst("email")=request("email")
rst("rq")=now
rst.update
rst.close
set rst=nothing
response.write "发送成功！"
response.end
else
response.write "标题不能为空！"
end if
end if
%>
短信
