📄 modifying.asp
字号:
<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改新闻</title>
<link href="css.css" rel="stylesheet" type="text/css">
<script src="Editor/edit.js"></script>
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com QQ:8375158 TEL:13964489818
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from smallclass order by scid asc"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("scname"))%>","<%= trim(rs("bcid"))%>","<%= trim(rs("scid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.scid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.scid.options[document.myform.scid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="mainmiddle">
<tr>
<td width="29" height="32"> <div align="left">
<p class="maindaohang"> </p>
</div></td>
<td width="709"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<b><font color="#000000"><b> <span class="bigNavi">修改新闻</span> </b></font></b></td>
<td width="8" class="mainrights"></td>
</tr>
</table>
<%
sql="select * from news where id="&request("id")
rs.open sql,conn,1,1
bcid=rs("bclassid")
scid=rs("sclassid")
title=rs("title")
key=rs("gjz")
des=rs("miaoshu")
body=rs("body")
source1=rs("source")
pic1=rs("pic")
gd=rs("gd")
tt=rs("tt")
tj=rs("tj")
xg=rs("xg")
haoid=rs("id")
filename1=rs("filename")
rs.close
%>
<form method="POST" name="myform" id="myform" action="modifysave.asp?id=<%=haoid%>&3id=<%=int(request("theid"))%>&b=<%=request("b")%>">
<input type="hidden" name="filename2" value="<%=filename1%>">
<table width="95%" height="127" border="0" align="center" cellpadding="3" cellspacing="1" class="tabbgcolor">
<tr class="tabbgcolorli">
<td height="20"><div align="center">选择分类:</div></td>
<td width="83%" height="20"><table border="0" cellspacing="1" width="100%">
<td width="85%"> 大类
<select name="bcid" onChange="changelocation(document.myform.bcid.options[document.myform.bcid.selectedIndex].value)" size="1">
<%
dim conclass,choosed
sql1="select * from bigclass"
rs.open sql1,conn,1,1
if rs.eof and rs.bof then
response.write"暂时还没有新闻大类"
else
do while not rs.eof
if cstr(bcid)=cstr(rs("bcid")) then
choosed="selected"
conclass=rs("bcid")
else
choosed=""
end if
response.write "<option " & choosed & " value='"+CStr(rs("bcid"))+"'>"+rs("bcname")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
end if
rs.close
%>
</select> 相关小类 <select name="scid" size="1">
<%
sql2="select * from smallclass where bcid="&conclass
rs.open sql2,conn,1,1
if rs.eof and rs.bof then
response.write"暂时还没有相应小类"
else
do while not rs.eof
if cstr(scid)=cstr(rs("scid")) then
choosed="selected"
else
choosed=""
end if
response.write "<option " & choosed & " value='"+CStr(rs("scid"))+"'>"+rs("scname")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
end if
rs.close
%>
</select> </td>
</tr>
</table>
<div align="center"></div></td>
</tr>
<tr class="tabbgcolorli">
<td width="17%" height="20"> <div align="center">标 题</div></td>
<td height="20">
<input name="title" type="text" class="border" id="title" value="<%=title%>" size="40">
滚动:
<% if gd=true then%>
<input type="radio" name="gd" value="true" checked>
是
<input name="gd" type="radio" value="false">
否
<%else%>
<input type="radio" name="gd" value="true">
是
<input name="gd" type="radio" value="false" checked>
否
<%end if%>
<div align="center"></div></td>
</tr>
<tr class="tabbgcolorli">
<td width="17%" height="20"> <div align="center">来源</div></td>
<td width="83%" height="20">
<input name="source" type="text" class="border" id="source" value="<%=source1%>" size="20">
头条:
<% if tt=true then%>
<input type="radio" name="tt" value="true" checked>
是
<input name="tt" type="radio" value="false">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -