⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 editsort.asp

📁 英文版全站B2B仿阿里巴巴贸易平台网站,全英文
💻 ASP
字号:
<%
	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.SortName.value=="")
		{
			document.form1.SortName.focus();
			alert("请输入行类大类名称!");
			return false;
		}
	}
</script>

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

<CENTER>
<%
	Set ERs=server.CreateObject("ADODB.Recordset")
	ERs.Open "select * from Sort1 where SortID=" & Request("SortID"),conn,3,3
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3" ID="Table1">
	<form action="EditSort.asp?action=edit" method=post name=form1 onsubmit="return Check();" ID="Form1">
	<input type=hidden name="SortID" value="<%=ERs("SortID")%>">
	<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="SortName" value="<%=ERs("SortName")%>" type=text size=16 ID="Text1">
			&nbsp;
			<input type=submit value=" 修 改 " ID="Submit1" NAME="Submit1">
		</td>
	</tr>
	</form>
</TABLE>
<%
	ERs.Close
	Set ERs=nothing
%>

⌨️ 快捷键说明

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