📄 companymanage.asp

📁 物流管理系统
💻 ASP
字号:
<%@ LANGUAGE="VBScript"%>
<% response.buffer=true %>
<%const title="公司信息表管理 "%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<body topmargin="0">
<!--#include file=../data/myPrg.asp-->
<!--#include file=../data/connect.asp-->
<!--#include file=../data/username.inc-->
<% 
'on error resume next
Showtitle(title)
hurry = split(session("username"),";")
UserCompanyid =  hurry(0)
UserFlag = hurry(1)
User = hurry(2)
if UserFlag > 2 then
	call closedatabase
	Response.End 
end if
dim curaction, curid, bedit, founderr, errmsg
curaction = request("action")
curid = request("id")
curid = replace(curid,"'","")
'Response.Write curid
bedit = false
founderr = false
if curaction = "edit" then
	bedit = true
end if
dim sql
admin = Request("admin")
'添加记录
if curaction = "newsave" then
	if trim(request("companyname")) = "" or trim(request("companyaddress")) = ""  then
		founderr = true
		call closedatabase
		response.write "<script language=javascript>"
		Response.Write "alert(""请填写完整的资料！"");history.back();</script>"
		Response.End 
		'errmsg = "<p><font color=red>请填写完整的资料！</font></p>"
	end if
	if founderr then
		response.write errmsg
	else
		set rs7=server.CreateObject("ADODB.recordset")
		txttitle = trim(request.form("companyname"))
		txttitle = replace(txttitle,"'","’")
		sql = "select * from company where company_name = '" & txttitle &"'"
		rs7.open sql,conn,3,2
		if rs7.eof then
			company_address = trim(request("companyaddress"))
			company_address = replace(company_address,"'","’")
			company_contact_man = trim(request("companycontactman"))
			company_contact_man = replace(company_contact_man,"'","’")
			company_tel = trim(request("companytel"))
			company_tel = replace(company_tel,"'","’")
			company_fax = trim(request("companyfax"))
			company_fax = replace(company_fax,"'","’")
			company_beizu = trim(request("companybeizu"))
			company_beizu = replace(company_beizu,"'","’")
			company_city = trim(request("companycity"))
			company_city = replace(company_city,"'","’")
			if company_city = "" then company_city = " "
			
			'dc_beizu = trim(request("dc_beizu"))
			if company_address = "" then company_address = " "
			if company_contact_man = "" then company_contact_man = " "
			if company_tel = "" then company_tel = " "
			if company_fax = "" then company_fax = " "
			if company_beizu = "" then company_beizu = " "
			flag = 0
			t = date()
			sql = "insert into company(company_name,company_address,company_contact_man,company_tel,company_fax,company_disabled,company_beizu,add_time,update_time,company_city) values('"&txttitle&"','"&company_address&"','"&company_contact_man&"','"&company_tel&"','"&company_fax&"',0,'"&company_beizu&"','"&t&"','"&t&"','"&company_city&"')"
			conn.execute sql
			'Application.UnLock 
			'sql = "select max(company_id) as id2 from company"
			'set rs_ct = conn.execute(sql)
			'id2 = rs_ct("id2")
			'rs_ct.close
			'set rs_ct = nothing
			'sql = "exec Create_io_stock_single "&id2&" "
			'conn.execute(sql)	
			if err.number <> 0 then
				rs7.close
				set rs7 = nothing
				call closedatabase
				if debug = 1 then
					response.write "无法保存,数据库操作出错:" + err.description
					Response.Write "错误程序：" & Err.Source & "<br>"
				else
					Response.Write "运行出现异常，请稍后再试"
				end if
				Response.End 
			else
				'response.write "<script language=javascript>"
				'Response.Write "alert(""记录已经添加到数据库！"");</script>"

				response.write "<center><p>记录已经添加到数据库。</p></center>"
			end if
		else
			rs7.close
			set rs7 = nothing
			call closedatabase
			response.write "<script language=javascript>"
			Response.Write "alert(""该公司已存在！"");history.back();</script>"
			Response.End 
		end if
		rs7.close
		set rs7 = nothing
	end if
end if

