ad_apply_ok.asp

一个功能强大的搜索系统

<!--#include file="setup.asp" -->
<!--#include file="conn.asp" -->
<%
dim rs,sort,sort_id,subject,body
select case request.form("ad")
case "sequence"

set rs=server.createobject("adodb.recordset")
rs.open "select id,sort,sort_id from sort where id="&request.form("sort_id"),conn,1,1
if rs.eof and rs.bof then
'
else
sort=rs("sort")
sort_id=rs("sort_id")
end if
rs.close
set rs=Nothing

path=" >> "&sort
if ssort_id<>0 then
for i=1 to 8 step 1
set rs=conn.execute("select id,sort,sort_id from sort where id="&sort_id)
if rs.eof and rs.bof then
'
else
sort_id=rs("sort_id")
path=" >> "&rs("sort")&"" & path
end if
rs.close
set rs=Nothing
next
end if
conn.close
set conn=nothing

subject="网站排名推广申请表"

body=body &"网站名称："&request.form("title")&""  & vbcrlf & ""
body=body &"网站网址："&request.form("url")&""  & vbcrlf & ""
body=body &"分类目录："&path&""  & vbcrlf & ""
body=body &"推广时间："&request.form("ad_time")&""  & vbcrlf & ""
body=body &"推广时间："&request.form("ad_time")&""  & vbcrlf & ""
body=body &"排名名次："&request.form("sequence")&""  & vbcrlf & ""
body=body &"联 系 人："&request.form("name")&""  & vbcrlf & ""
body=body &"联系电话："&request.form("phone")&""  & vbcrlf & ""
body=body &"电子邮箱："&request.form("email")&""  & vbcrlf & ""
body=body &"腾讯OICQ："&request.form("oicq")&""  & vbcrlf & ""
body=body &"备注内容："&request.form("remark")&""  & vbcrlf & ""


case "commend"

set rs=server.createobject("adodb.recordset")
rs.open "select id,sort,sort_id from sort where id="&request.form("sort_id"),conn,1,1
if rs.eof and rs.bof then
'
else
sort=rs("sort")
sort_id=rs("sort_id")
end if
rs.close
set rs=Nothing

path=" >> "&sort
if ssort_id<>0 then
for i=1 to 8 step 1
set rs=conn.execute("select id,sort,sort_id from sort where id="&sort_id)
if rs.eof and rs.bof then
'
else
sort_id=rs("sort_id")
path=" >> "&rs("sort")&"" & path
end if
rs.close
set rs=Nothing
next
end if
conn.close
set conn=nothing

subject="右侧推荐推广申请表"

body=body &"网站名称："&request.form("title")&""  & vbcrlf & ""
body=body &"网站网址："&request.form("url")&""  & vbcrlf & ""
body=body &"分类目录："&path&""  & vbcrlf & ""
body=body &"推广时间："&request.form("ad_time")&""  & vbcrlf & ""
body=body &"推广时间："&request.form("ad_time")&""  & vbcrlf & ""
body=body &"排名名次："&request.form("sequence")&""  & vbcrlf & ""
body=body &"联 系 人："&request.form("name")&""  & vbcrlf & ""
body=body &"联系电话："&request.form("phone")&""  & vbcrlf & ""
body=body &"电子邮箱："&request.form("email")&""  & vbcrlf & ""
body=body &"腾讯OICQ："&request.form("oicq")&""  & vbcrlf & ""
body=body &"备注内容："&request.form("remark")&""  & vbcrlf & ""


case "one_click"
subject="一点通推广申请表"

body=body &"网站名称："&request.form("title")&""  & vbcrlf & ""
body=body &"网站网址："&request.form("url")&""  & vbcrlf & ""
body=body &"推广时间："&request.form("ad_time")&""  & vbcrlf & ""
body=body &"点通词组："&request.form("one_click")&""  & vbcrlf & ""
body=body &"弹出窗口："&request.form("one_click_open")&""  & vbcrlf & ""
body=body &"联 系 人："&request.form("name")&""  & vbcrlf & ""
body=body &"联系电话："&request.form("phone")&""  & vbcrlf & ""
body=body &"电子邮箱："&request.form("email")&""  & vbcrlf & ""
body=body &"腾讯OICQ："&request.form("oicq")&""  & vbcrlf & ""
body=body &"备注内容："&request.form("remark")&""  & vbcrlf & ""

end select

dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName =WebSite_Title
JMail.from =ServeMail
JMail.AddRecipient ServeMail
JMail.Subject =subject
jmail.Body=body

JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
JMail.Priority=3
sendok=JMail.send(mailserver)
Set JMail=nothing
if sendok then
response.write "<Script>window.alert('提交成功！谢谢！我们会在24小时内联系您！');history.go(-1);</Script>"
else
response.write "<Script>window.alert('拉交失败！请使用在线方式或电话联系我们！');history.go(-1);</Script>"
end if
%>