📄 product_edit.asp

📁 商会商会商会商会商会商会商会商会商会商会商会商会商会
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
if Session("userqx")>="1" and  Session("userqx")<="9" then
else
	Response.Redirect "warn.asp"
end if
%>
<!-- #include file="../dsn.asp" -->
<%
prono=Request.QueryString("prono")
if prono="" then prono="0"

classcode=Request.QueryString("classcode")
orderby=Request.QueryString("orderby")
pageno=Request.QueryString("pageno")

htmlname="product_edit.asp?prono="+prono+"&classcode="+classcode+"&pageno="+pageno+"&ordername="+ordername+"&byasc="+byasc
backhtml="product_admin.asp?classcode="+classcode+"&pageno="+pageno+"&ordername="+ordername+"&byasc="+byasc
tablename="product"	

set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")

sqltext="select * from product_class where classcode='"+classcode+"'"
rs.Open sqltext,cn,1,1
if not rs.EOF then
	classcode=rs("classcode")
	classname=trim(rs("classname"))
	basclass=trim(rs("basclass"))
	qxflag=trim(rs("qxflag"))
else
	Response.End	
end if	
rs.Close
enflag="0"

%>
<html>
<head>
<title>网站资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000; font-family: 宋体}
td {font-size: 12px; color: #000; font-family: 宋体;line-height:130%}

.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 
.t3 {font:12px 宋体;color:336699} 
.t4 {font:12px 宋体;color:ff0000} 
.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 
.bt3 {font:14px 宋体;color:336699} 
.bt4 {font:bold 16px 宋体;color:maroon} 

.td1 {font-size:12px;line-height:20px;text-align:right;background-color:#ffffff;color:#000000}
.td2 {font-size:12px;line-height:20px;text-align:left;background-color:#ffffff;color:#000000;}
.td3 {font-size:12px;line-height:20px;text-align:left;background-color:#ffffff;color:#000000;}

A:link {color: #000077}
A:visited {color: #000077}
A:hover {color: #ff0000}

-->
</style>
</head>

<body bgcolor=#ffffff topmargin=10>
<form action="<%=htmlname%>" method=post name=editform onsubmit="return checkform(editform)" autocomplete = "off">
<%
bz=1
if Request.ServerVariables("REQUEST_METHOD")="POST" then
	bz=0
	sortnum=Request.Form("sortnum")
	title=trim(Request.Form("title"))
	price=trim(Request.Form("price"))
	price2=trim(Request.Form("price2"))

	if bz=0 then
		 if prono="0" then
			if sortnum="" or not isnumeric(sortnum) then
				sqltext="select top 1 sortnum from "+tablename+" where classcode='"+classcode+"' order by sortnum desc"
				rs.Open sqltext,cn,1,1
				if rs.EOF then
					sortnum=1	
				else
					sortnum=rs(0)+1
				end if
				rs.Close
			end if

			sql = "select max(prono) from "&tablename
			rs.Open sql,cn,0,1,1
			if not rs.EOF and rs(0) > 0 then
				tmpprono = rs(0) + 1
			else
				tmpprono = 1
			end if
			rs.Close

			rs.Open tablename,cn,3,3
			rs.AddNew
			rs("prono")=tmpprono
			rs("creadate")=Now()
			rs("classcode")=classcode
			rs("basclass")=basclass
			rs("querycount")=0
			rs("flag")="0"
		else	
			rs.Open "select * from "+tablename+" where prono="&prono,cn,3,3
		end if	
		if isnumeric(sortnum) then
			rs("sortnum")=sortnum
		end if	
		rs("title")=title
		rs("state")=trim(Request.Form("state"))
		rs("nomflag")=trim(Request.Form("nomflag"))
		rs("spec")=trim(Request.Form("spec"))
		rs("packing")=trim(Request.Form("packing"))
		rs("content")=trim(Request.Form("content"))
		rs("picalign")=trim(Request.Form("picalign"))
		rs("intro")=trim(Request.Form("intro"))
		rs("protype")=trim(Request.Form("protype"))

		if isnumeric(price) then rs("price")=price
		if isnumeric(price2) then rs("price2")=price2

		if enflag="1" then
			rs("title2")=trim(Request.Form("title2"))
			rs("content2")=trim(Request.Form("content2"))
			rs("packing2")=trim(Request.Form("packing2"))
			rs("enflag")=trim(Request.Form("enflag"))
		end if
		rs("updatetime")=now()
		
		rs.Update
		Response.Write("<script language=Javascript>")
		Response.Write("window.location.href='"+backhtml+"'")
		Response.Write("</script>")
		
	end if
else
	if prono="0" then
		state="1"
		nomflag="0"
		creadate=now()
		updatetime=now()
		querycount=0
		picalign="center"
		enflag2="0"

		sqltext="select top 1 sortnum from "+tablename+" where classcode='"+classcode+"' order by sortnum desc"
		rs.Open sqltext,cn,1,1
		if rs.EOF then
			sortnum=1	
		else
			sortnum=rs(0)+1
		end if
		rs.Close
	else
		sql="select * from "+tablename+" where prono="&prono
		rs.Open sql,cn,1,1
		if not rs.EOF then
			title=trim(rs("title"))
			title2=trim(rs("title2"))
			classcode=trim(rs("classcode"))
			basclass=trim(rs("basclass"))
			sortnum=rs("sortnum")
			price=trim(rs("price"))
			price2=trim(rs("price2"))
			spec=trim(rs("spec"))
			packing=trim(rs("packing"))
			packing2=trim(rs("packing2"))
			content=trim(rs("content"))
			intro=trim(rs("intro"))
			state=trim(rs("state"))
			flag=trim(rs("flag"))
			picalign=trim(rs("picalign"))
			nomflag=trim(rs("nomflag"))
			creadate=rs("creadate")
			updatetime=rs("updatetime")
			querycount=rs("querycount")
			enflag2=trim(rs("enflag"))
			protype=trim(rs("protype"))
		end if	
	end if
end if	
if bz=1 or bz=2 or bz=3 then
 %>
 
 <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr><td>
		当前位置：<b><%=classname%></b> ←
		<a href="<%=backhtml%>">返回列表</a></td></tr>
	<tr><td><hr size=1></td></tr>
	<tr bgcolor=#898989><td height=20><font class=t2>具体内容</font><br>
	</td></tr>
	<tr><td height=5></td></tr>
 </table>
 <table width="100%" border="0" cellspacing="1" cellpadding="0" align="center">
	<tr><td width=70 align=right>索引号：</td>
		<td><input type="text" value="<%=sortnum%>" name=sortnum maxlength=10 size=4 <%=keystate%>>
		&nbsp;创建日期：<font color=000000><%=creadate%></font>
		&nbsp;更新日期：<font color=000000><%=updatetime%></font>
		&nbsp;点击<font color=ff6600><%=querycount%></font>次
		</td></tr>
	<tr><td width=70 align=right>是否显示：</td>
		<td>
			<input type=radio name=state value="1" <%if state="1" then Response.Write("checked")%>>显示
			<input type=radio name=state value="0" <%if state="0" then Response.Write("checked")%>>不显示
		</td></tr>
	<%if enflag="1" then%>	
	<tr><td width=70 align=right>版本显示：</td>
		<td>
			<input type=radio name=enflag value="0" <%if enflag2="0" then Response.Write("checked")%>>中英文版均显示
			<input type=radio name=enflag value="1" <%if enflag2="1" then Response.Write("checked")%>>仅中文版显示
			<input type=radio name=enflag value="2" <%if enflag2="2" then Response.Write("checked")%>>仅英文版显示
		</td></tr>
	<%end if%>
	<%if mid(qxflag,1,1)="1" then%>
	<tr><td width=70 align=right>是否推荐：</td>
		<td>
			<input type=radio name=nomflag value="0" <%if nomflag="0" then Response.Write("checked")%>>不推荐
			<input type=radio name=nomflag value="1" <%if nomflag="1" then Response.Write("checked")%>>新品推荐
		</td></tr>
	<%else%>
		<input type=hidden name=nomflag value='<%=nomflag%>'>
12 下一页
💿 文件大小 6644 K
👤 上传用户 sunny_02
📂 所属分类书籍源码
🏷️ 相关标签

#商
⌨️ 快捷键说明

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