📄 admin_jscreate.asp
字号:
<!--#include file="Config.asp" -->
<HTML><HEAD><TITLE>其他管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="视听新时空（网络电视，网络广播，免费电影：全球最大的中文网络电视，广播网站）">
<link rel="stylesheet" href="admin.css" type="text/css">
</HEAD>
<BODY leftMargin=0>
<% msgtitle="其它管理"
select case request("action")
case "jsSearch"
call jsSearch()
msginfo="<li>操作成功！已经创建节目分类搜索表单。</li><br>"
call Sysmsg(msgtitle,msginfo)
case "jsNav"
call jsNav()
msginfo="<li>操作成功！已经创建节目大类导航链接。</li><br>"
call Sysmsg(msgtitle,msginfo)
case else
msginfo=""
call Sysmsg(msgtitle,msginfo)
end select
sub jsSearch()
foolcat="document.write('搜索：<select name=action size=1>');" & vbCrLf
foolcat = foolcat + "document.write('<option value=title selected>按节目名称</option><option value=content>按节目简介</option></select> 栏目：<select name=CateID size=1><option selected value=>所有分类</option>');" & vbCrLf
set rs=server.createobject("adodb.recordset")
sql = "select * from "&CategoryName&"_Cate"
rs.open sql,conn,1,1
do while not rs.eof
foolcat = foolcat + "document.write('<option value="& trim(rs("CateID")) &">" & trim(rs("CateName")) & "</option>');" & vbCrLf
rs.movenext
loop
rs.close
set Rs=nothing
foolcat = foolcat + "document.write('</select> ');" & vbCrLf
foolcat = foolcat + "document.write('<input type=text name=keyword size=12 value=关键字 maxlength=50> ');" & vbCrLf
foolcat = foolcat + "document.write('<input type=submit name=Submit value=搜索>');"
jsname=Server.MapPath("jsSearch.js")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(jsname)
fout.WriteLine foolcat
'关闭连接
fout.close
set fout = nothing
end sub
sub jsNav()
content="<table width=""770"" height=""22"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""0"" background=""images/index-t.gif"">" & vbCrLf
content=content&"<tr><td align=""center"" class=""bottomindex""> <a href=""./"" ><img src=""images/d_down1.gif"" align=""absmiddle"" border=""0""></a> " & vbCrLf
set rs=server.createobject("adodb.recordset")
sql = "SELECT * FROM "&CategoryName&"_Cate order by CateID asc"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
do while not rs.eof
content = content & "| <a href=""SoftList.asp?CateID="&rs("CateID")&""">"&rs("CateName")&"</a> " & vbCrLf
rs.movenext
loop
end if
Rs.Close
set Rs=nothing
content=content&"</td></tr></table>"
jsname=Server.MapPath("navbar.htm")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(jsname)
fout.WriteLine content
'关闭连接
fout.close
set fout = nothing
end sub
%>
<%
sub Sysmsg(msgtitle,msginfo)
%>
<br>
<table width="85%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<tr>
<th ><%=msgtitle%></th>
</tr>
<tr>
<td class="forumRow"><%=msginfo%>
<br><li><a href="admin_jsCreate.asp?action=jsNav" class="ArticleList">创建节目大类导航链接</a></li><br>
<br>
<li><a href="admin_jsCreate.asp?action=jsSearch" class="ArticleList">创建节目分类搜索表单</a><br>
<br>
<font color="#FF0000">注意：</font>如果你的空间不支持FSO，请手动编辑jsSearch.js和navbar.htm这两个文件。
</td>
</tr>
<tr>
<td height="22" align="center" class="forumRowHighlight"><a href="javascript:history.go(-1)" ><<
返回上一页</a></td>
</tr>
</table>
<br>
<%end sub %>
</BODY></HTML>
<%
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -