📄 new.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Text></Text>
</head>
<body >
<div align="center"></div>
<!--#include FILE="newinc.ASP"-->
<%Call newManage%>
<%Sub newManage%>
<table width="760" border="1" cellpadding="1" cellspacing="1" bordercolor="66ccff" align="center" > <tr>
<td bgcolor="#3399CC">新闻管理</td>
</tr><%IF Request.QueryString("type")="editnewplay" Then
Dim Edit_newID,Edit_newText,Edit_newlinks,Edit_newAuthor,Edit_newword,Edit_newbig
Edit_newID=Request.Form("newID")
Edit_newText=Request.Form("newText")
Edit_newlinks=Request.Form("newlinks")
Edit_newAuthor=Request.Form("newAuthor")
Edit_newword=Request.Form("newword")
Edit_newbig=Request.Form("newbig")
Conn.Execute("UPDATE new SET new_Text='"&Edit_newText&"',new_links='"&Edit_newlinks&"',new_Author='"&Edit_newAuthor&"',new_word='"&Edit_newword&"',new_big='"&Edit_newbig&"' WHERE new_ID="&Edit_newID&"")
SQLQueryNums=SQLQueryNums+1
IF Request.Form("newDel")<>Empty Then
Conn.Execute("DELETE * FROM new WHERE new_ID="&Edit_newID)
SQLQueryNums=SQLQueryNums+1
End if
call WriteXML()
Response.Write Suc_Msg
Response.Write("<tr><td align=""center"" bgcolor=""#66ccff"" height=""48"">.......................</td></tr>")
ElseIF Request.QueryString("type")="addnewplay" Then
dim add_newText,add_newlinks,add_newAuthor,add_newword,add_newbig
add_newText=Request.Form("new_newText")
add_newlinks=Request.Form("new_newlinks")
add_newAuthor=Request.Form("new_newauthor")
add_newword=Request.Form("new_newword")
add_newbig=Request.Form("new_newbig")
Conn.Execute("INSERT INTO new(new_Text,new_links,new_Author,new_word,new_big) VALUES ('"&add_newText&"','"&add_newlinks&"','"&add_newAuthor&"','"&add_newword&"','"&add_newbig&"')")
SQLQueryNums=SQLQueryNums+1
call WriteXML()
Response.Write Suc_Msg
Response.Write("<tr><td align=""center"" bgcolor=""#FFFFFF"" height=""48""> 。。。。。。。</td></tr>")
Else%>
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF">
<div style="overflow-y: scroll;overflow-x:hidden;height: 350px;border=1;">
<table width="60%" border="0" cellpadding="5" cellspacing="1" bgcolor="#333366">
<tr bgcolor="#006699">
<td nowrap>删除？</td>
<td nowrap>ID号</td>
<td nowrap>标题</td>
<td nowrap>添加时间</td>
<td nowrap>文章内容</td>
<td nowrap>图片</td>
<td width="100%">操作</td>
</tr>
<%
dim newList
set newList=Conn.Execute("select * from new ORDER BY new_ID DESC")
SQLQueryNums=SQLQueryNums+1
while not newList.Eof
Response.Write ("<tr bgcolor=""#ffffff""><form method=""post"" action=""new.asp?action=newplay&type=editnewplay"">")
Response.Write ("<td nowrap align=center><input type=hidden name=""newID"" value="""&newList("new_ID")&""">")
Response.Write ("<input type=checkbox name=""newDel""></td>")
Response.Write ("<td nowrap><input type=text name=""newbig"" size=""3"" value="""&newList("new_big")&"""></td>")
Response.Write ("<td nowrap><input type=text name=""newText"" size=""35"" value="""&newList("new_Text")&"""></td>")
Response.Write ("<td nowrap><input type=text name=""newlinks"" size=""15"" value="""&newList("new_links")&"""></td>")
Response.Write ("<td nowrap><textarea rows=""2"" name=""newAuthor"" cols=""30"">"&newList("new_Author")&"</textarea><!--文章内容<input type=text name=""newAuthor"" size=""10""value="""&newList("new_Author")&""">//--></td>")
Response.Write ("<td nowrap><input type=text name=""newword"" size=""10""value="""&newList("new_word")&"""></td>")
Response.Write ("<td width=""100%""><input type=submit value="" 编 辑 ""></td>")
Response.Write ("</form></tr>")
newList.movenext
wend
%>
</table></div>
<br>
<hr color=#000000>
添加新闻：
<table width="100%" border="1" cellpadding="4" cellspacing="1" bgcolor="#66CCFF" bordercolor=006699>
<form name="addnewplay" method="post" action="new.asp?action=newplay&type=addnewplay">
<tr>
<td width="30%" bgcolor="#006699">ID号：</td>
<td><p align="left"><input type="text" size="5" id="new_newbig" name="new_newbig"></p></td>
</tr>
<tr>
<td bgcolor="#006699">标题：</td>
<td><p align="left"><input type="text" size="35" id="new_newText" name="new_newText"></p></td>
</tr>
<tr>
<td bgcolor="#006699">添加时间：</td>
<td><p align="left"><input type="text" size="15" id="new_newlinks" value="<%=now%>" name="new_newlinks" ></p></td>
</tr>
<tr>
<td bgcolor="#006699">文章内容：</td>
<td><p align="left"><textarea rows="2" id="new_newauthor" name="new_newauthor" cols="30"></textarea></p></td>
</tr>
<tr>
<td bgcolor="#006699">图片：</td>
<td><p align="left"><input type="text" size="15" id="new_newword" name="new_newword"></p></td>
</tr>
<tr>
<td colspan="2" bgcolor="#006699"><input type="Submit" name="Submit" value=" 添加 "></td>
</tr></form>
</table>
</td>
</tr>
<%end if%>
</table>
<%End Sub%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -