📄 createsc2.asp
字号:
<%
if Session("isAdmin")<>true Then
Response.Write "非法闯入！"
Response.End
End if
%>
<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<TITLE>生成页面</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<style type="text/css">
body {font-size:13px}
</style>
</HEAD>
<BODY>
<%
dim allsel
dim rs(5)
function listunder(i)
set rs(i)=server.createobject("adodb.recordset")
rs(i).open "select classid,classname from feilei where topclass="&rs(i-1)("classid"),conn,1,3
while not rs(i).eof
dim topclassname
topclassname=""
for x=0 to i-1
topclassname=topclassname&rs(x)("classname")&"＞"
next
response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&"</option>"&vbCrLf
allsel=allsel & ";" & rs(i)("classid")
if i<Ubound(rs) then
call listunder(i+1)
end if
rs(i).movenext
wend
end function
%>
<script language=javascript></script>
<script language=vbscript>
function wz_add(theform)
on error resume next
wz_add=false
dv1.style.display="none"
dv2.style.display=""
set xht=createobject("microsoft.xmlhttp")
ppp=split(theform.classid.value,";")
for iss=0 to ubound(ppp)
document.forms(1).textlog.value=document.forms(1).textlog.value & "开始生成>>" & ppp(iss)
xht.open "get","../creatsc2.asp?classid=" & ppp(iss) & "&" & now(),false
xht.send
if xht.responsetext="ok" then document.forms(1).textlog.value=document.forms(1).textlog.value & " 成功！" else document.forms(1).textlog.value=document.forms(1).textlog.value & " 失败！"
document.forms(1).textlog.value=document.forms(1).textlog.value & chr(13) & chr(10)
next
alert "完成！"
dv1.style.display=""
end function
</script>
<div id=dv1>
<form action="../creatsc2.asp" method="post" onsubmit="return wz_add(this)" name="form1">
选择要生成的类别：
<select name="classid">
<option selected value="0">生成所有类别</option>
<%
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,classname from feilei where topclass=0",conn,1,3
while not rs(0).eof
response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&"</option>"&vbCrLf
if allsel="" then allsel= rs(0)("classid") else allsel= allsel & ";" & rs(0)("classid")
call listunder(1)
rs(0).movenext
wend
response.write "<option selected value=""" & allsel & """>生成所有类别</option>"
%>
</select><br>生成所有类别时速度较慢，请耐心等待！
<input type="submit" value="马上生成HTML文件">
</form>
<br><br>
</div>
<div id=dv2 style="display:none"><form>
<textarea name="textlog" cols="80" rows="25"></textarea></form>
</div>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -