if request("action")="send" then
localnumber=trim(request.form("myphone"))
sendnumber=request.form("phone")
cheaknum=trim(request.form("cheaknum"))
number=request.form("number")
title=request.form("title")
sendtime=request.form("sendtime")
name=request.form("name")
myname=request.form("myname")
bless=request.form("bless")
typeid=request.form("typeid")
id=request.form("id")
sendnumber2=left((sendnumber),4)
set rs6=server.CreateObject("adodb.recordset")
sql6="select * from tietong where telphone="&sendnumber2
rs6.open sql6,conn,1,3
if not(rs6.eof and rs6.bof)then
response.redirect "alert.asp?action=phonecheak"
else
Conn.Execute "exec CZ_1234read"
set rs3=server.CreateObject("adodb.recordset")
sql3=" select * from T_1234_1 where PASS ='"&cheaknum&"' and caller='"&localnumber&"' and BZ=0"
' set rowcount 1
rs3.open sql3,conn,1,3
if not(rs3.bof and rs3.eof)then
hctime=trim(rs3("HCTIME"))
set rs4=server.CreateObject("adodb.recordset")
sql4="select * from cheak"
rs4.open sql4,conn,1,3
rs4.addnew
rs4("localnumber")=localnumber
rs4("sendnumber")=sendnumber
if len(sendnumber)=11 then
rs4("zj")=localnumber
end if
rs4("number")=number
rs4.update
rs4.close
set rs4=nothing
set rs5=server.CreateObject("adodb.recordset")
sql5="select * from temp"
rs5.open sql5,conn,1,3
rs5.addnew
rs5("localnumber")=localnumber
rs5("sendnumber")=sendnumber
rs5("bless")=bless
rs5("title")=title
rs5("typeid")=typeid
rs5("name")=name
rs5("myname")=myname
rs5("flag")=1
rs5("mydate")=date
rs5("systime")=now()
rs5.update
rs5.close
set rs5=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select * from main1234 where id="&id
rs.open sql,conn,1,3
rs("hits")=rs("hits")+1
rs.update
rs.close
set rs=nothing
conn.Execute "exec CZ_168PTins"
rs3("BZ")=1
rs3.update
response.redirect "alert.asp?action=succ"
else
response.redirect "alert.asp?action=cheakeorr"
rs3.close
set rs3=nothing
end if
end if
rs6.close
set rs6=nothing%>