📄 dcedit.asp

📁 物流管理系统
💻 ASP
字号:
<%@ LANGUAGE="VBScript"%>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
 %>
<%const title="修改DC编号"%>
<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" onload="javascript:document.input1.txttitle.focus();">
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<% 
'on error resume next
Showtitle(title)
hurry = split(session("username"),";")
UserCompanyid =  hurry(0)
UserFlag = hurry(1)
User = hurry(2)
if UserFlag > 3 then
	Response.End 
end if
dim curaction, curid, bedit, founderr, errmsg
curaction = request("action")
curid = request("id")
curid = replace(curid,"'","")
bedit = false
founderr = false
if curaction = "edit" then
	bedit = true
end if
newcompanyid = request("companyid")
if newcompanyid = "" then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""请先选择公司再做此步操作！"");"
	Response.write "history.go(-1);"
	Response.Write "</script>"
	Response.End
elseif not isnumeric(newcompanyid) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
else
	newcompanyid = cint(newcompanyid)  
end if
dim sql

'添加记录
if curaction = "newsave" then
	
	if trim(request("txttitle")) = "" or trim(request("dc_name")) = ""  then
		founderr = true
		call closedatabase
		response.write "<script language=javascript>"
		Response.Write "alert(""请填写完整的DC资料！"");history.back();</script>"
		Response.End 
		'errmsg = "<p><font color=red>请填写完整的DC资料！</font></p>"
		
	end if
	if founderr then
		response.write errmsg
	else
		set rs7=server.CreateObject("ADODB.recordset")
		txttitle = trim(request.form("txttitle"))
		txttitle = replace(txttitle,"'","’")
		sql = "select * from dc where dc_code = '" & txttitle &"' and dc_companyid = "&newcompanyid&""
		rs7.open sql,conn,3,2
		if rs7.eof then
			dc_name = trim(request("dc_name"))
			dc_name = replace(dc_name,"'","’")
			dc_address = trim(request("dc_address"))
			dc_address = replace(dc_address,"'","’")
			dc_contact = trim(request("dc_contact"))
			dc_contact = replace(dc_contact,"'","’")
			dc_tel = trim(request("dc_tel"))
			dc_tel = replace(dc_tel,"'","’")
			dc_fax = trim(request("dc_fax"))
			dc_fax = replace(dc_fax,"'","’")
			dc_beizu = trim(request("dc_beizu"))
			dc_beizu = replace(dc_beizu,"'","’")
			if dc_address = "" then dc_address = " "
			if dc_contact = "" then dc_contact = " "
			if dc_tel = "" then dc_tel = " "
			if dc_fax = "" then dc_fax = " "
			if dc_beizu = "" then dc_beizu = " "
			sql = "INSERT INTO dc(dc_code,dc_name,dc_address,dc_contact,dc_tel,dc_beizu,dc_fax,dc_disabled,dc_companyid) VALUES('"
			sql = sql + txttitle + "','"
			sql = sql + dc_name + "','"
			sql = sql + dc_address + "','"
			sql = sql + dc_contact +"','"
			sql = sql + dc_tel + "','"
			sql = sql + dc_beizu + "','"
			sql = sql + dc_fax +"',0,"&newcompanyid&")"
			'Response.Write sql
			'Response.End 
			conn.execute sql
			if err.number <> 0 then
				rs7.close
				set rs7 = nothing
				call closedatabase
				response.write "<p>无法保存,数据库操作出错:" + err.description + "</p>"
				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(""该DC编号已存在，请用其它的DC编号！"");history.back();</script>"
			Response.End 
		end if
		rs7.close
		set rs7 = nothing
	end if
end if

'保存记录
if curaction = "editsave" then
	if trim(request("txttitle")) = "" or trim(request("dc_name")) = ""  then
		founderr = true
		call closedatabase
		response.write "<script language=javascript>"
		Response.Write "alert(""请填写完整的DC资料！"");history.back();</script>"
		Response.End 
		errmsg = "<p><font color=red>请填写完整的DC资料！</font></p>"
	end if
	if founderr then
		response.write errmsg
	else
			set rs7=server.CreateObject("ADODB.recordset")
			txttitle = request.form("txttitle")
			txttitle = replace(txttitle,"'","’")
			sql = "select * from dc where  dc_code = '" & txttitle &"' and dc_companyid = "&newcompanyid&" and dc_id <> " + curid
			rs7.open sql,conn,3,2
			if  rs7.eof then		
				u = request("dc_name")
				u = replace(u,"'","’")
				dc_address = trim(request("dc_address"))
				dc_address = replace(dc_address,"'","’")
				dc_contact = trim(request("dc_contact"))
				dc_contact = replace(dc_contact,"'","’")
				dc_tel = trim(request("dc_tel"))
				dc_tel =replace(dc_tel,"'","’")
				dc_fax = trim(request("dc_fax"))
				dc_fax = replace(dc_fax,"'","’")
				dc_beizu = trim(request("dc_beizu"))
				dc_beizu = replace(dc_beizu,"'","’")
				if dc_address = "" then dc_address = " "
				if dc_contact = "" then dc_contact = " "
				if dc_tel = "" then dc_tel = " "
				if dc_fax = "" then dc_fax = " "
				if dc_beizu = "" then dc_beizu = " "
				sql = "UPDATE dc SET "
				sql = sql + "dc_code='" + txttitle + "',"
				sql = sql + " dc_name='" + u + "',"			
				sql = sql + " dc_address='" + dc_address + "',"
				sql = sql + " dc_contact='" + dc_contact + "',"
				sql = sql + " dc_tel='" + dc_tel + "',"
				sql = sql + " dc_beizu='" + dc_beizu + "',"
				sql = sql + " dc_fax='" + dc_fax + "'"
				sql = sql + " WHERE dc_id = " + curid
				conn.execute sql
				if err.number <> 0 then
					rs7.close
					set rs7 = nothing
					call closedatabase
					response.write "无法保存,数据库操作出错:" + err.description
					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(""该DC编号已存在！"");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 dc where dc_companyid = "&newcompanyid&" order by dc_id desc"
