admin_js.asp

文章管理系统,生成静态网页 .

<!--#include file=conn.asp-->
<!--#include file=setup.asp-->
<!--#include file=admin_cookie.asp-->
<!--#include file=head.asp-->
<%
set conn=server.createobject("adodb.connection")
conn.open connstr

%>
<br>
<br>
<table width=90% align=center bgcolor=black cellpadding=3 cellspacing=1><tr>
<td bgcolor=white>
<div align=center>取得js代码</script></div>
<form action=<%=request.servervariables("url")%>>
个数:<input name=num size=2 value=5><br>
类别:<select name=cla>
<option value="">全部</option>
<%
set rs=conn.execute("select * from class")
do while not rs.eof
%>
<option value=<%=rs("class")%>><%=rs("class")%>
<%
rs.movenext
loop
conn.close
%>
</select>
<br>
按照访问人数:<select name=sc>
<option value="0"></option>
<option value="desc">降叙</option>
<option value="asc">升序</option>
</select>
如果不选择升降序则按照时间顺序导出
<br>
宽度：<input name=width size=10 value=180><br>
高度：<input name=height size=10 value=200>
<input name=submit type=submit class="input1" value="取得代码">
</table>
<%
if request("submit")<>"" then
	if not isnumeric(request("num")) then 
response.write "<script>alert('你的个数竟然不全是数字，太神奇了啊')</script>"
response.end
	end if
%>
<br>
<table width=90% align=center bgcolor=black cellpadding=3 cellspacing=1><tr>
<td bgcolor=white align=center><br>
<textarea class="input4" cols=60 rows=4 onclick="this.select(-1)"><script src=<%=path%>/list.asp?num=<%=request("num")%>&class=<%=request("cla")%>&sc=<%=request("sc")%>&width=<%=request("width")%>&height=<%=request("height")%>></script>
</textarea>
<%
end if
%>
<br><br>
</table>