www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/NewsAddJS.asp
<!--#include file="top.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<title>共享世纪新闻文章管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="WWW.2KY.CN 共享世纪">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<!--#include file="mdb_path_info.asp"-->
<%
'==========================================
'
' 晓宇听幽新闻文章管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
filename=request("filename")
if request.querystring("filename")="" then response.redirect"info_sort.asp"
set rs=Server.CreateObject("adodb.recordset")
rs.open"select * from info Where id="&filename,conn,1,1
set rs1=Server.CreateObject("Adodb.recordset")
sql1="select * from JS Where type='文字新闻' order by Date Desc"
rs1.open sql1,conn,1,1
set rs2=Server.CreateObject("Adodb.recordset")
sql2="select * from JS Where type='图片新闻' order by Date Desc"
rs2.open sql2,conn,1,1
%>
<body background="images/BLogo.gif">
<form name="form" method="POST" action="NewsAddJSSave.asp">
<table width="486" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th height="25" colspan="2" align="center" valign="middle"><b>
<img border="0" src="images/NEWWIN.GIF"> 文字新闻JS列表</b></th>
</tr>
<tr valign="middle">
<td class=forumrow height="20" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>文字新闻JS列表：</td>
<td class=forumrow width="328" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<select Name="WordNewsName">
<%while not rs1.eof%>
<option><%=rs1("JSNameCN")%></option>
<%rs1.movenext:wend%>
</select>
</td>
</tr>
<tr align="center" valign="middle">
<td class=forumrow height="38" colspan="2" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<input type=hidden name=WordNews value="Add">
<input type=hidden name=FileName1 value=<%=request.querystring("FileName")%>>
<input type="submit" name="Submit" value=" 添 加 ">
</td>
</tr>
</table>
</form>
<form name="form" method="POST" action="NewsAddJSSave.asp">
<table width="486" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr align="center" valign="middle">
<th height="25" colspan="2"><b>
<img border="0" src="images/NEWWIN.GIF"> 图片新闻JS列表</b></th>
</tr>
<tr valign="middle">
<td height="20" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class=forumrow>图片新闻JS列表：</td>
<td width="328" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class=forumrow>
<select Name="PhotoNewsName">
<%while not rs2.eof%>
<option><%=rs2("JSNameCN")%></option>
<%rs2.movenext:wend%>
</select>
</td>
</tr>
<tr valign="middle">
<td height="25" class=forumrow onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>图片路径：
</td>
<td height="25" class=forumrow onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<input type="text" size=30 name="PhotoPath">
</td>
</tr>
<tr valign="middle">
<td colspan=2 width=100% height="40" class=forumrow onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<iframe name="ad" frameborder=0 width=100% height=40 align=center scrolling=no src=upload.htm></iframe>
</td>
</tr>
<tr valign="middle" align="center">
<td height="25" class=forumrow onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; colspan="2">
<input type=hidden name=PhotoNews value="Add">
<input type=hidden name=FileName2 value=<%=request.querystring("FileName")%>>
<input type="submit" name="Submit2" value=" 添 加 ">
</td>
</tr>
</table>
</form>
<%rs.close
rs1.close
rs2.close
set rs=nothing
set rs1=nothing
set rs2=nothing
conn.close
set conn=nothing
%>