mobilejisi.asp

asp编写的短信网址访问程序

<%
Dim SmsName
Dim Password
Dim PlugNo
Dim Message
Dim Mobile
Dim OutBuf

dim msg
dim num
dim cmtyid
dim title
dim liuyan
dim hua
dim xiang
dim gongpin
SmsName = Request.Form("SmsName") 
Password = Request.Form("Password") 
PlugNo = Request.Form("PlugNo") 
Message = Request.Form("Message") 
Mobile = Request.Form("Mobile")

msg=trim(Message)
num=PlugNo
if num="6" or num="六" then
cmtyid=mid(msg,1,4)
cmtyid=cint(cmtyid)
title="我的祭语"
liuyan=mid(msg,6,len(msg)-5)
hua=0
xiang=0
gongpin=0
else
cmtyid=msg
cmtyid=Cint(cmtyid)
if num="1" or num="一" then
title="给长辈的祭语"
liuyan="年年祭扫先人墓，处处尤存长者风"
hua=0
xiang=0
gongpin=0
end if

if num="2" or num="二" then
title="给同辈的祭语"
liuyan="爱到浓时方知深，心在痛时不再分。原我同君神相会，愿我与君相依偎。"
hua=0
xiang=0
gongpin=0
end if

if num="3" or num="三" then
title="给晚辈的祭语"
liuyan="要我怎么不想你，要我怎么不念你，我的宝贝，请你快乐多一点！"
hua=0
xiang=0
gongpin=0
end if

if num="4" or num="四" then
title="给爱人的祭语"
liuyan="天上月圆，人间月半，月月月圆逢月半。心如潮涌，潮涌是心，天天心情似潮涌，真的好想你"
hua=0
xiang=0
gongpin=0
end if

if num="5" or num="五" then
title="献花、上香、贡品"
liuyan="献花、上香、贡品"
hua=1
xiang=2
gongpin=3
end if

end if
Dim strDSN,objConn
	strDSN="Provider=SQLOLEDB;Data Source=cnc-w207-sql.dns.com.cn;Uid=web293189;pwd=jueegU5J;Initial Catalog=293189_cnc-w192_dns_com_cn;"

	set objConn = Server.CreateObject("ADODB.Connection") 
	objConn.Open strDSN
strSql ="insert into t_014 (t1402,t1403,t1404,t1405,t1407,t1408,t1409,t1410) values('"&cmtyid&"','"&liuyan&"','"&Now()&"','"&Mobile&"','"&title&"','"&hua&"','"&xiang&"','"&gongpin&"')"
	objConn.execute strSql
	
%>
<%
OutBuf="您已成功发表祭语，您发表的祭语为:"&liuyan
Response.Write "!!--begin--!!"& OutBuf &"!!--end--!!"


	objConn.Close
	set objConn= nothing
%>