sj_save_edit.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%@ codepage ="936" %>
<!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/check_input.asp"-->
<!--#include file="../../inc/check.asp"-->
<%
dim flag,id
id=session("id")
flag=session("Flag")
if id="" or flag>whocan_sjfb 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 showname
dim ppxh
dim jgsm
dim mmfx
dim period
dim content
dim img
dim linkman
dim company1
dim address
dim email
dim phone
dim fax
dim postcode
dim web
dim city
dim country
dim rs
dim sql 
dim info_id
info_id=request("info_id")
info_id=CheckInput(info_id,"i","1")
showname=request("showname")
jgsm=request("jgsm")
ppxh=request("ppxh")
mmfx=request("type")
period=request("period")
content=request("content")
img=request("img")
linkman=request("linkman")
company1=request("company")
address=request("address")
email=request("email")
phone=request("phone")
country=request("country")
if trim(request("postcode"))="" then
post="空"
else
post=request("postcode")
end if
if trim(request.form("fax"))="" then
fax="空"
else
fax=request.form("fax")
end if
if trim(request.form("web"))="" then
web="空"
else
web=request.form("web")
end if
if trim(request("email"))="" then
email="空"
else
email=request("email")
end if 
city=request.form("city")
set rs=server.createobject("adodb.recordset")
sql="select * from info where info_id="&info_id
rs.open sql,conn,1,3
rs("showname")=showname
rs("jgsm")=jgsm
rs("ppxh")=ppxh
rs("type")=mmfx
rs("period")=period
rs("content")=content
rs("picture")=img
rs("linkman")=linkman
rs("company")=company1
rs("address")=address
rs("mail")=email
rs("phone")=phone
rs("fax")=fax
rs("postcode")=post
rs("country")=country
rs("web")=web
rs("city")=city
rs("dateandtime")=date()
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
response.redirect "sj_edit.asp"
end if
%>