zs_save_add.asp
来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 142 行
ASP
142 行
<!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/check_input.asp"-->
<%if len(request("jysm"))>700 then
response.write"<SCRIPT language=JavaScript>alert('您输入的简要说明超过了字数的限制！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else%>
<%
dim flag,id
id=session("id")
flag=session("Flag")
if id="" or flag>whocan_zsfb then
session("pageid")="home"
response.write "<SCRIPT language=JavaScript>alert('对不起，您的等级不够,不可以上传或者尚未登录！！');</SCRIPT>"
Select Case flag
case "5" '待审免费会员
name_flag="待审免费会员"
case "4" '正式免费会员
name_flag="正式免费会员"
case "3" '待审收费会员
name_flag="待审收费会员"
case "2" '正式未付费会员
name_flag="正式未付费会员"
case "1" '期满付费会员
name_flag="期满付费会员"
case "0" '享受付费会员
name_flag="享受付费会员"
case else
name_flag="定义级别有误"
End select
%>
<FONT color=red>对不起,<%=name_hyxx%>以上的会员才可观看!</font><br>
<a href=../../login/Register.asp>注册</a> | <a href=../../login/login.asp>登陆</a> | <a href=../../manage/zxjf/money.asp>成为收费会员</a> | <a href="../../admin/user/add.asp">充值帐号</a> | <a href="mailto:<%=SystemEmail%>">联系管理员</a>
<%else%>
<%
dim rs,sql,cpmc,sccj
cpmc=request("cpmc")
sccj=request("sccj")
cpmc=CheckInput(cpmc,"s","0")
sccj=CheckInput(sccj,"s","0")
set rsy=conn.execute ("select qorder from spzs")
qorder=rsy.recordcount+1
set rs=server.createobject("adodb.recordset")
sql="select * from spzs where cpmc='"&cpmc&"' and sccj='"&sccj&"'"
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
response.write"<SCRIPT language=JavaScript>alert('对不起，您已经提交过此类产品！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
id=request("id")
cpbh=request("cpbh")
cpmc=request("cpmc")
cpsb=request("cpsb")
cpcd=request("cpcd")
cpjg=request("cpjg")
cpgg=request("cpgg")
typeid=request("typeid")
sortid=request("sortid")
picture=request("img")
jysm=request("jysm")
xxsm=request("Content")
sccj=request("sccj")
lxr=request("lxr")
address=request("address")
postcode=request("postcode")
sf=request("sf")
city=request("city")
phone=request("phone")
fax=request("fax")
email=request("email")
web=request("web")
gsid=session("id")
iCount=0
rs.addnew
'-------------定义随机码
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
rs("cpbh")=cpbh + "_TY" + rndnum
rs("cpmc")=cpmc
rs("cpsb")=cpsb
rs("cpcd")=cpcd
rs("cpjg")=cpjg
rs("cpgg")=cpgg
rs("picture")=picture
rs("qorder")=qorder
rs("sortid")=sortid
rs("typeid")=typeid
rs("jysm")=jysm
rs("xxsm")=xxsm
rs("sccj")=sccj
rs("lxr")=lxr
rs("address")=address
rs("postcode")=postcode
rs("sf")=sf
rs("city")=city
rs("phone")=phone
rs("fax")=fax
rs("email")=email
rs("web")=web
rs("GsID")=gsid
rs("zsbz")=zsbz
rs("idate")=date()
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
%><head>
<STYLE type=text/css>
TD {
COLOR: #000; FONT-FAMILY: 宋体; FONT-SIZE: 12px
}
.GR {
COLOR: #666
}
</STYLE>
</head>
<meta HTTP-EQUIV=refresh Content='1;url=showing.asp#a'>
<BODY text=#000000 leftMargin=0 topMargin=0
marginheight="0" marginwidth="0">
<table border="0" cellspacing="0" width="100%" cellpadding="0" height="418" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" height="418" valign="middle" align="center">
<IMG src="../../pict/success.gif"><br><br>
<br>
<font color="#000000" class=f12 style="font-size: 10.5pt"><b>恭喜您，您的产品已经添加成功
，请等待管理员的审核！<a href="showing.asp#a"><font color="#FF6600">返回</font></a></b></font>
<p> </td>
</tr>
</table>
<%end if%>
<%end if%>
<%end if%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?