📄 proinfoadd.asp

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

<!--#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=" ">
<script language="Javascript" src="/JS/CheckInput.js"></script>
<link rel="stylesheet" href="../Css/css.css" type="text/css">

<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;
	  }

	   return true;
	   }
</script>	

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

<!-- 以下内容由程序自动生成 -->
<%
	public Symbol				'===定义目录显示全局变量================
	public Symbolf				'===定义目录显示全局变量================
%>
<form name="frmUsers" method="POST" enctype="MULTIPART/FORM-DATA" action="SaveAddProInfo.asp"  ID="Form1" onsubmit="return formCheck()">

	<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,"")%>
		</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"><font color=red>*</font></td>
	</tr>
	<tr>
		<td  class=list nowrap>上传小图片：</td>
		<td  class=list><INPUT type="file" ID="File2" NAME="Pro_simg"></td>
	</tr>
	<tr>
		<td  class=list nowrap>上传大图片：</td>
		<td  class=list><INPUT type="file" ID="File1" NAME="Pro_bimg"></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 = "" 
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 value=1 name=state type=radio  ID="Radio2" checked>
        &nbsp;&nbsp;&nbsp; 否 
        <input id="Radio7" value=0 name=state type=radio></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>
<!------------------------->


</body>
</html>
<!--#include virtual="/Include/DBClose.asp"-->
⌨️ 快捷键说明

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