miscell_edit.asp

商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会

<%@ Language=VBScript %>
<%
Response.Buffer = true
Response.Expires = 0

if Session("userqx") = "1" or Session("userqx") = "9" then
else
	Response.Redirect "warn.asp"
end if
%>

<!-- #include file="../dsn.asp" -->

<%
keyno=Request.QueryString("keyno")
if keyno="" then keyno="0"

classcode=Request.QueryString("classcode")
ordername=Request.QueryString("ordername")
byasc=Request.QueryString("byasc")
pageno=Request.QueryString("pageno")


htmlname="miscell_edit.asp?keyno="+keyno+"&classcode="+classcode+"&pageno="+pageno+"&ordername="+ordername+"&byasc="+byasc
backhtml="miscell_admin.asp?classcode="+classcode+"&pageno="+pageno+"&ordername="+ordername+"&byasc="+byasc
tablename="miscell"	


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

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


enflag=mid(qxflag,12,1)


bz=1
if Request.ServerVariables("REQUEST_METHOD")="POST" then
	bz=0
	keyno=Request.QueryString("keyno")
	sortnum=Request.Form("sortnum")
	title=trim(Request.Form("title"))

	if bz=0 then
		 if keyno="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=10	
				else
					sortnum=rs(0)+10
				end if
				rs.Close
			end if

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

			rs.Open tablename,cn,3,3
			rs.AddNew
			rs("keyno")=keyno
			rs("creadate")=Now()
			rs("classcode")=classcode
			rs("baseclass")=baseclass
			rs("querycount")=0
		else	
			rs.Open "select * from "+tablename+" where keyno="&keyno,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("keyword")=trim(Request.Form("keyword"))
		rs("website")=trim(Request.Form("website"))
		rs("content")=trim(Request.Form("content"))
		rs("picalign")=trim(Request.Form("picalign"))
		rs("author")=trim(Request.Form("author"))
		rs("newsfrom")=trim(Request.Form("newsfrom"))
		rs("pubdate")=trim(Request.Form("pubdate"))

		if baseclass="500" then
			rs("channel")=trim(Request.Form("channel"))
		end if
		if enflag="1" then
			rs("title2")=trim(Request.Form("title2"))
			rs("keyword2")=trim(Request.Form("keyword2"))
			rs("content2")=trim(Request.Form("content2"))
		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 keyno="0" then
		state="1"
		nomflag="0"
		creadate=now()
		updatetime=now()
		querycount=0
		flag="1"
		picalign="center"

		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
		sqltext="select * from "+tablename+" where keyno="&keyno
		rs.Open sqltext,cn,1,1
		if not rs.EOF then
			sortnum=rs("sortnum")
			title=trim(rs("title"))
			keyword=trim(rs("keyword"))
			website=trim(rs("website"))
			baseclass=trim(rs("baseclass"))
			content=trim(rs("content"))
			state=trim(rs("state"))
			flag=trim(rs("flag"))
			nomflag=trim(rs("nomflag"))
			creadate=rs("creadate")
			updatetime=rs("updatetime")
			querycount=rs("querycount")
			picalign=trim(rs("picalign"))
			author=trim(rs("author"))
			newsfrom=trim(rs("newsfrom"))
			channel=trim(rs("channel"))
			pubdate=trim(rs("pubdate"))
		end if
	end if
end if	

if mid(qxflag,4,1)="0" or (Session("username")="xu256" and Session("userqx")="9") then
	keystate=""
else
	keystate="readonly"
end if	
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
body,table,tr
{
	font-size:12px;
	font-family:宋体;
	line-height:20px;
}

A:link {color: #000077}
A:visited {color: #000077}
A:hover {color: #ff0000}
</style>
</head>
<body bgcolor=#ffffff topmargin=10>

<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 height=20 bgcolor=#898989>
		<td style="color:#FFFFFF;">具体内容</td>
	</tr>
	<tr>
		<td height=5></td>
	</tr>
</table>

<form action="<%=htmlname%>" method=post name=editform onsubmit="return checkform(editform)" autocomplete="off">

<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>
			<%if mid(qxflag,1,1)="1" then%>
				&nbsp;点击<font color=ff6600><%=querycount%></font>次
			<%end if%>
		</td>
	</tr>

	<%if mid(qxflag,2,1)="1" then%>
	<tr>
		<td 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>
	<%else%>
		<input type=hidden name=state value='<%=state%>'>	
	<%end if%>

	<%if mid(qxflag,3,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%>'>	
	<%end if%>

	<%if mid(qxflag,6,1)="0" then%>
		<tr>
			<td align=right>图片位置：</td>
			<td>
				<input type=radio name=picalign value="left" <%if picalign="left" then Response.Write("checked")%>>左对齐
				<input type=radio name=picalign value="center" <%if picalign="center" then Response.Write("checked")%>>居中
				<input type=radio name=picalign value="right" <%if picalign="right" then Response.Write("checked")%>>右对齐
			</td>
		</tr>
	<%end if%>

	<tr>
		<td align=right>标题名称：</td>
		<td><input type="text" value="<%=title%>" name=title maxlength=120 size=66><font color=red>*</font></td>
	</tr>

	<%if enflag="1" then%>
		<tr>
			<td width=70 align=right>标题(英)：</td>
			<td><input type="text" value="<%=title2%>" name=title2 maxlength=120 size=66></td>
		</tr>
	<%end if%>

	<%
	if classcode="999" then
	%>		
		<tr>
			<td width=70 align=right>栏目类型：</td>
			<td><input type="text" value="<%=keyword%>" name=keyword maxlength=60 size=40 <%=keystate%>></td>