js_code_create.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<%
pageadmin=10
%>
<!--#include file="../login/check.asp" -->
<!-- #include file="../../inc/conn.asp" -->
<!-- #include file="../../inc/function.asp" -->
<!--#include file="../category/category_class.asp"-->
<!--#include file="../template/template_class.asp" -->

<%
Dim ct
Set ct=new LBCategory
ct.CategoryType="新闻"


dim addr0,addr1,addr
addr0=request.servervariables("server_name")
addr1=request.servervariables("url")
addr1=replace(addr1,"js_code_create.asp","")
addr="http://"&addr0&addr1
%>

<link rel="stylesheet" href="../../inc/lbstyle.css" type="text/css">
<form method="post" action="" name="form1">
<div align="center">
<table width=100% class="table" border=1 cellpadding=0 cellspacing=0>
<tr>
	<td class="headtr">&nbsp;&nbsp;js调用代码生成器(显示调用)</td>
</tr>
<tr>
	<td class="td" height="30">&nbsp;选择调用的栏目:
	<select class="select" name="categoryid" size="">
	<option value="-1">所有栏目</option>
	<%
	ct.Newsdownlistid "-1",session("ct")
	%>
	</select>
	&nbsp;&nbsp;显示模板
	<%
	Dim tp
	Set tp=new LBTemplate
	tp.CategoryType="新闻模板"
	%>
	<select class="select" name="templateid" size="">	
	<%
	tp.downlist()
	%></select>
	</td>
</tr>
<tr>
	<td class="td" height="30">&nbsp;请选择调用的附加条件：<input type="checkbox" class="checkbox" name="commend" value="">推荐&nbsp;&nbsp;<input type="checkbox" class="checkbox" name="hot" value="">热门 
	<input type="checkbox" class="checkbox" name="picnews" value="picnews">图片新闻</td>
</tr>
<tr>
  <td class="td" height="30">&nbsp;调用新闻的条数： <input type="text" size="3" name="rows" class="text" value="10"> 行 &nbsp;&nbsp;<input type="text" name="cols" class="text" value="1" size="3"> 列</td>
</tr>
<tr>
  <td class="td" height="150">&nbsp;&nbsp;<textarea class="textarea" name="jscode" rows="8" cols="60"></textarea></td>
</tr>
</table>
<table width=100% class="table" style="border:0px" border=0 cellpadding=0 cellspacing=0>
<tr>
	<td class="td"><BR>&nbsp;&nbsp;<input type="button" class="button" value="生成调用代码" onclick="cjs()"></td>
</tr>
</table>
</div>
</form>
<BR>
<form method="post" action="" name="form2">
<div align="center">
<table width=100% class="table" border=1 cellpadding=0 cellspacing=0>
<tr>
	<td class="headtr">&nbsp;&nbsp;js调用代码生成器(高级调用)</td>
</tr>
<tr>
	<td class="td" height="30">&nbsp;选择调用的栏目:
	<select class="select" name="categoryid" size="">
	<option value="all">不限栏目</option>
	<option value="-1">所有栏目</option>
	<%
	ct.newsdownlistid "-1",session("ct")
	%>
	</select>
	&nbsp;&nbsp;</td>
</tr>
<tr>
  <td class="td" height="20">&nbsp;以下的所有调用均需要这段代码<br>
&nbsp;请把以下代码拷贝到页面的&lt;head&gt;&lt;/head&gt;之间(每个页面只能调用以下js代码一次)</td>
</tr>
<tr>
  <td class="td" height="150">&nbsp;
	<textarea class="textarea" name="headjscode" rows="8" cols="60"></textarea></td>
</tr>
<tr>
  <td class="td" height="25">&nbsp; 请把以下代码拷贝到页面中需要显示新闻列表的地方.(<b><font color="#53876D">更多新闻内容调用</font></b>)</td>
</tr>
<tr>
  <td class="td" height="25">&nbsp; 显示模板
	<select class="select" name="templateid" size="1">	
	<%
	tp.downlist()
	%></select>
	<input type="checkbox" class="checkbox" name="commend" value="commend">推荐&nbsp;&nbsp;<input type="checkbox" class="checkbox" name="hot" value="hot">热门 
	<input type="checkbox" class="checkbox" name="picnews" value="picnews">图片新闻</td>
</tr>
<tr>
  <td class="td" height="25">&nbsp; 调用新闻的条数： <input type="text" size="3" name="rows" class="text" value="10"> 行 &nbsp;&nbsp;<input type="text" name="cols" class="text" value="1" size="3"> 列</td>
