shopreg_save.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 72 行

<!--#include file="ddtaobao.asp"-->
<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
if request.form("temp")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
else

if request.form("shopname")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('店铺名称不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("shopcontent")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('店铺描述不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("shopaddress")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('店铺地址不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("shopphone")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('联系电话不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if


shopname=HTMLEncode(request.form("shopname"))
zu=HTMLEncode(request.form("zu"))
shopcontent=request.form("shopcontent")
shopaddress=HTMLEncode(request.form("shopaddress"))
shopphone=HTMLEncode(request.form("shopphone"))

set rs=server.createobject("adodb.recordset")
sql="select * from dd_user where user_id="&session("user_id")&""
rs.open sql,conn,1,3
rs("shop_name")=shopname
rs("zu")=zu
rs("shop_content")=shopcontent
rs("shop_address")=shopaddress
rs("shop_phone")=shopphone
rs("shop_img")="images/eshop.gif"
rs("font")="0"


rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

session("antry")="" '提交成功，清空session("antry")，以防重复提交！！
%><%end if%><!--#include file="Inc/MsgBox.asp"--><%
Call MsgBox("申请成功，请等待审核","GoUrl","user.asp")
    response.End()
%>