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

📄 getcode.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
🔍 
<!--#include file="mdb_path_info.asp"-->
<!--#include file="check.asp"-->
<!--#include file="config.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	晓宇听幽工作室
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。                       
'#################################################################
  Domain=Request.ServerVariables("SERVER_NAME")
  gFilePath=Request.ServerVariables("PATH_INFO")
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  CountN=len(gFilePath)
  gFilePath=lcase(left(gFilePath,CountN-1))
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  AllPath="http://"+Domain&gfilepath
  
set rs=server.CreateObject("ADODB.RecordSet")
TT=TT & "<a class=xoYuNewsSort href=html_listLB.asp>文章首页</a>"
if request("id")<>"" then
  rs.open "select * from infotype where id="&request("id"),conn,1,1
    if not rs.EOF then
        TN=split(rs("tname"),"|")
        TI=split(rs("ts"), ",")
          for i = 0 to ubound(TN)-1
            TT=TT & ">> <a class=xoYuStudioSort href=html_listLB.asp?id="&TI(i)&">"&TN(i)&"</a>"
          next
    tj=rs("tj")
    end if
    rs.close
end if
thistype=TT
typelist=typelist&"<option style='COLOR:"&color&"' value='0'>请选择栏目 获得相应栏目代码</option>"
rs.open ("select * from infotype where tj>1 order by ts"),conn,1,1
tn=""
do while not rs.eof
tname=replace(rs("tname"),"|","->")
if rs("tj")=2 and rs("tn")<>tn then
i=i+1
  if i=2 then
  i=0
     color="#808000"
  else
     color="#000000"
  end if
end if
tn=rs("tn")
typelist=typelist&"<option style='COLOR:"&color&"' value='<script src="&AllPath&"JS/listjs"&rs("id")&".js></script>'>"&tname&"</option>"
rs.MoveNext
loop
rs.close


SS=SS & "<a class=xoYuStudioSort href=SpecialLB.asp>专题首页</a>"
if request("SPid")<>"" then
  rs.open "select * from specialx where id="&request("spid"),conn,1,1
    if not rs.EOF then
        TNs=split(rs("sname"),"|")
        TIs=split(rs("ts"), ",")
          for i = 0 to ubound(TNs)-1
            SS=SS & ">> <a class=xoYuStudioSort href=SpecialLB.asp?id="&TIs(i)&">"&TNs(i)&"</a>"
          next
    tjs=rs("tj")
    end if
    rs.close
end if
thisSPtype=SS
SPtypelist=SPtypelist&"<option style='COLOR:"&color&"' value='0'>请选择专题 获得相应栏目代码</option>"
rs.open ("select * from specialx where tj>1 order by ts"),conn,1,1
tns=""
do while not rs.eof
sname=replace(rs("sname"),"|","->")
if rs("tj")=2 and rs("tn")<>tns then
i=i+1
  if i=2 then
  i=0
     color="#808000"
  else
     color="#000000"
  end if
end if
tns=rs("tn")
SPtypelist=SPtypelist&"<option style='COLOR:"&color&"' value='<script src="&AllPath&"JS/spjs"&rs("id")&".js></script>'>"&sname&"</option>"
rs.MoveNext
loop
rs.close
%>
<SCRIPT LANGUAGE=javascript>
<!--
function DoListcode(ListCode)
{
revisedTitle = ListCode;
document.form.ListCode.value=revisedTitle;
return;
}
function DoSPListcode(SPListCode)
{
revisedTitle = SPListCode;
document.formSP.SPListCode.value=revisedTitle;
return;
}
//-->
</script>
<html>
<head>
<title>管理中心 - 晓宇听幽 网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body background="../images/BLogo.gif">
<table width="98%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr> 
      <th height="9" colspan="2" align="center">
获得调用JS 
      </th>
    </tr>