rs8.open sql, conn, 3, 2
if err.number <> 0 then
	rs8.Close
	set rs8 = nothing
	call closedatabase
	response.write "数据库操作失败："&err.description & "<br>"
	Response.Write "错误程序：" & Err.Source & "<br>"
    Response.End     
	else
		if rs8.eof and rs8.bof then
			response.write "没有记录"
		else

		
 %>

<table border='1' width=100% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
 <td colspan=7 align=center bgcolor=red><b><font color=yellow> DC编号一览</font></b></td>
</tr>
<tr bgcolor=#0000A0>
<td align=center><font color=white>DC编号</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>
<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><%= rs8("dc_code") %></td>
<td align=center><%= rs8("dc_name") %></td>
<td align=left>
<%
if trim(rs8("dc_address")) <> "" then
	if len(rs8("dc_address"))>10 then
		Response.Write  left(rs8("dc_address"),7)&"..."
	else
		Response.Write rs8("dc_address")
	end if
else
	Response.Write "&nbsp;"
end if %></td>
<td align=center>
<%
if trim(rs8("dc_contact")) <> "" then
	Response.Write trim(rs8("dc_contact"))
else
	Response.Write "&nbsp;"
end if
 %>
</td>
<td align=center>
<%
if trim(rs8("dc_tel")) <> "" then
	Response.Write trim(rs8("dc_tel"))
else
	Response.Write "&nbsp;"
end if
 %></td>
<td align=center>
<%
if  trim(rs8("dc_fax")) <> "" then
	Response.Write trim(rs8("dc_fax"))
else
	Response.Write "&nbsp;"
end if
 %></td>
<td align=center><a href='dcedit.asp?action=edit&id=<%= rs8("dc_id") %>&page=<%=curpage%>&companyid=<%=newcompanyid%>'>编辑</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='dcedit.asp?page=1&companyid="&newcompanyid&"'>首页</a> <a href='dcedit.asp?page=" + cstr(curpage-1) + "&companyid=" &newcompanyid&"'>前页</a> "
		end if
		if  curpage = rs8.pagecount then
			response.write "后页 末页"
		else
			response.write "<a href='dcedit.asp?page=" + cstr(curpage+1) + "&companyid=" &newcompanyid&"'>后页</a> <a href='dcedit.asp?page=" + cstr(rs8.pagecount) + "&companyid=" &newcompanyid&"'>末页</a>"
		end if
	End If
	
end if
rs8.close
set rs8 = nothing
 %>
<hr size=1>
<% 
if bedit then
	sql = "SELECT * FROM dc WHERE dc_id =  "&curid&""
	'set rs9 = conn.execute(sql)
	set rs8 = server.CreateObject("adodb.recordset")
	rs8.open sql,conn,3,2
	if rs8.EOF then
		bedit = false
	end if
end if
 %>
 
<form action="dcedit.asp" method="POST" name="input1">
<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>DC编号：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="txttitle" size="30" value='<%response.write rs8("dc_code")%>' maxlength=10 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%else %>
	<input type="Text"  name="txttitle" size="30" value='' maxlength=10 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="dc_name" size="30" value='<%response.write rs8("dc_name")%>' maxlength=15 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%else %>
	<input type="Text"  name="dc_name" size="30" value='' maxlength=15 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="dc_address" size="30" value='<%response.write trim(rs8("dc_address"))%>' maxlength=100 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="dc_address" size="30" value='' maxlength=100 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="dc_contact" size="30" value='<%response.write trim(rs8("dc_contact"))%>' maxlength=50 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="dc_contact" 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="dc_tel" size="30" value='<%response.write trim(rs8("dc_tel"))%>' maxlength=80 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="dc_tel" 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="dc_fax" size="30" value='<%response.write trim(rs8("dc_fax"))%>' maxlength=40 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="dc_fax" 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="dc_beizu" size="30" value='<%response.write trim(rs8("dc_beizu"))%>' maxlength=100 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="dc_beizu" size="30" value='' maxlength=100 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<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) %>'>
<% End If %>
<input type="Hidden" name="companyid" value='<%= cstr(newcompanyid) %>'>
<input type="Hidden" name=<%= strtype %> value=<%= strvalue %>>
<input type="Hidden" name="page" value='<%= cstr(curpage) %>'>
<input class=buttonface type="Submit" name="btnsave" value="保存">
<input class=buttonface type="Reset" value="取消"></td></tr>
</table>
</form>
<%
if bedit then
	rs8.close
	set rs8 = nothing
end if
call closedatabase
 %>
<!--#include file=../data/copyright.asp-->
</body>
</html>
⌨️ 快捷键说明

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