📄 editnews.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/Const.asp"-->
<!--#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>
function openNewWin( url, width, height,top,left)
{
var newwin = window.open( url, "NewWin", "toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes,width=" + width + ",height=" + height +"" );
newwin.moveTo(top,left);
newwin.focus();
return false;
}
</script>
<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.News_Title.value=="") {
alert("请输入标题");
document.frmUsers.News_Title.focus();
return false;
}
if (document.frmUsers.orderline.value=="") {
alert("请输入排序");
document.frmUsers.orderline.focus();
return false;
}
if (IsInteger(document.frmUsers.orderline.value,'+')==false) {
alert("排序要是大于零整数");
document.frmUsers.orderline.focus();
return false;
}
if (document.frmUsers.body.value=="") {
alert("请输入内容");
return false;
}
return true;
}
</script>
</head>
<!--#include file="Menu.asp"-->
<!------------------------->
<!--修改Users<-->
<!--注意事项<-->
<!-- 以下内容由程序自动生成 -->
<%
IF Request.Form<>"" then
Dim News_ID
Dim News_Title
Dim News_Author
Dim News_Source
Dim News_Content
Dim Orderline
Dim State
News_ID = ModifyInput(Request.form("News_ID"))
News_Title = ModifyInput(Request.form("News_Title"))
News_Author = ModifyInput(Request.form("News_Author"))
News_Source = ModifyInput(Request.form("News_Source"))
News_Content = Replace(Request.form("body"),"'","''")
Orderline = ModifyInput(Request.form("Orderline"))
State = ModifyInput(Request.form("State"))
Dim years,months,days,Newsdate
years = ModifyInput(Request.form("years"))
months = ModifyInput(Request.form("months"))
days = ModifyInput(Request.form("days"))
Newsdate = years & "-" & months & "-" & days
'On Error Resume Next
Conn.Execute "Update News Set News_Title='"&News_Title&"',News_Author='"&News_Author&"',"& _
" News_Source='"&News_Source&"',News_Content='"&News_Content&"',state="&state&","& _
" orderline="&Orderline&",News_Pubdate='"&Newsdate&"' where News_ID="&News_ID&" "
If Err.number<>0 then
Call MsgBack(Err.Description,"4")
Else
Response.Redirect "NewsManage.asp?Catalog_ID="&session("CatID")
Response.End
End IF
End IF
Dim rs,StrSQL
Set rs = Server.CreateObject("Adodb.Recordset")
StrSQL = "Select * from news where News_ID="&Request("News_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="EditNews.asp" ID="Form1" onsubmit="return formCheck()">
<input type=hidden name=News_ID value="<%=Request("News_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="News_Title" maxlength=50 size="30" value="<%=rs("News_Title")%>" 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" value="<%=rs("News_author")%>" ></td>
</tr>
<tr>
<td class=list>来源：</td>
<td class=list><input type="text" name="News_Source" maxlength=50 size="30" ID="Text2" value="<%=rs("News_Source")%>" ></td>
</tr>
<tr>
<td class=list nowrap>上传图片：</td>
<td class=list><%
Dim tablename,picfiledname,idfiledname
tablename = "News"
picfiledname = "Photo_Path"
idfiledname = "News_ID"
If rs("Photo_Path")<>"" then%>
<a href="<%=rs("Photo_Path")%>" onclick="return openNewWin(this.href,300,300,100,20)">
<img src="<%=rs("Photo_Path")%>" border="1" style="border-color:gray" width="98" height="80"></a>
<input type="button" name="redirect" value="重新上传" onclick="return DoAddPic('<%=rs("News_ID")%>','<%=rs("Photo_Path")%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button2">
<input type="button" name="deletepic" value="删除图片" onclick="return DoDelPic('<%=rs("News_ID")%>','<%=rs("Photo_Path")%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button5">
<INPUT type="hidden" ID="Text8" NAME="Photo_Path" value="<%=rs("Photo_Path")%>">
<%else%>
<%
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")
if FSO.FolderExists(strFullPath & UPLOAD_NEWSPATH & Session("CatID"))=False then
FSO.CreateFolder strFullPath & UPLOAD_NEWSPATH & Session("CatID")
end if
set fso = nothing
picpath = UPLOAD_NEWSPATH & Session("CatID") & "\" & rs("News_ID") & "\"
picpath = replace(picpath,"\","/")
%>
<INPUT type="text" ID="File1" NAME="Photo_Path" value="<%=rs("Photo_Path")%>" readonly><input type="button" name="redirect" value="上传图片" onclick="return DoAddPic('<%=rs("News_ID")%>','<%=picpath%>','<%=picfiledname%>','<%=tablename%>','<%=idfiledname%>')" ID="Button4">
<%end IF%></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 = rs("News_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><select name="years" ID="Select1">
<%dim i
for i=year(now()) to 1995 step -1
if i=cint(year(rs("News_Pubdate"))) 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(rs("News_Pubdate"))) 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(rs("News_Pubdate"))) 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 type=text size=4 value="<%=rs("Orderline")%>" name="orderline" >
</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" %>>
否
<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>
<!------------------------->
</body>
</html>
<!--#include virtual="/Include/DBClose.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -