savefb.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<%
dim hname,uname,tel,mail,add,subject,content,fax,cname
hname=checkstr(request.form("hname"))
uname=checkstr(request.Form("uname"))
cname=checkstr(request.Form("cname"))
tel=checkstr(request.Form("tel"))
fax=checkstr(request.Form("fax"))
mail=checkstr(request.Form("mail"))
add=checkstr(request.Form("add"))
subject=checkstr(request.form("subject"))
content=checkstr(request.Form("content"))
if hname="" then
response.write("<script>alert('请选择你需要帮助的类型');history.back()</script>")
end if
if uname="" then
response.Write("<script>alert('联系人姓名不能为空！');history.back()</script>")
response.End()
end if
if cname="" then
response.Write("<script>alert('公司名称不能为空！');history.back()</script>")
response.End()
end if
if tel="" then
response.Write("<script>alert('联系电话不能为空！');history.back()</script>")
response.End()
end if
if mail="" then
response.Write("<script>alert('E-mail不能为空！');history.back()</script>")
response.End()
end if
if subject="" then
response.write("<script>alert('帮助主题不能为空');history.back()</script>")
end if
if content="" then
response.Write("<script>alert('内容不能为空!');history.back()</script>")
response.End()
end if
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "feedback",conn,1,3
rs.addnew
rs("hname")=hname
rs("uname")=uname
rs("cname")=cname
rs("tel")=tel
rs("fax")=fax
rs("mail")=mail
rs("add")=add
rs("subject")=subject
rs("content")=content
rs.update
rs.close
set rs=nothing
'conn.execute("insert into feedback (fname,tel,mail,add,content) values ('"&fname&"','"&tel&"','"&mail&"','"&add&"','"&content&"')")
response.Write("<script>alert('信息提交成功,请等待系统给您回复!');location='help.asp'</script>")
response.End()
closeconn()
%>