'保存记录
if curaction = "editsave" then
	if trim(request("companyname")) = "" or trim(request("companyaddress")) = ""  then
		founderr = true
		call closedatabase
		response.write "<script language=javascript>"
		Response.Write "alert(""请填写完整的资料！"");history.back();</script>"
		Response.End 
		'errmsg = "<p><font color=red>请填写完整的资料！</font></p>"
	end if
	if founderr then
		response.write errmsg
	else
	
		set rs7=server.CreateObject("ADODB.recordset")
		txttitle = trim(request.form("companyname"))
		txttitle = replace(txttitle,"'","’")
		sql = "select * from company where  company_name = '" & txttitle &"' and company_id <> " + curid
		rs7.open sql,conn,3,2
		if  rs7.eof then		
			company_address = trim(request("companyaddress"))
			company_address = replace(company_address,"'","’")
			company_contact_man = trim(request("companycontactman"))
			company_contact_man = replace(company_contact_man,"'","’")
			company_tel = trim(request("companytel"))
			company_tel = replace(company_tel,"'","’")
			company_fax = trim(request("companyfax"))
			company_fax = replace(company_fax,"'","’")
			company_beizu = trim(request("companybeizu"))
			company_beizu = replace(company_beizu,"'","’")
			
			company_city = trim(request("companycity"))
			company_city = replace(company_city,"'","’")
			if company_city = "" then company_city = " "
			
			'dc_beizu = trim(request("dc_beizu"))
			if company_address = "" then company_address = " "
			if company_contact_man = "" then company_contact_man = " "
			if company_tel = "" then company_tel = " "
			if company_fax  = "" then company_fax  = " "
			if company_beizu = "" then company_beizu = " "
			
			t = date()
			sql = "UPDATE company SET "
			sql = sql + " company_name= '" & txttitle & "',"
			sql = sql + " company_city = '" & company_city & "',"
			sql = sql + " company_address= '"&company_address&"',"			
			sql = sql + " company_contact_man= '"&company_contact_man&"',"
			sql = sql + " company_tel= '"&company_tel&"',"
			sql = sql + " company_fax= '"&company_fax&"',"
			sql = sql + " company_beizu= '"&company_beizu&"',"
			sql = sql + " update_time= '"&t&"'"
			sql = sql + " WHERE company_id = " + curid
			'Response.Write sql
			conn.execute sql
			if err.number <> 0 then
				rs7.close
				set rs7 = nothing
				call closedatabase
				if debug = 1 then
					response.write "无法保存,数据库操作出错:" + err.description
					Response.Write "错误程序：" & Err.Source & "<br>"
				else
					Response.Write "运行出现异常，请稍后再试"
				end if
				Response.End 
			else
				response.write "<center>记录已经更新到数据库。</center>"
			end if
		else
			rs7.close
			set rs7 = nothing
			call closedatabase
			response.write "<script language=javascript>"
			Response.Write "alert(""该公司信息已存在！"");history.back();</script>"
			Response.End 
			'response.write "<font color=red>该DC编号已存在！</font>"
		end if
		rs7.close
		set rs7 = nothing
	end if

end if

dim rs, rs1, sql1, strtype, strvalue

set rs8=server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM company order by company_id desc"
rs8.open sql, conn, 3, 2
if err.number <> 0 then
				rs8.Close
				set rs8 = nothing
				call closedatabase
				if debug = 1 then
					response.write "无法保存,数据库操作出错:" + err.description
					Response.Write "错误程序：" & Err.Source & "<br>"
				else
					Response.Write "运行出现异常，请稍后再试"
				end if
				Response.End 
	else
		if rs8.eof and rs8.bof then
			response.write "没有记录"
		else
		
 %>

<table border='1' width=90% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
 <td colspan=7 align=center bgcolor=red><b><font color=yellow>公司信息一览</font></b></td>
</tr>
<tr bgcolor=#0000A0>
<td align=center><font color=white>公司名称</font></td>
<td align=center><font color=white>联系人</font></td>
<td align=center><font color=white>联系电话</font></td>
<td align=center><font color=white>传真</font></td>
<td align=center><font color=white>操作</font></td></tr>
<% 
dim curpage, i
if request("page")="" then
  	curpage = 1
else
	curpage = clng(request("page"))
end if

rs8.pagesize = 5
rs8.absolutepage = curpage
for i = 1 to rs8.pagesize
%>
<tr><td align=center><a href="#" onclick="javascript:window.open('companyview.asp?id=<%=rs8("company_id")%>&page=<%=curpage%>','hamier','height=450,width=500')"><%= rs8("company_name") %></a></td>
<td align=center>
<%
if  trim(rs8("company_contact_man")) <> "" then 
	Response.Write  trim(rs8("company_contact_man"))
