📄 proinfoedit.asp

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

<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#include virtual="/Include/Const.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=" ">
<script language="Javascript" src="/JS/CheckInput.js"></script>
<link rel="stylesheet" href="../Css/css.css" type="text/css">
<script id=clientEventHandlersJS language=javascript>
<!--
function DoAddPic(TMP_ID,PicPath,picfiledname,tablename,idfiledname) {
	window.open('/avmaxmanage/Ufile/ReUploadPhoto.asp?ID='+ TMP_ID +'&PicPath='+ PicPath +'&picfiledname='+picfiledname+'&tablename='+tablename+'&idfiledname='+idfiledname ,'UpFiles','top=300,left=200,height=130,width=300,scrollbars=yes');
}
function DoDelPic(TMP_ID,PicPath,picfiledname,tablename,idfiledname) {
	window.open('/avmaxmanage/Ufile/DeluploadPhoto.asp?ID='+ TMP_ID +'&PicPath='+ PicPath +'&picfiledname='+picfiledname+'&tablename='+tablename+'&idfiledname='+idfiledname ,'UpFiles','top=300,left=200,height=130,width=300,scrollbars=yes');
}
//-->
</script>
<script language="javascript">
	function formCheck() {
		save()
	  if (document.frmUsers.Type_ID.value=="") {
	    alert("请选择产品类别");
	    document.frmUsers.Type_ID.focus();
	    return false;
	  }
	  if (document.frmUsers.Pro_Name.value=="") {
	    alert("请输入产品名称");
	    document.frmUsers.Pro_Name.focus();
	    return false;
	  }
	  if (document.frmUsers.body.value=="") {
	    alert("请输入内容");
	    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<-->
<!--注意事项<-->

<!-- 以下内容由程序自动生成 -->
<%
IF Request.Form<>"" then
	Dim Type_ID
	Dim Pro_Name
	Dim Pro_simg
	Dim Pro_bimg
	Dim Pro_Content
	Dim Orderline
	Dim State
	Dim Pro_ID
	Pro_ID = ModifyInput(Request.form("Pro_ID")) 
	Type_ID = ModifyInput(Request.form("Type_ID"))
	Pro_Name = ModifyInput(Request.form("Pro_Name"))
	Pro_simg = ModifyInput(trim(Request.form("Pro_simg")))
	Pro_bimg = ModifyInput(trim(Request.form("Pro_bimg")))
	Pro_Content = Replace(Request.form("body"),"'","''")
	Orderline = ModifyInput(Request.form("Orderline"))
	State = ModifyInput(Request.form("State"))
	'On Error Resume Next
	Conn.Execute "Update ProInfo Set Type_ID="&Type_ID&",Pro_Name='"&Pro_Name&"',"& _
					" Pro_simg='"&Pro_simg&"',Pro_bimg='"&Pro_bimg&"',Pro_Content='"&Pro_Content&"',"& _
					" orderline="&Orderline&",State="&State&" where Pro_ID="&Pro_ID&" "
	If Err.number<>0 then
		Call MsgBack(Err.Description,"4")
	Else
		Response.Redirect "ProInfoManage.asp"
		Response.End 
	End IF 
End IF 


	public Symbol				'===定义目录显示全局变量================
	public Symbolf				'===定义目录显示全局变量================
	Dim rs,StrSQL
	Set rs = Server.CreateObject("Adodb.Recordset") 
	StrSQL = "Select * from ProInfo where Pro_ID="&Request("Pro_ID")&""
	rs.CursorLocation=3 
	rs.Open StrSQL,conn,1,3
	If rs.EOF or rs.BOF then
		Call MsgBack("此记录可能已被删除！","4")
	End IF
	
%>

<form name="frmUsers" method="POST"  action="ProInfoedit.asp"  ID="Form1" onsubmit="return formCheck()">
	<input type=hidden name=Pro_ID value="<%=Request("Pro_ID")%>" ID="Hidden2"> 
	<table border=0 cellspacing=1 cellpadding=2  class=list width=100% ID="Table1">
	<tr class=header><td colspan=2>修改产品</td></tr>
	<tr>
		<td  class=list>产品类别：</td>
		<td  class=list>				
		<SELECT ID="Select1" NAME="Type_ID">
		<option value="">---请选择产品类别---</option>
			<%Call DispProTypeSel(0,rs("type_ID"))%>
		</SELECT><font color=red>*</font></td>
	</tr>
	<tr>
		<td  class=list>产品名称：</td>
		<td  class=list><input type="text" name="Pro_Name" maxlength=50 size="30"  ID="Text3" value="<%=rs("Pro_Name")%>" ><font color=red>*</font></td>
	</tr>
	<tr>
		<td  class=list nowrap>上传小图片：</td>
		<td  class=list>
		<%
		Dim strFullPath
		strFullPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
		if Right(strFullPath,1) = "\" then
			strFullPath = left(strFullPath,len(strFullPath)-1)
		end if
		Dim fso
		set fso = Server.CreateObject("Scripting.FileSystemObject")
		Dim tablename,picfiledname,idfiledname
		tablename = "ProInfo"
		picfiledname = "Pro_simg"
		idfiledname = "Pro_ID"
		If rs("Pro_simg")<>"" then%>
    <a href="<%=rs("Pro_simg")%>" onclick="return openNewWin(this.href,300,300,100,20)">
    <img src="<%=rs("Pro_simg")%>" border="1" style="border-color:gray" width="98" height="80"></a>
    <input type="button" name="redirect" value="重新上传" onclick="return DoAddPic('<%=rs("Pro_ID")%>','<%=rs("Pro_simg")%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button2">
      <input type="button" name="deletepic" value="删除图片" onclick="return DoDelPic('<%=rs("Pro_ID")%>','<%=rs("Pro_simg")%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button5">
	<INPUT type="hidden" ID="Text8" NAME="Pro_simg"  value="<%=rs("Pro_simg")%>">
    <%else%>
     <%

		if FSO.FolderExists(strFullPath & UPLOAD_PROPATH & Session("CatID"))=False then
			FSO.CreateFolder strFullPath & UPLOAD_PROPATH & Session("CatID")
		end if

      picpath = UPLOAD_PROPATH & Session("CatID") & "\" & rs("Pro_ID") & "\"
      picpath = replace(picpath,"\","/") 
    %>
    <INPUT type="text" ID="Text1" NAME="Pro_simg"  value="<%=rs("Pro_simg")%>" readonly><input type="button" name="redirect" value="上传图片" onclick="return DoAddPic('<%=rs("Pro_ID")%>','<%=picpath%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button4">
    <%end IF%></td>
	</tr>
	<tr>
		<td  class=list nowrap>上传大图片：</td>
		<td  class=list>
	<%
	picfiledname = "Pro_bimg"
	If rs("Pro_bimg")<>"" then%>
    <a href="<%=rs("Pro_bimg")%>" onclick="return openNewWin(this.href,300,300,100,20)">
    <img src="<%=rs("Pro_bimg")%>" border="1" style="border-color:gray" width="98" height="80"></a>
    <input type="button" name="redirect" value="重新上传" onclick="return DoAddPic('<%=rs("Pro_ID")%>','<%=rs("Pro_bimg")%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button3">
      <input type="button" name="deletepic" value="删除图片" onclick="return DoDelPic('<%=rs("Pro_ID")%>','<%=rs("Pro_bimg")%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button6">
	<INPUT type="hidden" ID="Hidden1" NAME="Pro_bimg"  value="<%=rs("Pro_bimg")%>">
    <%else%>
     <%
		if FSO.FolderExists(strFullPath & UPLOAD_PROPATH & Session("CatID"))=False then
			FSO.CreateFolder strFullPath & UPLOAD_PROPATH & Session("CatID")
		end if
		set fso = nothing
      picpath = UPLOAD_PROPATH & Session("CatID") & "\" & rs("Pro_ID") & "\"
      picpath = replace(picpath,"\","/") 
    %>
    <INPUT type="text" ID="Text2" NAME="Pro_bimg"  value="<%=rs("Pro_bimg")%>" readonly><input type="button" name="redirect" value="上传图片" onclick="return DoAddPic('<%=rs("Pro_ID")%>','<%=picpath%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button7">
    <%end IF%>
		</td>
	</tr>
		<tr>
		<td  class=list valign=top><br>&nbsp;内容：</td>
		<td class=list width="90%" height="0" valign="top">
		<%
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("Pro_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
'#####################################
%><font color=red>*</font> 
</td>
	</tr>
		<tr>
		<td  class=list>排序：</td>
		<td  class=list><input type=text size=4 value="<%=rs("Orderline")%>" name="orderline" ID="Text4">  
       </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>
	</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 fso = Nothing
Set rs = Nothing%>
</body>
</html>
<!--#include virtual="/Include/DBClose.asp"-->
⌨️ 快捷键说明

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