qyhy_edit_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>")
'addtime=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("update qyhy set qname='"&qname&"',quser='"&quser&"',qtel='"&qtel&"',qht='"&qht&"', qfax='"&qfax&"', qfj='"&qfj&"', qadd='"&qadd&"', qpost='"&qpost&"', qhttp='"&qhttp&"', qmail='"&qmail&"' where id="&request("id"))
conn.close
response.Redirect("qyhydel.asp")
response.End
%>