|
<%
if request("addnew") = "提交" then
company = htm_fn(request("Company"))
Contactman = htm_fn(request("Contactman"))
optMrMrs = request("optMrMrs") '性别
Email = htm_fn(request("Email"))
txtWeb = htm_fn(request("txtWeb"))
Telphone = htm_fn(request("Telphone"))
fax = htm_fn(request("fax"))
Address = htm_fn(request("Address"))
Title = htm_fn(request("Title"))
Comments = htm_fn(request("Comments"))
'On Error Resume Next
conn.BeginTrans
set rs = server.CreateObject("adodb.recordset")
if session("user") <> "" then
user_sql = "select * from lei_msg_user where user_id="&session("user_id")
rs.open user_sql,conn,1,3
else
user_sql = "select * from lei_msg_user where user_id is null"
rs.open user_sql,conn,1,3
rs.addnew
rs("username") = Contactman '联系人（用户名）
end if
rs("sex") = optMrMrs '称呼
rs("Company") = Company '所在公司
rs("Email") = Email
rs("Web") = txtWeb
rs("phone") = Telphone
rs("Fax") = Fax
rs("Address") = Address
rs.update
user_id = rs("user_id")
if request("if_auditing") = "true" then
upsql="insert into lei_message(user_id,title,content,stop) values('"&user_id&"','"&Title&"','"&Comments&"',true)"
else
upsql="insert into lei_message(user_id,title,content) values('"&user_id&"','"&Title&"','"&Comments&"')"
end if
conn.execute(upsql)
If Err Then
conn .RollbackTrans
response.write("")
response.write("")
Else
conn.CommitTrans
response.Write("")
End If
end if
%>
<%
if (rs_config("if_reg") = true and session("user")<>"") or rs_config("if_reg") = false then
%>
<%
else
%>
只有注册会员才能留言 登录
没有注册？ 立即注册
<%
end if %>
|
