%
if Not ChkPost then
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if
if session("id")="" then
session("geturl")=geturl
response.Redirect("../../login/login.asp")
response.end
end if
%>
<%
dim sql
dim rs
dim info_id, year_now, month_now, day_now
year_now = year(date())
month_now = month(date())
day_now = day(date())
if Chkrequest(request("info_id")) then
info_id=request("info_id")
else
Response.Redirect ("../../login/chklogin.asp?login=4")
end if
sql="select info.*,corporation.* from info,corporation where info.info_id=" & info_id & " and corporation.id=info.gsid"
set rs=conn.execute(sql)
if rs.eof then
response.write "
对不起,没有您要查询的信息,可能已经被删除。
"
else
gsid=rs("gsid")
if gsid=session("id") then
response.write""
response.end
end if
set rsblak=conn.execute("select id from MemberRelation where user='"&rs("user")&"' and secuser='"&session("user")&"' and relation=-1")
if not (rsblak.eof and rsblak.bof) then
response.write""
response.end
end if
rsblak.close
set rsblak=nothing
if Cint(request("Verifycode"))<>Session("GetCode") then
if request.form("Verifycode")="" and request.form("messageContent")="" then
call main()
else
response.write""
response.end
end if
else
title=Replace_Text(request.form("messageTitle"))
content=Replace_Text(request.form("messageContent"))
needtrust=Replace_Text(request.form("needtrust"))
sendemail=Replace_Text(request.form("sendemail"))
saveSendMessage=Replace_Text(request.form("saveSendMessage"))
sendContact=Replace_Text(request.form("sendContact"))
checkdate=Replace_Text(request.form("checkdate"))
start_year=Replace_Text(request.form("start_year"))
start_month=Replace_Text(request.form("start_month"))
start_day=Replace_Text(request.form("start_day"))
requestinfo=Replace_Text(request.form("requestinfo"))
mycid=Replace_Text(request.form("mycid"))
if saveSendMessage<>"" then
set rs1=server.createobject("adodb.recordset")
sql1="select * from getprice1 where (id is null)"
rs1.open sql1,conn,1,3
rs1.addnew
rs1("title")=title
rs1("content")=content
if sendemail<>"" then rs1("sendemail")=1
if needtrust<>"" then rs1("needtrust")=1
if sendContact<>"" then rs1("sendcontact")=1
if checkdate<>"" then
rs1("checkdate")=1
rs1("limitedtime")=start_year&"年"&start_month&"月"&start_day
end if
rs1("requestinfo")=requestinfo
rs1("mycid")=mycid
rs1("sendcid")=session("id")
rs1("datetime")=now()
rs1.update
end if
set rs=server.createobject("adodb.recordset")
sql="select * from getprice where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=content
if sendemail<>"" then rs("sendemail")=1
if needtrust<>"" then rs("needtrust")=1
if sendContact<>"" then rs("sendcontact")=1
if checkdate<>"" then
rs("checkdate")=1
rs("limitedtime")=start_year&"年"&start_month&"月"&start_day
end if
rs("requestinfo")=requestinfo
rs("mycid")=mycid
rs("sendcid")=session("id")
rs("datetime")=now()
if saveSendMessage<>"" then
rs("getprice1id")=rs1("id")
rs1.close
set rs1=noting
end if
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
'email 内容
Dim l_message
' 声明变量
l_message = "" & vbCrLf
l_message = l_message & ""
l_message = l_message & ""
l_message = l_message & "中国触摸屏网询价留言信息"
l_message = l_message & ""
l_message = l_message & ""
l_message = l_message & ""
l_message = l_message & ""
l_message = l_message & "
"
l_message = l_message & ""
l_message = l_message & ""
if sendemail<>"" then
topic="我对您发布的" & rs("showname") & "很感兴趣" ' 信件主题
mailbody=l_message ' 信件内容
Dim t_ret
t_ret = SendMail(MailServer,MailServerUserName,MailServerPassword,MailUserName,MailUserAddress,email,topic,mailbody)
end if
response.write""
response.end
end if
end if
sub main()
%>
发送留言询问产品价格|中国触摸屏网
<%
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
Function GetCode()
Dim TestObj
On Error Resume Next
Set TestObj = Server.CreateObject("Adodb.Stream")
Set TestObj = Nothing
If Err Then
Dim TempNum
Randomize timer
TempNum = cint(8999*Rnd+1000)
Session("GetCode") = TempNum
GetCode = Session("GetCode")
Else
GetCode = ""
End If
End Function
%>