qyhyadd_ok.asp

中国库存信息网 完整版 [已通过安全检测]Symantec AntiVirus 企业版 10.0.0.0.359 ║ ║ [病毒定义文件版本] 2006-5-5 rev.24 ║ ║ [已通

<!--#include file="dbconn.asp"-->
<%
qname=trim(request("qname"))
quser=trim(request("quser"))
qtel=trim(request("qtel"))
qht=trim(request("qht"))
qfax=trim(request("qfax"))
qfj=trim(request("qfj"))
qadd=trim(request("qadd"))
qpost=trim(request("qpost"))
qhttp=trim(request("qhttp"))
qmail=trim(request("qmail"))
qtexts=trim(request("qtexts"))
qtexts=replace(qtexts,vbcrlf,"<br>")
qaddtime=FormatDateTime((now()), 2)
if qname="" then
response.write "<script language=JavaScript>" & "alert('请重新输入公司名称！');" & "history.back()" & "</script>"
response.end
end if
if qtel="" then
response.write "<script language=JavaScript>" & "alert('请重新输入联系电话！');" & "history.back()" & "</script>"
response.end
end if

if qtexts="" then
response.write "<script language=JavaScript>" & "alert('请重新输入公司简介及业务介绍！');" & "history.back()" & "</script>"
response.end
end if
conn.execute("insert into qyhy (qname,quser,qtel,qht,qfax,qfj,qadd,qpost,qhttp,qmail,qtexts,qaddtime) values('"&qname&"','"&quser&"','"&qtel&"','"&qht&"','"&qfax&"','"&qfj&"','"&qadd&"','"&qpost&"','"&qhttp&"','"&qmail&"','"&qtexts&"','"&qaddtime&"')")
response.Redirect("qyhydel.asp")
response.End

%>