news1.asp
来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 813 行 · 第 1/3 页
ASP
813 行
end sub
sub prodclose()
if NewsId="" or isnull(NewsId) then
Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='news1.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=news1.asp""></BLOCKQUOTE>"
else
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from News where NewsId in ("&NewsId&")"
rs.open sql,conn,3,2
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('该新闻不存在，或者被删除了！');"
response.write "location.href='news1.asp';"
response.write "</script>"
else
Do while not rs.eof
rs("online")=false
rs.update
rs.movenext
loop
response.write "<script language='javascript'>"
response.write "alert('新闻 离线 设置成功！');"
response.write "location.href='news1.asp';"
response.write "</script>"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end if
end sub
sub proddel()
if delid="" or isnull(delid) then
Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='news1.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=news1.asp""></BLOCKQUOTE>"
else
conn.execute("delete from News where NewsId in ("&delid&")")
Set rs4=Server.CreateObject("ADODB.Recordset")
sql4="select * from sptp where spid in ("&delid&")"
rs4.open sql4,conn,3,2
if not rs4.eof then
rs4.delete
end if
rs4.close
if err.number<>0 then '错误处理
response.write "<font color=black>数据库操作失败：</font>" & err.description
err.clear
else
conn.close
set conn=nothing
Response.write "<tr><td colspan=8><BLOCKQUOTE><br><br><font color=black>新闻删除成功！</font><A HREF='news1.asp'><b><font color=black>点击返回</font></b></A><BR><br><meta http-equiv=refresh content=""2;URL=news1.asp""></BLOCKQUOTE></td></tr>"
end if
end if
end sub
sub newsadd()
if request("add") ="ok" then
if request("title")="" then
%>
<script language="javascript">
if (confirm("新闻标题不能为空!"))
location.href="news1.asp?action=加新闻";
</script>
<%
elseif request("newsclass")="请选择" then
%>
<script language="javascript">
if (confirm("请您选择所添加的新闻类型!"))
location.href="news1.asp?action=加新闻";
</script>
<%
elseif request("content")="" then
%>
<script language="javascript">
if (confirm("请添加新闻内容!"))
location.href="news1.asp?action=加新闻";
</script>
<%
if request("hug")<>"" then
For m=1 to request("Hug")
if request("Hug"&m&"")="" then
%>
<script language="javascript">
if (confirm("请您上传所要添加的图片!"))
location.href="news1.asp?action=加新闻";
</script>
<%
end if
next
end if
else
Set rs=Server.CreateObject("ADODB.Recordset")
sql = "select * from News"
rs.open sql,conn,3,2
if err.number<>0 then '错误处理
response.write "<font color=black>数据库操作失败：</font>" & err.description
err.clear
else
rs.Addnew
titlecolor=request.form("titlecolor")
rs("title")=request.form("title")
rs("titlecolor")=titlecolor
rs("content")=request.form("content")
rs("PubDate")=now()
aa=request.form("NewsClass")
aa=split(aa,",")
bb1=aa(0)
bb2=aa(1)
rs("NewsClass")=bb1
rs("Online")=request.form("Online")
rs("tupian")=false
if bb2<>"" then
rs("class")=bb2
end if
rs.update
rs.close
set rs=nothing
if request("Hug")<>"" then
set rs2=Server.CreateObject("adodb.recordset")
sql2 = "select * from News"
rs2.open sql2,conn,3,2
rs2.movelast
n=rs2("newsid")
rs2("tupian")=true
rs2("jizhang")=request("Hug")
rs2.update
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1 = "select * from sptp"
rs1.open sql1,conn,3,2
For m=1 to request("Hug")
rs1.addnew
rs1("FilePath")=request("Hug"&m&"")
rs1("content")=request(""&m&"")
rs1("spid")=n
rs1.update
next
rs1.close
rs2.close
end if
%>
<script language="javascript">
if (confirm("新闻添加成功!"))
location.href="news1.asp";
</script>
<%
end if
end if
else
%>
<table width="100%" border=1 cellpadding=3 style="border-collapse: collapse" bordercolor="#3D5489" align=center>
<form name=form1 method="post" action='news1.asp?action=加新闻'>
<tr background="images/wo.gif">
<td width="11%" align="right" background="images/wo.gif"><font color="black">新闻<br>
标题</font></td>
<td width="37%" colspan="2" background="images/wo.gif">
<input name="title" type="text" value="" size="50" maxlength="100"></td>
<td width="52%" background="images/wo.gif">
<select size="1" name="titlecolor">
<option>默认颜色</option>
<OPTION <%if titlecolor="#000000" then response.write "selected"%> value="#000000" style="background-color:#000000"></OPTION>
<OPTION <%if titlecolor="#FFFFFF" then response.write "selected"%> value="#FFFFFF" style="background-color:#FFFFFF"></OPTION>
<OPTION <%if titlecolor="#008000" then response.write "selected"%> value="#008000" style="background-color:#008000"></OPTION>
<OPTION <%if titlecolor="#800000" then response.write "selected"%> value="#800000" style="background-color:#800000"></OPTION>
<OPTION <%if titlecolor="#808000" then response.write "selected"%> value="#808000" style="background-color:#808000"></OPTION>
<OPTION <%if titlecolor="#000080" then response.write "selected"%> value="#000080" style="background-color:#000080"></OPTION>
<OPTION <%if titlecolor="#800080" then response.write "selected"%> value="#800080" style="background-color:#800080"></OPTION>
<OPTION <%if titlecolor="#808080" then response.write "selected"%> value="#808080" style="background-color:#808080"></OPTION>
<OPTION <%if titlecolor="#FFFF00" then response.write "selected"%> value="#FFFF00" style="background-color:#FFFF00"></OPTION>
<OPTION <%if titlecolor="#00FF00" then response.write "selected"%> value="#00FF00" style="background-color:#00FF00"></OPTION>
<OPTION <%if titlecolor="#00FFFF" then response.write "selected"%> value="#00FFFF" style="background-color:#00FFFF"></OPTION>
<OPTION <%if titlecolor="#FF00FF" then response.write "selected"%> value="#FF00FF" style="background-color:#FF00FF"></OPTION>
<OPTION <%if titlecolor="#FF0000" then response.write "selected"%> value="#FF0000" style="background-color:#FF0000"></OPTION>
<OPTION <%if titlecolor="#0000FF" then response.write "selected"%> value="#0000FF" style="background-co猀祴敬瀮獯潔??ǜ???涘?錈?眮摩桴?攠?景獦瑥楗瑤??瀧???爉?敨杩瑨?攠?景獦瑥效杩瑨?尀?榐?ǒ???峠???敬瀮獯潔??椀?ǎ?????煈??lor:#0000FF"></OPTION>
<OPTION <%if titlecolor="#008080" then response.write "selected"%> value="#008080" style="background-color:#008080"></OPTION>
</select><div align="right"><a href="news1.asp"><font color="#000000">取消添加</font></a></div></td>
</tr>
<tr>
<td align="right" background="images/009.gif"><font color="black">新闻<br>类型</font></td>
<td colspan="3" background="images/017.gif"><select name="newsclass">
<option value="请选择">请选择</option>
<optgroup label='学院动态'>
<option value="学院动态,院内">├学院动态（院内）</option>
<option value="学院动态,院外">├学院动态（院外）</option>
<optgroup label='院内公告'>
<option value="院内公告,">├院内公告</option>
</select>
</td>
</tr>
<tr>
<td align="center" bgcolor="#cbe1fc"><textarea name="content" style="display:none" cols="1" rows="1"><%if content<>"" then response.write content%></textarea></td>
<td colspan="3"><IFRAME ID="eWebEditor1" SRC="edit/ewebeditor.asp?id=content&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="100%" HEIGHT="399" marginwidth="1" marginheight="1" name="wfasdg"></IFRAME>
</td>
</tr>
<tr>
<td colspan="4" align="right"><div align="left">
<table width="100%" border="1" cellpadding="0" cellspacing="0" background="images/015.gif">
<div>
<tr>
<td width="100" align="right"><div align="center"></div>
<div align="right"><font color="black">商品图片:</font></div></td>
<td width="69" align="right"><input type="radio" name="FileOther" value=1 onClick=JM_you(s1)></td>
<script language="JavaScript">
function JM_wu(ob){
ob.style.display="none";
}
function JM_you(ob){
ob.style.display="";
}
function uppic(model,frmname) {
window.open("upload.asp?uppath=digi&ProdId="+model+"&frmname="+frmname,"upload", "left=12, top=12, width=400, height=300, resizable=1,menubar=1,scrollbars=1")
}
function createForm(textN,number) {
data = "";
inter = "'";
if (number < 11 && number > -1) {
for (i=1; i <= number; i++) {
if (i < 10) spaces=" ";
else spaces=" ";
data =data + " <input name="+textN+i+" type=text value='' size='30' maxlength='100'><INPUT TYPE='button' value='上传"+i+"' onclick=javascript:uppic('_hug"+i+"','Hug"+i+"')><font color=black> 添加注释：</font><input name="+i+" type=text value='' size='30' maxlength='200'><br>";
}if (document.layers) {
document.layers.cust.document.write(data);
document.layers.cust.document.close();
}
else {
if (document.all) {
cust.innerHTML = data;
}
}
}
else {
window.alert("请不要超过10张图片.");
}
}
// End -->
</script>
<td width="798"><font color="black"> 有</font> <span id=s1 style="display:none">
<input name="Hug" type=text value='' size='1' maxlength='1'>
<input name="button" type=button onClick="createForm('Hug',document.form1.Hug.value);" value="张商品图片">
<br>
</span> <span id=cust style="position:relative;"> </span>
</tr>
</div>
</table>
</div></td>
</tr>
<tr>
<td align="right" background="images/015.gif"><font color="black">发布<br>日期</font></td>
<td colspan="3" background="images/015.gif"><input name="PubDate" type="text" value="<%=date()%>" size="20" maxlength="20">
<font color="black">如果是未来的日期，就是到该日期才会生效</font></td>
</tr>
<tr>
<td align="right" background="images/013.gif"><font color="black">是否在线</font></td>
<td colspan="3" background="images/013.gif">
<input type="radio" name="Online" value="1" checked>
<font color="black">是
<input type="radio" name="Online" value="0">
</tr>
<tr height="39">
<td align="right" background="images/010.gif">
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?