else
	Response.Write "&nbsp;"
end if %></td>
<td align=center>
<%
if trim(rs8("company_tel")) <> "" then
	Response.Write trim(rs8("company_tel"))
else
	Response.Write "&nbsp;"
end if
 %></td>
<td align=center>
<%
if trim(rs8("company_fax")) <> "" then
	Response.Write trim(rs8("company_fax"))
else
	Response.Write "&nbsp;"
end if %></td>
<td align=center><a href='companymanage.asp?action=edit&id=<%= rs8("company_id") %>&page=<%=curpage%>'>编辑</a> 
</td></tr>
<% rs8.movenext
if rs8.eof then
	i = i + 1
	exit for
end if
next %>
</table>
<%		
		response.write "<p align=center>"
		response.write "第" + cstr(curpage) + "页/总" + cstr(rs8.pagecount) + "页 "
		response.write "本页" + cstr(i-1) + "条/总" + cstr(rs8.recordcount) + "条 "
		if curpage = 1 then 
			response.write "首页 前页 "
		else
			response.write "<a href='companymanage.asp?page=1'>首页</a> <a href='companymanage.asp?page=" + cstr(curpage-1) + "'>前页</a> "
		end if
		if  curpage = rs8.pagecount then
			response.write "后页 末页"
		else
			response.write "<a href='companymanage.asp?page=" + cstr(curpage+1) + "'>后页</a> <a href='companymanage.asp?page=" + cstr(rs8.pagecount) + "'>末页</a>"
		end if
	End If
	
end if
rs8.close
set rs8 = nothing
 %>
<hr size=1>
<% 
if bedit then
	sql = "SELECT * FROM company WHERE company_id =  "&curid&""
	'set rs9 = conn.execute(sql)
	set rs8 = server.CreateObject("adodb.recordset")
	rs8.open sql,conn,3,2
end if
 %>
 
<form action="companymanage.asp" method="POST">
<p align=center><b><% If bedit then %>编辑：<% Else  %>添加：<% End If %></b></p>
<table align=center cellspacing="0" cellpadding="2" border="0">
<tr>
    <td width="25%"><b>公司名称：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="companyname" size="30" value='<%response.write rs8("company_name")%>' maxlength=50 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%else %>
	<input type="Text"  name="companyname" size="30" value='' maxlength=50 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>公司地址：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="companyaddress" size="30" value='<%response.write rs8("company_address")%>' maxlength=70 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%else %>
	<input type="Text"  name="companyaddress" size="30" value='' maxlength=70 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>所在城市：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="companycity" size="30" value='<%response.write rs8("company_city")%>' maxlength=20 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%else %>
	<input type="Text"  name="companycity" size="30" value='' maxlength=20 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>联系人：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="companycontactman" size="30" value='<%response.write trim(rs8("company_contact_man"))%>' maxlength=20 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="companycontactman" size="30" value='' maxlength=20 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>电话：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="companytel" size="30" value='<%response.write trim(rs8("company_tel"))%>' maxlength=80 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="companytel" size="30" value='' maxlength=80 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>

<tr>
    <td width="25%"><b>传真：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="companyfax" size="30" value='<%response.write trim(rs8("company_fax"))%>' maxlength=40 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="companyfax" size="30" value='' maxlength=40 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>备注：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="companybeizu" size="30" value='<%response.write trim(rs8("company_beizu"))%>' maxlength=100 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="companybeizu" size="30" value='' maxlength=100 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<%
if bedit then
	rs8.close
	set rs8 = nothing
end if
call closedatabase
 %>
<tr><td align=center colspan="2">
<input type="Hidden" name="action" value='<% If bedit then%>editsave<% Else  %>newsave<% End If %>'>
<% If bedit then %>
<input type="Hidden" name="id" value='<%= cstr(curid) %>'>
<input type="Hidden" name="page" value='<%= request("page") %>'>
<% End If %>
<input type="Hidden" name=<%= strtype %> value=<%= strvalue %>>
<input type="Submit"  class=buttonface name="btnsave" value="保存">
<input type="Reset"  class=buttonface value="取消"></td></tr>
</table>
</form>
<p align=center>[ <a href='manage.asp'>返回</a> ]
<!--#include file=../data/copyright.asp-->
</body>
</html>
⌨️ 快捷键说明

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