📄 classify.asp

📁 物流管理系统
💻 ASP
字号:
<%@ LANGUAGE="VBScript"%>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
 %>
<%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" 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)
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
hurry = split(session("username"),";")
UserCompanyid =  hurry(0)
UserFlag = hurry(1)
User = hurry(2)
if UserFlag > 3 then
	call closedatabase
	Response.End 
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")) = ""  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("txttitle"))
		txttitle = replace(txttitle,"'","’")
		sql = "select * from prod_type where type_name = '" & txttitle &"' and type_companyid = "&newcompanyid&""
		rs7.open sql,conn,3,2
		if rs7.eof then
			type_memo = trim(request("type_memo"))
			type_memo = replace(type_memo,"'","’")
			if type_memo = "" then type_memo = " "
			sql = "insert into prod_type(type_name,type_memo,type_companyid) values('"&txttitle&"','"&type_memo&"',"&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 "<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("txttitle")) = "" 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 = request.form("txttitle")
			txttitle = replace(txttitle,"'","’")
			sql = "select * from prod_type where  type_name = '" & txttitle &"' and type_companyid = "&newcompanyid&" and id <> " + curid
			rs7.open sql,conn,3,2
			if  rs7.eof then		
				type_memo = trim(request("type_memo"))
				type_memo = replace(type_memo,"'","’")
				if type_memo = "" then type_memo = " "
				sql = "UPDATE prod_type SET "
				sql = sql + "type_name='" + txttitle + "',"
				sql = sql + " type_memo='" + type_memo + "'"			
				sql = sql + " WHERE 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(""该类别已经存在！"");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 prod_type where type_companyid = "&newcompanyid&" order by 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=80% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
 <td colspan=5 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></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("type_name") %></td>
<td align=center>
<%
type_memo = trim(rs8("type_memo"))
if type_memo <> "" then
	Response.Write type_memo
else
	Response.Write "&nbsp;"
end if
 %></td>
<td align=center><a href='classify.asp?action=edit&id=<%= rs8("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='classify.asp?page=1&companyid="&newcompanyid&"'>首页</a> <a href='classify.asp?page=" & cstr(curpage-1) & "&companyid=" &newcompanyid&" '>前页</a> "
		end if
		if  curpage = rs8.pagecount then
			response.write "后页 末页"
		else
			response.write "<a href='classify.asp?page=" + cstr(curpage+1) + "&companyid="&newcompanyid&"'>后页</a> <a href='classify.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 prod_type WHERE 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="classify.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>类别名称：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="txttitle" size="30" value='<%response.write trim(rs8("type_name"))%>' 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="type_memo" size="30" value='<%response.write trim(rs8("type_memo"))%>' maxlength=25 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="type_memo" size="30" value='' maxlength=25 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="page" value='<%= cstr(curpage) %>'>
<input type="Hidden" name=<%= strtype %> value=<%= strvalue %>>
<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 + -