gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/admin/Admin_Js.asp
<!--#include file="../Inc/conn.asp"-->
<!--#include file="admin_check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="images/Admin_css.css" type=text/css rel=stylesheet>
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
</head>
<body>
<script>
function GenerateJs()
{
var s;
s="";
s=s.substring(0,s.lastIndexOf("/")+1);
s+="http://<%=SiteUrl%><%=SitePath%>js.asp?topType=";
s+=document.all.topType.value;
s+="&classNO=";
s+=document.all.classNO.value;
s+="&num=";
s+=document.all.topNum.value;
s+="&maxlen=";
s+=document.all.maxLength.value;
s+="&showdate=";
s+=document.all.showDate.checked ? "11" : "0";
s+="&showhits=";
s+=document.all.showHits.checked ? "1" : "0";
s+="&showClass=";
s+=document.all.showClass.checked ? "1" : "0";
document.all.jstext.value="<script src=\""+s+"\"><\/script>";
}
function CopyJs()
{
document.all.jstext.focus();
document.all.jstext.select();
document.execCommand("copy");
}
</script>
<table border="0" align="center" cellpadding="3" cellspacing="2" class="admintable">
<form name="form1" method="post" action="">
<tr>
<td height="30" colspan="2" class="admintitle">外部调用设置</td>
</tr>
<tr>
<td width="15%" height="25" valign="middle" bgcolor="#f1f3f5" class="tdleft">调用类型： </td>
<td bgcolor="#f1f3f5" class="tdleft">
<select id="topType">
<option value="new">最新添加</option>
<option value="hot">热门文章</option>
<option value="IsHot">推荐文章</option>
</select> </td>
</tr>
<tr>
<td width="15%" height="25" valign="middle" bgcolor="#f1f3f5" class="tdleft">调用分类： </td>
<td bgcolor="#f1f3f5" class="tdleft">
<select name="classNO" id="classNO">
<%call Admin_ShowClass_Option()%>
</select> </td>
</tr>
<tr>
<td width="15%" height="25" valign="middle" bgcolor="#f1f3f5" class="tdleft">调用数量： </td>
<td bgcolor="#f1f3f5" class="tdleft"><input type="text" id="topNum" value=10 size=3 maxlength=3></td>
</tr>
<tr>
<td width="15%" height="25" valign="middle" bgcolor="#f1f3f5" class="tdleft">标题长度： </td>
<td bgcolor="#f1f3f5" class="tdleft"><input type="text" id="maxLength" value=20 size=3 maxlength=3></td>
</tr>
<tr>
<td width="15%" height="25" valign="middle" bgcolor="#f1f3f5" class="tdleft">显示内容： </td>
<td bgcolor="#f1f3f5" class="tdleft">
<input type="checkbox" class="noborder" id="showClass" >
显示类别名称
<input type="checkbox" class="noborder" id="showDate" >显示日期
<input type="checkbox" class="noborder" id="showHits" >显示点击数 </td>
</tr>
<tr>
<td width="15%" height="25" colspan="2" valign="middle" bgcolor="#f1f3f5" class="tdleft">
<input type="button" class="bnt" onClick="GenerateJs();" value="生成代码">
<input type="button" class="bnt" onClick="CopyJs();" value="拷贝代码"> </td>
</tr>
<tr>
<td height="25" colspan="2" valign="middle" bgcolor="#f1f3f5" class="tdleft">
<br>
<input type="text" id="jstext" value="" size="95%" />
<br><br>
注：把生成的脚本粘贴到html文件内即可以显示指定的内容 </td>
</tr>
</form>
</table>
<%
sub Admin_ShowClass_Option()
Dim Sqlp,Rsp,TempStr
Sqlp ="select * from "&tbname&"_Class Where TopID = 0 order by num"
Set Rsp=server.CreateObject("adodb.recordset")
rsp.open sqlp,conn,1,1
Response.Write("<option value="""">不限分类</option>")
If Rsp.Eof and Rsp.Bof Then
Response.Write("<option value="""">请先添加分类</option>")
Else
Do while not Rsp.Eof
Response.Write("<option value=" & """" & Rsp("ID") & """" & "")
Response.Write(">|-" & Rsp("ClassName") & "")
Sqlpp ="select * from "&tbname&"_Class Where TopID="&Rsp("ID")&" order by num"
Set Rspp=server.CreateObject("adodb.recordset")
rspp.open sqlpp,conn,1,1
Do while not Rspp.Eof
Response.Write("<option value=" & """" & Rspp("ID") & """" & "")
Response.Write("> |-" & Rspp("ClassName") & "")
Response.Write("</option>" )
Rspp.Movenext
Loop
rspp.close
set rspp=nothing
Response.Write("</option>" )
Rsp.Movenext
Loop
End if
rsp.close
set rsp=nothing
end sub
%>
<!--#include file="Admin_copy.asp"-->
</body>
</html>