</tr>
<tr>
  <td class="td" height="150">&nbsp; <textarea class="textarea" name="jscode" rows="8" cols="60"></textarea></td>
</tr>
<tr>
  <td class="td" height="25">&nbsp; 调用栏目列表</td>
</tr>
<tr>
  <td class="td" height="25">&nbsp; 网页的连接地址:<input type="text" name="cturl" size="49" class="text"></td>
</tr>
<tr>
  <td class="td" height="150">&nbsp; &nbsp;<textarea class="textarea" name="categoryjscode" rows="8" cols="60"></textarea></td>
</tr>
</table>
<table width=100% class="table" style="border:0px" border=0 cellpadding=0 cellspacing=0>
<tr>
	<td class="td"><BR>&nbsp;&nbsp;<input type="button" class="button" value="生成调用代码" onclick="cjs2()"></td>
</tr>
</table>
</div>
</form>
<SCRIPT LANGUAGE="JavaScript">
<!--
function cjs()
{
	var addr="<\SCRIPT TYPE=\"text/javascript\" SRC=\""; 
	addr=addr+"<%=addr%>news_js.asp?";
	addr=addr+"categoryid="+document.form1.categoryid.value;
	addr=addr+"&templateid="+document.form1.templateid.value;
	addr=addr+"&rows="+document.form1.rows.value;
	addr=addr+"&cols="+document.form1.cols.value;
	if(document.form1.commend.checked)
	{
		addr=addr+"&type=commend";
	}
	if(document.form1.hot.checked)
	{
		addr=addr+"&type=hot";
	}
	if(document.form1.picnews.checked)
	{
		addr=addr+"&type=picnews";
	}	
	addr=addr+"\"></\SCRIPT>";
	document.form1.jscode.value=addr;
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function cjs2()
{	
	//调用函数(取得页面值)
	var addr="<\SCRIPT LANGUAGE=\"JavaScript\">";
	addr=addr+"function getqueryvalue(name) {var reg=new RegExp(\"(^|&)\"+ name +\"=([^&]*)(&|$)\");var r=window.location.search.substr(1).match(reg);if (r!=null) return unescape(r[2]);return \"\";}";
	addr=addr+"var page=getqueryvalue(\"page\");";
	if(document.form2.categoryid.value=="all")
	{
		addr=addr+"var categoryid=getqueryvalue(\"categoryid\");";
	}
	else
	{
		addr=addr+"var categoryid="+document.form2.categoryid.value+";";
	}
	addr=addr+"</\script>";
	document.form2.headjscode.value=addr;

	//调用新闻列表
	addr="<\SCRIPT LANGUAGE=\"JavaScript\">";
	addr=addr+"document.write(\"";
	addr=addr+"<\\\SCRIPT TYPE=\\\"text/javascript\\\" SRC=\\\""; 
	addr=addr+"<%=addr%>news_more.asp?";
	
	addr=addr+"categoryid=\"+categoryid+\"";
	addr=addr+"&templateid="+document.form2.templateid.value;
	addr=addr+"&rows="+document.form2.rows.value;
	addr=addr+"&cols="+document.form2.cols.value;
	addr=addr+"&page=\"+page+\"";
	if(document.form2.commend.checked)
	{
		addr=addr+"&type=commend";
	}
	if(document.form2.hot.checked)
	{
		addr=addr+"&type=hot";
	}
	if(document.form2.picnews.checked)
	{
		addr=addr+"&type=picnews";
	}	
	addr=addr+"\\\"></\\\SCRIPT>";
	addr=addr+"\");";
	addr=addr+"</\script>";
	document.form2.jscode.value=addr;

	//栏目调用
	addr="<\SCRIPT LANGUAGE=\"JavaScript\">";
	addr=addr+"document.write(\"";
	addr=addr+"<\\\SCRIPT TYPE=\\\"text/javascript\\\" SRC=\\\""; 
	addr=addr+"<%=addr%>category_list.asp?";
	
	addr=addr+"categoryid=\"+categoryid+\"";
	addr=addr+"&url="+document.form2.cturl.value;

	addr=addr+"\\\"></\\\SCRIPT>";
	addr=addr+"\");";
	addr=addr+"</\script>";
	document.form2.categoryjscode.value=addr;


}


//-->

</SCRIPT>
<%
conn.close
set conn=nothing
set ct=nothing
Set tp=Nothing
%>