|
<%
'//发布信息
Function Exhale()
Dim I_Type,I_title,I_BigClassId,I_SmallClassId,I_Keyword,I_JzTime,I_member,I_explain,I_specification,I_CountNumber,I_packageexplain,I_price,I_price_y,I_unit,I_Pic,I_Userid
I_Type=Request.Form("I_Type")
I_title=FunInput(Request.Form("I_title"))
I_BigClassId=Clng(Request.Form("I_BigClassId"))
I_SmallClassId=Clng(Request.Form("I_SmallClassId"))
I_Keyword=Trim(Request.Form("I_Keyword"))&","&Trim(Request.Form("I_KeywordB"))&","&Trim(Request.Form("I_KeywordC"))
I_JzTime=Clng(Request.Form("I_JzTime"))
I_JzTime=DateAdd("d",I_JzTime,now())
I_explain=Request.Form("I_explain")
I_specification=Request.Form("I_specification")
I_CountNumber=Request.Form("I_CountNumber")
I_packageexplain=Request.Form("I_packageexplain")
I_price=Request.Form("I_price")
I_Pic=Request.Form("I_Pic")
I_smallPic=request.Form("I_smallPic")
I_company=Request.Form("company")
strm_name=Request.Form("strm_name")
strm_email=Request.Form("strm_email")
I_pic_2=request.form("I_pic2")&"|"&request.form("I_smallpic2")
I_pic_3=request.form("I_pic3")&"|"&request.form("I_smallpic3")
'I_member=session("lanier")
'select case I_member
'case "塑料通会员"
'I_member=11
'case "银牌会员"
'I_member=9
'case "商务通会员"
'I_member=6
'case else
'I_member=3
'end select
'///修改图库参数
Call ModAsean_memberpic(I_Pic)
I_Userid=CookieUserID
'=====================积分==================
dim jRs,jSql
Set jRs=server.createobject("adodb.recordset")
jSql="select * from Asean_jifeng where D_userid='"&CookieUserID&"'"
jRs.open jSQL,conn,1,2
if jRs.eof then
jrs.addnew
jrs("D_userid")=CookieUserID
'jrs("D_num")=jrs("D_num")+1
jrs("D_starttime")=now()
jrs("D_endtime")=now()+1
jrs("D_ip")=request.ServerVariables("LOCAL_ADDR")
jrs.update
elseif I_type=2 then
jrs("D_num")=jrs("D_num")+5
jrs.update
else
jrs("D_num")=jrs("D_num")+3
jrs.update
jrs.close:set jrs=nothing
end if
'=======================积分END======================
Dim Rs
Set Rs=Server.CreateObject("Adodb.RecorDset")
Rs.Open "Asean_info",Conn,2,2
'///数据入库
Rs.AddNew
Rs("I_Type")=I_Type
Rs("I_title")=I_title
Rs("I_BigClassId")=I_BigClassId
Rs("I_SmallClassId")=I_SmallClassId
Rs("I_Keyword")=I_Keyword
Rs("I_JzTime")=I_JzTime
Rs("I_explain")=I_explain
Rs("I_specification")=I_specification
Rs("I_CountNumber")=I_CountNumber
Rs("I_packageexplain")=I_packageexplain
Rs("I_price")=I_price
Rs("I_Pic")=I_Pic
Rs("I_smallPic")=I_smallPic
Rs("I_Userid")=CookieUserID
Rs("I_company")=I_company
Rs("I_member")=0
Rs("I_paixu")=0
Rs("I_price_y")=0
''角度
rs("I_pic_2")=I_pic_2
rs("I_pic_3")=I_pic_3
Rs.Update
Call FunMsg("Info_View.asp","您的供求商机已成功发布,我们会在24小时内审核后您的信息,审核后将正式对外公布!相关信息已发送到您的邮箱,请注意查收!")
End Function
'/////如果有图片,那就修改用户图库中的说明,和参数值
Function ModAsean_memberpic(FileName)
'=======================发信==========================
Dim emailto,email,emailname,Title,Mailbody,emailserver,user,pass
emailto=""&StrM_email&"" '收信人
Title="您在"&cityname&"发布的"&Request.Form("I_title")&"已提交成功!"
Mailbody="<html><head><meta http-equiv=""Content-Type"" ctext/html; charset=gb2312"">"
Mailbody=Mailbody & "<title>"&cityname&"</title>"
Mailbody=Mailbody & "<style type=""text/css""><!--"
Mailbody=Mailbody & "td{font-family: ""宋体"";font-size: 14px;text-decoration: none;}"
Mailbody=Mailbody & ".line {border-bottom-width: 1px;border-bottom-style: solid;border-bottom-color: #f5f5f5;}"
Mailbody=Mailbody & ".style3 {font-size: 12px;color: #198CC3}"
Mailbody=Mailbody & ".style7 {font-size: 12px}"
Mailbody=Mailbody & "a.a:link {font-family: ""宋体"";color: #000000;text-decoration: none;}"
Mailbody=Mailbody & "a.a:visited {font-family: ""宋体"";color: #000000;text-decoration: none;}"
Mailbody=Mailbody & "a.a:hover {font-family: ""宋体"";color: #000000;text-decoration: underline;}"
Mailbody=Mailbody & ".style8 {color: #999999;font-size: 12px}"
Mailbody=Mailbody & "--></style>"
Mailbody=Mailbody & "</head><body>"
Mailbody=Mailbody & "<table width=""464"" border=""0"" align=""center"" cellPadding=""1"" cellSpacing=""0"" bgColor=""#198CC3"">"
Mailbody=Mailbody & "<tbody>"
Mailbody=Mailbody & "<tr>"
Mailbody=Mailbody & "<td>"
Mailbody=Mailbody & "<table cellSpacing=""0"" cellPadding=""0"" width=""100%"" bgColor=""#ffffff"" border=""0"">"
Mailbody=Mailbody & "<tbody><tr>"
Mailbody=Mailbody & "<td vAlign=""top"" width=""4""><img height=""159"" src="""&cityurl&"/images/ShowLetter1.gif"" width=""4""></td>"
Mailbody=Mailbody & "<td vAlign=""top"" width=""460"" rowSpan=""2"">"
Mailbody=Mailbody & "<table height=""332"" cellSpacing=""0"" cellPadding=""0"" width=""460"" border=""0"">"
Mailbody=Mailbody & "<tbody><tr><td width=""460"" align=""middle"" valign=""top"">"
Mailbody=Mailbody & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Mailbody=Mailbody & "<tr><td><table width=""98%"" border=""0"" align=""center"" cellPadding=""0"" cellSpacing=""0"">"
Mailbody=Mailbody & "<tbody><tr>"
Mailbody=Mailbody & "<td width=""43%"" rowSpan=""2"" align=""center""><a href="&cityurl&" target=_blank><img src="&cityurl&"/images/Logo.gif alt="""&cityname&""" border=0></a></td>"
Mailbody=Mailbody & "<td vAlign=""bottom"" width=""57%"" height=""38""> </td>"
Mailbody=Mailbody & "</tr><tr>"
Mailbody=Mailbody & "<td width=""57%"" height=""30""><div align=""center"" class=""style7"">"
Mailbody=Mailbody & "<div align=""left"">----"&citytitle&"</div>"
Mailbody=Mailbody & "</div></td>"
Mailbody=Mailbody & "</tr>"
Mailbody=Mailbody & "</tbody>"
Mailbody=Mailbody & "</table></td>"
Mailbody=Mailbody & "</tr><tr>"
Mailbody=Mailbody & "<td valign=""top""><table width=96% border=0 align=center cellpadding=0 cellspacing=0>"
Mailbody=Mailbody & "<tr valign=""top""><td width=""100%""><hr size=""1"" noshade></td>"
Mailbody=Mailbody & "</tr><tr><td height=30 class=line>尊敬的"&StrM_name&":</td>"
Mailbody=Mailbody & "</tr><tr>"
Mailbody=Mailbody & "<td height=30><div align=left> 恭喜您,您在"&cityname&"发布的“<font color=red>"&left(Request.Form("I_title"),10)&"...</font>”,已提<br>"
Mailbody=Mailbody & "</div></td></tr><tr>"
Mailbody=Mailbody & "<td height=30 class=line>交成功,我们的服务人员会在一个工作日为您进行审核!</td>"
Mailbody=Mailbody & "</tr><tr><td height=30 class=line> 审核通过后,您可以用以下三种方法查看:</td>"
Mailbody=Mailbody & "</tr><tr><td height=30 class=line style=""padding-left:50px"">① 通过搜索查找看自己的信息是否已经上网。</td>"
Mailbody=Mailbody & "</tr><tr>"
Mailbody=Mailbody & "<td height=30 class=line style=""padding-left:50px"">② 您可以到"商业机会"栏目中,根据对应的分类进行查看。</td>"
Mailbody=Mailbody & "</tr><tr>"
Mailbody=Mailbody & "<td height=30 class=line style=""padding-left:50px"">③ 您可以到企业大全,找到自己的企业网站去查看。</td>"
Mailbody=Mailbody & "</tr><tr><td height=30 class=line><div align=""center"">如果有任何疑问,欢迎给<a href="&cityurl&"/Aboutme.asp target=_blank>我们留言</a>,我们将尽快给您回复!</div></td>"
Mailbody=Mailbody & "</tr></table>"
Mailbody=Mailbody & "<table width=""96%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
Mailbody=Mailbody & "<tr><td height=""26"" valign=""bottom""><hr size=""1"" noshade></td>"
Mailbody=Mailbody & "</tr><tr>"
Mailbody=Mailbody & "<td height=""35""><div align=""center"" class=""style7"">"
Mailbody=Mailbody & "<div align=""left"">服务热线:"&citytel&" 客服QQ:"&citywebqq&"<br> "
Mailbody=Mailbody & ""&citytitle&"<br>"
Mailbody=Mailbody & "</div></div></td></tr><tr>"
Mailbody=Mailbody & "<td height=""25""><div align=""right""><span class=""style7""><a href="""&cityurl&""" target=""_blank"" class=""a"">"&cityname&"</a> </span></div></td>"
Mailbody=Mailbody & "</tr></table></td></tr><tr>"
Mailbody=Mailbody & "<td height=""4"" valign=""bottom""><table cellSpacing=""0"" cellPadding=""0"" width=""442"" border=""0"">"
Mailbody=Mailbody & "<tbody><tr><td vAlign=""bottom"" height=""4""><img height=""4"" src="""&cityurl&"/images/ShowLetter2.gif"" width=""243""></td>"
Mailbody=Mailbody & "</tr></tbody></table></td></tr></table></td>"
Mailbody=Mailbody & "<td vAlign=""top"" width=""18"" bgColor=""#198CC3""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Mailbody=Mailbody & "<tr><td height=""64""> </td></tr><tr><td><img src="""&cityurl&"/images/iyn.gif"" ></td>"
Mailbody=Mailbody & "</table></td></tr></tbody></table></td></tr><tr>"
Mailbody=Mailbody & "<td vAlign=""bottom"" height=""2""><img height=""159"" src="""&cityurl&"/images/ShowLetter.gif"" width=""4""></td>"
Mailbody=Mailbody & "</tr>"
Mailbody=Mailbody & "</tbody></table></td></tr></tbody></table></body></html>"
call SendJmail(emailto,Title,Mailbody)'jmail函数
If FileName<>"" Then
On Error Resume Next
Dim StrSQL
StrSQL="Update Asean_memberpic Set P_LikeTo=1 Where P_Filename='"&FileName&"'"
Conn.Execute StrSQL
If Err.Number<>0 Then
Call FunErr("对不起!程序在写入图片库的过程中发生了错误!|请与管理员联系!|",False,"error.asp")
End If
Else
Exit Function
End if
End Function |
|