⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 newsaddd1.asp

📁 zheng fu wang zhan gong neng qi quan
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="ChkURL.asp"-->
<%
IF request.cookies(eChuang)("KEY")="bigmaster" THEN
	response.redirect "NewsAddd2.asp"
	response.end
else
IF request.cookies(eChuang)("KEY")="smallmaster" THEN
	response.redirect "NewsAddd3.asp"
	response.end
else
	dim jingyong
	set rs=server.createobject("adodb.recordset")
	sql="select * from "& db_User_Table &" where  "& db_User_Name &"='"&request.cookies(eChuang)("username")&"'"
	rs.open sql,ConnUser,1,3
	jingyong=rs("jingyong")
	rs.close
	set rs=nothing
	
	NewsID=Request.QueryString("NewsID")
	set rs=server.CreateObject ("ADODB.RecordSet")
	rs.Source="select * from "& db_Type_Table &" order by typeorder"
	rs.Open rs.source,conn,1,1
	%>
<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 添加文章_建站铺修正版_bbs.jzpu.com</title>
</head>
<body topmargin="0">
<!--#include file="Admin_Top.asp"-->
<table border="1" width="100%" align=center cellpadding="0" cellspacing="0" style="border-collapse: collapse"  bordercolor="<%=border%>">
<form method="post" action="NewsAddd2.asp">
<tr align="center">
	<td colspan="2" class="TDtop" height=25>
		<div align="center" >┊ <B>添加文章</B> ┊</div>
	</td>
</tr>
<tr bgcolor="#FFFFFF">
	<td colspan="2" align="center" height="160" >请选择文章总栏:
		<select size="1" name="typeid">
	<%if rs.EOF then %>
			<option value=0>暂无任何类别</option>
	<%else
		while not rs.EOF
			master=rs("typemaster")
			if master<>"" then
				tmaster=split(master,"|")
				for i=0 to ubound(tmaster)
					if request.cookies(eChuang)("username")=trim(tmaster(i)) then
						typemaster=true
						exit for
					else
						typemaster=false
					end if
				next
			end if
			if (request.cookies(eChuang)("key")="typemaster" and typemaster=true) or request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or request.cookies(eChuang)("key")="selfreg" then
			%>
			<option value='<%=rs("typeid")%>'><%=trim(rs("typeName"))%></option>
			<%
			end if
			rs.MoveNext
		wend
	end if
	%>
		</select>
	</td>
</tr>
<tr bgcolor="#FFFFFF">
	<td colspan="2" width="100%" align="center" height="25" class="TDtop">
		<input type="button" value=" 返 回 " onclick="javascript:history.go(-1)" class="unnamed5" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">&nbsp;
		<input type="submit" value="下 一 步" name="B1" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
	</td>
</tr>
</form>
</table>
</body>
</html>
<!--#include file=Admin_Bottom.asp-->
	<%
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
end if
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -