edittype.asp

英文版全站B2B仿阿里巴巴贸易平台网站,全英文

<%
	if instr(session("EAPurview"),"31")=0 then
		response.redirect "../login.asp"
		response.end
	end if
%>
<!--#include file="../../Inc/DBConn1.asp" -->
<LINK href="../../CSS/style.css" rel="stylesheet" type="text/css"></LINK>

<script language=jscript>
	function Check()
	{
		if(document.form1.TypeName.value=="")
		{
			document.form1.TypeName.focus();
			alert("请输入行业中类名称！");
			return false;
		}
	}
</script>

<%
	if request("action")="edit" then
		set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "select * from Sort2 where TypeID=" & request("TypeID"),conn,3,3
		Rs("TypeName")=trim(request("TypeName"))
		Rs.Update
		Rs.Close
		Set Rs=nothing
		
		response.Redirect "Type.asp?SortID=" & request("SortID")
	end if
%>

<%
	Set ERs=server.CreateObject("ADODB.Recordset")
	ERs.Open "select * from Sort2 where TypeID=" & Request("TypeID"),conn,3,3
%>
<CENTER>
<table width="100%" border="0" cellspacing="0" cellpadding="3" ID="Table1">
	<form action="EditType.asp?action=edit" method=post name=form1 onsubmit="return Check();" ID="Form1">
	<input type=hidden name="SortID" value="<%=ERs("SortID")%>" ID="Hidden1">
	<input type=hidden name="TypeID" value="<%=ERs("TypeID")%>" ID="Hidden2">
	<TR height=30 bgcolor="#F78200">    
		<TD colspan=2><b><font color="#FFFFFF">修改行业中类</font></b></td>
	</tr>
	<tr height=40>
		<td width=20% align=right style="padding-left:5px;">
			<b>行业中类名称：</b>
		</td>
		<td width=80%>
			<input name="TypeName" value="<%=ERs("TypeName")%>" type=text size=16 ID="Text1">
			&nbsp;
			<input type=submit value=" 修 改 " ID="Submit1" NAME="Submit1">
		</td>
	</tr>
	</form>
</TABLE>
<%
	ERs.Close
	Set ERs=nothing
%>