📄 protypeedit.asp

📁 ASP编写的一个公司网站的源程序
💻 ASP
字号:
<%@ Language=VBScript %>
<%

Response.Buffer = True
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

%>
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#include file="Function.asp"-->
<html>
<head>
<title>EditUsers</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content=" ">
<meta name="keywords" content=" ">

<link rel="stylesheet" href="../Css/css.css" type="text/css">
<script language="Javascript" src="/JS/CheckInput.js"></script>
<script language="javascript">
	function formCheck() {
		save()
	  if (document.frmUsers.Type_Name.value=="") {
	    alert("请输入名称");
	    document.frmUsers.Type_Name.focus();
	    return false;
	  }
	  if (IsInteger(document.frmUsers.Orderline.value,'+')==false) {
	    alert("排序要是大于零整数");
	    document.frmUsers.Orderline.focus();
	    return false;
	  }
	   return true;
	   }
</script>	


</head>
<!--#include file="Menu.asp"-->
<!------------------------->
<!--修改Users<-->
<!--注意事项<-->

<!-- 以下内容由程序自动生成 -->
<%
Dim Type_ID,Parent_ID
Dim rs,StrSQL
    Set rs = Server.CreateObject("Adodb.Recordset")
    Type_ID = ModifyInput(trim(Request("Type_ID")))
    Parent_ID = ModifyInput(trim(Request("Parent_ID")))
IF Request.Form<>"" then

	Dim Type_Name,State,layer,orderline,content
	Type_Name = ModifyInput(trim(Request.Form("Type_Name")))
	content = Replace(Request.Form("body"),"'","''")
    State = ModifyInput(trim(Request.Form("State")))
	orderline = ModifyInput(trim(Request.Form("orderline")))
	'On Error Resume Next

        CheckInput
    rs.CursorLocation=3
    StrSQL = "Select * From ProType Where Type_ID="&Type_ID&"" 
    rs.Open StrSQL,conn,1,3 
		rs("Type_Name") = Type_Name
		rs("content") = content
		rs("State") = State
		rs("Parent_ID") = Parent_ID
		rs("orderline") = orderline
    rs.Update
    rs.Close

    If Err.number<>0 then
		Call MsgBack("数据库操作错误！","4")
    Else
		Response.Redirect "ProTypeManage.asp"
		Response.End 
    End IF 
    Set rs = Nothing
    
    
    Sub CheckInput
	StrSQL="select count(*) as cou from ProType where parent_id="&Parent_ID&" and Type_Name='"&Type_Name&"' and Type_ID<>"&type_ID&""
	Rs.open StrSQL,conn,1,3 
	If Rs("cou")<>0 then
		Rs.close 
		Call MsgBack("类别名重复！","4")
		exit Sub
	End If
	Rs.Close
	End Sub
 End IF
 
%>
<%
StrSQL = "Select * From ProType Where Type_ID="&Type_ID&""
rs.Open StrSQL,conn,1,3
If rs.EOF or rs.BOF then
	Call MsgBack("此记录可能已被删除！","4")
End IF

%>
<form name="frmUsers" method="POST" action="ProTypeEdit.asp"  ID="Form1" onsubmit="return formCheck()">
	<input type="hidden" name="Parent_ID" value="<%=Request("Parent_ID")%>" ID="Hidden1">
	<input type="hidden" name="type_ID" value="<%=Request("type_ID")%>" ID="Hidden2">
	<table border=0 cellspacing=1 cellpadding=2  class=list width=98% ID="Table1">
	<tr class=header><td colspan=2>修改产品类别</td></tr>

	<tr>
		<td  class=list>名称：</td>
		<td  class=list><input type="text" name="Type_Name" maxlength=50 size="30"  ID="Text3" value="<%=rs("type_name")%>" ><font color=red>*</font></td>
	</tr>
		<tr>
		<td  class=list nowrap valign=top ><br>简介：</td>
		<td  class=list><%
Response.Write "<table width=550 height=300 align=left valign=top><tr><td valign=top align=left>"& vbCr
Dim strHTML
Response.Write "<SCRIPT LANGUAGE=javascript>" & vbCr
Response.Write "var strHTML = '"
strHTML = rs("Content") 
If Not ISNULL( strHTML ) Then		
	strHTML = strHTML				
Else
	strHTML = ""
End If
strHTML = Replace(strHTML, "\", "\\")
strHTML = Replace(strHTML, vbCr, "\r")
strHTML = Replace(strHTML, vbLf, "\n")
strHTML = Replace(strHTML, "'", "\'")
Response.Write strHTML
Response.Write "';" & vbCr & "</SCRIPT>"& vbCr
Response.Write "<input type=hidden name=""body"" id=""Hidden1"">"& vbCr
Response.Write "<script src=""/JS/HTMLEditor.js""></script>"& vbCr
Response.Write "</td></tr></table>"& vbCr
'#####################################
%></td></tr>
		<tr>
		<td  class=list>是否开放：</td>
		<td  class=list>是
        <input value=1 name=state type=radio  ID="Radio2" <%If rs("State")=1 then Response.Write "Checked"%>>
        &nbsp;&nbsp;&nbsp; 否 
        <input id="Radio7" value=0 name=state type=radio <%If rs("State")=0 then Response.Write "Checked"%>></td>
	</tr>
			<tr>
		<td  class=list>排序：</td>
		<td  class=list><input type="text" name="Orderline" maxlength=5 value=<%=rs("Orderline")%> size="3"  ID="Text1"><font color=red>*</font></td>
	</tr>
	</table>
	<p><input type="submit" value="提交" name="btnSubmit" ID=Submit> <input type="reset" value="重写" name="B2" ID=Reset1>
<input type=button name=back value="返回" onclick="window.history.go(-1);" ID="Button1">  	
	</p> 
</form>
<!------------------------->
<%Set rs = Nothing%>
</body>
</html>
<!--#include virtual="/Include/DBClose.asp"-->
⌨️ 快捷键说明

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