⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 save_info.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %>
<!--#include file="../../inc/check.asp"-->
<!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/check_input.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 sortid
dim typeid
dim showname
dim jgsm
dim mmfx
dim period
dim content
dim img
dim linkman
dim address
dim email
dim phone
dim fax
dim postcode
dim web
dim city
dim country
dim rs
dim sql 
dim qorder
dim rsyy
set rsyy=conn.execute("select qorder from info order by qorder desc")
qorder=rsyy("qorder")
sortid=request("sortid")
typeid=request("typeid")
showname=request("showname")
jgsm=request("jgsm")
mmfx=request("type")
period=request("period")
content=request("content")
img=request("img")
linkman=request("linkman")
company=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
city=request.form("city")
company=request("company")
showname=request("showname")
company=CheckInput(company,"s","0")
showname=CheckInput(showname,"s","0")
set rs=server.createobject("adodb.recordset")
sql="select * from info where company='"&company&"'and showname='"&showname&"'" 
rs.open sql,conn,1,3
if not rs.eof then
response.write"<SCRIPT language=JavaScript>alert('对不起,您已经提交过此信息!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end 
else
rs.addnew
rs("sortid")=sortid
rs("typeid")=typeid
rs("showname")=showname
rs("qorder")=qorder
rs("jgsm")=jgsm
rs("type")=mmfx
rs("period")=period
rs("content")=content
rs("picture")=img
rs("linkman")=linkman
rs("company")=company
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("gsid")=session("id")
rs("dateandtime")=date()
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
%>
<%end if%><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=sj_edit.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="sj_edit.asp#a"><font color="#FF6600">返回</font></a></b></font><p> </td>
</tr>
</table>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -