商品采购的代码 - 360文档中心

合集下载

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

<%if Request.Cookies("venshop")("user_name")="" then
response.redirect "login.asp?comurl=caigou.asp"
response.end
elseIf request("action")="add" Then
Set rs= Server.CreateObject("ADODB.Recordset")
Sql="select * from venshop_gou"
rs.open sql,conn,1,3
rs.addnew
rs("hw")=DelStr(request("hw"))
rs("count")=DelStr(request("count"))
rs("name")=DelStr(request("name"))
rs("tel")=DelStr(request("tel"))
rs("email")=DelStr(request("email"))
rs("guige")=DelStr(request("guige"))
rs("cailiao")=DelStr(request("cailiao"))
rs("beizhu")=htmlencode2(request("beizhu"))
rs("username")=Request.Cookies("venshop")("user_name")
rs("gdate")=date()
rs("acheck")=0
rs.update
rs.close
set rs=nothing%>

提交成功，继续填写>>
不填写返回首页！

<%else%>

<%user_name=Request.Cookies("venshop")("user_name")
chklogin(user_name)
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_user where username='"&user_name&"'"
rs.open sql,conn,1,1
if rs.eof then
response.redirect "login.asp?comurl=caigou.asp"
response.end
else%>

<%end if

rs.close
set rs=nothing%>

查看已登记记录>>
缺货商品：
需求数量：
商品规格：
商品材料：
备注信息：
登记人：
联系邮箱：
联系电话：

<%end if%>