addnews.asp
来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 142 行
ASP
142 行
<%@ 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=" ">
<link rel="stylesheet" href="../Css/css.css" type="text/css">
<script language="javascript">
function formCheck() {
save()
if (document.frmUsers.News_Title.value=="") {
alert("请输入标题");
document.frmUsers.News_Title.focus();
return false;
}
if (document.frmUsers.body.value=="") {
alert("请输入内容");
return false;
}
return true;
}
</script>
</head>
<!--#include file="Menu.asp"-->
<!------------------------->
<!--修改Users<-->
<!--注意事项<-->
<!-- 以下内容由程序自动生成 -->
<form name="frmUsers" method="POST" enctype="MULTIPART/FORM-DATA" action="SaveAddNews.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><input type="text" name="News_Title" maxlength=50 size="30" ID="Text3"><font color=red>*</font></td>
</tr>
<tr>
<td class=list>作者：</td>
<td class=list><input type="text" name="News_author" maxlength=50 size="20" ID="Text1"></td>
</tr>
<tr>
<td class=list>来源：</td>
<td class=list><input type="text" name="News_Source" maxlength=50 size="30" ID="Text2"></td>
</tr>
<tr>
<td class=list nowrap>上传图片：</td>
<td class=list><INPUT type="file" ID="File1" NAME="Photo_Path"></td>
</tr>
<tr>
<td class=list valign=top><br> 内容：</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><select name="years" ID="Select1">
<%
for i=year(now()) to 1995 step -1
if i=cint(year(now())) then
Response.Write "<option value='"&i&"' selected>"&i&"</option>"
else
Response.Write "<option value='"&i&"'>"&i&"</option>"
end if
next%>
</select>
-
<select name="months" ID="Select2">
<%
for i=12 to 1 step -1
if i=cint(month(now())) then
Response.Write "<option value='"&i&"' selected>"&i&"</option>"
else
Response.Write "<option value='"&i&"'>"&i&"</option>"
end if
next%>
</select>
-
<select name="days" ID="Select3">
<%
for i=31 to 1 step -1
if i=cint(day(now())) then
Response.Write "<option value='"&i&"' selected>"&i&"</option>"
else
Response.Write "<option value='"&i&"'>"&i&"</option>"
end if
next%>
</select></td>
</tr>
<tr>
<td class=list>是否开放：</td>
<td class=list>是
<input value=1 name=state type=radio ID="Radio2" checked>
否
<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 + =
减小字号Ctrl + -
显示快捷键?