<tr><td width="20%" class="forumrow">栏目调用 ：</td><td width="80%" class="forumrow">
<p align="left"><form name="form">
<select onchange=DoListcode(this.options[this.selectedIndex].value)>
<%=typelist%>
</select><br>
<textarea name="ListCode" cols="75" rows="2" onMouseOver="this.focus()"  onFocus="this.select()" ></textarea>                       
</p>
</td></form></tr>
<tr><td width="20%" class="forumrow">专题调用 ：</td><td width="80%" class="forumrow">
<p align="left">
<form name="formSP">
<select onchange=DoSPListcode(this.options[this.selectedIndex].value)>
<%=SPtypelist%>
</select><br>
<textarea name="SPListCode" cols="75" rows="2" onMouseOver="this.focus()"  onFocus="this.select()" ></textarea>                       
</p></td></tr>
<tr><td width="20%" class="forumrow">最热新闻 ：</td><td width="80%" class="forumrow">
  <textarea name="JSCode" onMouseOver="this.focus()"  onFocus="this.select()" cols="75" rows="2"><script src=<%=AllPath%>JS/HotNews.js></script></textarea></td></tr>
<tr><td width="20%" class="forumrow">最新新闻 ：</td><td width="80%" class="forumrow">
  <textarea name="JSCode" onMouseOver="this.focus()"  onFocus="this.select()" cols="75" rows="2"><script src=<%=AllPath%>JS/LastNews.js></script></textarea></td></tr>
  <tr><td width="20%" class="forumrow">滚动新闻 ：</td><td width="80%" class="forumrow">
  <textarea name="JSCode" onMouseOver="this.focus()"  onFocus="this.select()" cols="75" rows="2"><script src=<%=AllPath%>JS/MarqueeNews.js></script></textarea></td></tr>
    <tr><td width="20%" class="forumrow">并排新闻 ：</td><td width="80%" class="forumrow">
  <textarea name="JSCode" onMouseOver="this.focus()"  onFocus="this.select()" cols="75" rows="2"><script src=<%=AllPath%>JS/BPNews.js></script></textarea></td></tr>
        <tr> 
      <th height="25" colspan="2" align="center">
<b>用户自建的JS　</b> 
      </th>
    </tr>
      
<%
    i=0
	set rs = server.createobject("adodb.recordset")
    rs.source = "select JSNameEN,JSNameCN from JS order by id desc "
    rs.open rs.source,conn,1,1
    max=rs.recordcount
    if NOT rs.EOF then
	do while not rs.eof
	JSNameCN=rs("JSNameCN")
    Def=Def&"<tr><td width=""20%"" class=""forumrow"">"&JSNameCN&"：</td><td width=""80%"" class=""forumrow""><textarea onMouseOver=""this.focus()""  onFocus=""this.select()"" name=""JSCode"" cols=""75"" rows=""2""><script src="&AllPath&"JS/"&rs("JSNameEN")&".js></script></textarea></td></tr>"
    i=i+1
    if i>=max then exit do
    rs.movenext
    loop
    end if
    rs.close
        	set rs=nothing
	conn.close  
set conn=nothing
%>
    <%=Def%>
    <!--#include file="mdb_path_vote.asp"-->
    <tr> 
      <th height="25" colspan="2" align="center"><b>用户自建的投票</b></th>
    </tr>
    <%
    k=0
    set rs = server.createobject("adodb.recordset")
    sql="Select VoteClassID,Title from VoteClass order by VoteClassID desc"
    rs.open sql,conn,1,1
	max1=rs.recordcount
	if not rs.eof then
	do while not rs.eof
	Title=rs("Title")
    Def1=Def1&"<tr><td width=""20%"" class=""forumrow"">"&Title&"：</td><td width=""80%"" class=""forumrow""><textarea onMouseOver=""this.focus()""  onFocus=""this.select()"" name=""JSCode"" cols=""75"" rows=""2""><script src="&AllPath&"vote.asp?VoteClassID="&rs("VoteClassID")&"></script></textarea></td></tr>"
    k=k+1
    if k>=max1 then exit do
    rs.movenext
    loop
    end if
    rs.close 
    set rs=nothing
	conn.close  
    set conn=nothing
%>	
	<%=Def1%>
    </table>
</form>
</body>                                       
</html>

⌨️ 快捷键说明

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