📄 admin_page.asp
字号:
<td width='100' align='center'><strong>所属分类：</strong></td>
<td><input name='PageClass' type='text' id='PageClass' size='30' maxlength='50'>
<%
Dim rsbb
response.write "<select onChange='PageClass.value=this.value;'><option value=''>新增分类</option>"
set rsbb=server.createobject("adodb.recordset")
sql="select distinct (PageClass) from 自定义页面"
rsbb.open sql,conn,1,1
do while not rsbb.eof
response.write "<option value='"&rsbb("PageClass")&"'>"&rsbb("PageClass")&"</option>"
rsbb.movenext
loop
rsbb.close
set rsbb=nothing
response.write "</select>"
%>
<font color='#FF0000'>请选择所属分类</font></td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td colspan='3'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>页面路径：</strong></td>
<td>根目录/<input name='PageUrl' type='text' id='PageUrl' size='20' maxlength='100'> <font color='#FF0000'>请输入生成路径(不填写为根目录)</font> 例如：Html/ABC</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td colspan='3'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>文件名称：</strong></td>
<td><input name='PageFileName' type='text' id='PageFileName' size='20' maxlength='50' value=''> <font color='#FF0000'>请输入生成文件名</font> 例如：New</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td colspan='3'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>文件类型：</strong></td>
<td><input name='PageType' type='radio' value='0' checked>.Html <input name='PageType' type='radio' value='1'>.Htm <input name='PageType' type='radio' value='2'>.SHtml <input name='PageType' type='radio' value='3'>.SHtm <font color='#FF0000'>只能生成上边4种方式的文件</font></td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_qs' height='22'>
<td colspan='3' align='center'><strong>页 面 内 容 ↓</strong></td>
</tr>
<%Call KenQiao_BiaoQian()%>
<tr class='KenQiao_Net_ds'>
<td colspan='5'>
<textarea name='PageContent' class='body2' ROWS='10' COLS='108'>
<html>
<head>
<title>新模板标题</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<!-- 请输入您要设计的代码 -->
</body>
</html>
</textarea>
</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td colspan='3'><table><tr>
<td width='95%'>
</td>
<td align='right' width='5%'><img src='../images/admin/sizeplus.gif' width='20' height='20' onclick="sizeMIntro(5,'PageContent');"> <img src='../images/admin/sizeminus.gif' width='20' height='20' onclick="sizeMIntro(-5,'PageContent');"> </td></tr>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td height='40' align='center' colspan='3'>
<input name='Submit' type='submit' id='Submit' value=' 添 加 ' class='button'>
</td>
</tr>
</form>
</table>
<%
End Sub
'===================================
'自定义页面列表开始
'===================================
Sub FY_Page_Main
Dim rsaa,rsaafonta,myPagesize,sql1,sql2,line
if classtype="" then
rsaafonta="#FF0000"
end if
response.write "<table align='center' width='100%' border='1' cellspacing='0' cellpadding='4' class=KenQiao_Net_bk style='border-collapse: collapse'>"
response.write "<tr align=""left"" class=KenQiao_Net_qs>"
response.write "<td colspan=""6""> "
response.write "<a href=""Admin_Page.asp""><font color="&rsaafonta&">全部分类</font></a> | "
set rsaa=server.createobject("adodb.recordset")
sql="select distinct (PageClass) from 自定义页面"
rsaa.open sql,conn,1,1
if rsaa.eof and rsaa.bof then
response.write "没有分类"
end if
do while not rsaa.eof
response.write "<a href=""?classtype="&rsaa("PageClass")&"""><font color="
if classtype=""&rsaa("PageClass")&"" then
response.write "#FF0000"
end if
response.write ">"&rsaa("PageClass")&"</font></a> | "
rsaa.movenext
loop
rsaa.close
set rsaa=nothing
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
response.write "<table align=""center"" width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=KenQiao_Net_bk style=""border-collapse: collapse"">"
response.write "<form action="""" method=""post"" onsubmit=""return chk(this)"">"
response.write "<tr class=KenQiao_Net_ss align=""center"">"
response.write "<td width=""20%"" height=""22"">页面名称</td>"
response.write "<td width=""20%"" align=""center"">页面分类</td>"
response.write "<td>页面地址</td>"
response.write "<td width=""8%"">生成</td>"
response.write "<td width=""20%"" align=""center"">操作</td>"
response.write "</tr>"
myPagesize=20
if classtype<>"" then
sql1="where PageClass='"&classtype&"'"
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from 自定义页面 "&sql1&" order by PageID desc",conn,1,1
call myPages(rs,myPagesize)
if rs.recordcount=0 then
response.write "<tr class=KenQiao_Net_ds align=center><td colspan=8>尚未添加自定义页面</td></tr>"
else
'分割
line=myPagesize
dim i
i=1
do while not rs.eof and line>0
'循环开始
response.write "<tr class=KenQiao_Net_ds onmouseout=""this.style.backgroundColor=''"" onmouseover=""this.style.backgroundColor='#BFDFFF'"" style=""padding: 0px 2px;"">"
response.write "<td> "&rs("PageName")&"</td>"
response.write "<td align=""center""> "&rs("PageClass")&"</td>"
response.write "<td> "
response.write "<a href='../"&rs("PageUrl")&"/"&rs("PageFileName")&""&TypeName(rs("PageType"))&"' target='_blank'>"&rs("PageUrl")&"/"&rs("PageFileName")&""&TypeName(rs("PageType"))&"</a></td>"
response.write "<td align='center'>"
call KenQiao_Html_Page(rs("PageUrl"),rs("PageFileName"))
response.write "</td><td align='center'>"
response.write "<a href='Admin_HTML.asp?pageid="&rs("PageID")&"&action=Page'>生成</a> "
response.write "<a href='?action=modifya&pageid="&rs("PageID")&"'>修改</a> <a href='?action=del&pageid="&rs("PageID")&"' onclick=""return confirm('真的要删除此页面吗？');"">删除</a></td>"
response.write "</tr>"
'循环结束
rs.movenext
line=line-1
i=i+1
loop
response.write "<tr class=KenQiao_Net_qs><td colspan=4 align='center'> "
call listpages("",request("listtype"))
response.write "</td><td><center>共 <font color=#FF0000>"&rs.recordcount&"</font> 个</center></td></tr>"
rs.close
set rs=nothing
end if
response.write "</form></table>"
End Sub
sub KenQiao_Html_Page(PageUrl,PageFileName)
If IsExists(InstallDir&""&PageUrl&"/"&PageFileName&""&TypeName(rs("PageType"))&"")=True Then
Response.Write "<font color=#000000><b>已生成</b></font>"
Else
Response.Write "<font color=red><b>未生成</b></font>"
End If
end sub
sub listpages(mycondition,listtype)
Dim i
if pages<1 then
exit sub
end if
if p>0 then
response.write "<a href="&request.ServerVariables("script_name")&"?classtype="&classtype&"¤tpage=10&p="&p-1&mycondition&"&listtype="&listtype&"><img src=../images/admin/prepre.gif alt=前十页 border=0></a> "
else
response.write "<img src=../images/admin/prepre.gif alt=前十页 border=0> "
end if
'-------------------下面写出当前十个页码
response.write "<img src=../images/admin/lined.gif border=0><img src=../images/admin/k.gif border=0 width=5>"
for i=1 to 10
if (p*10+i)>pages then exit for
if currentpage=i then
response.write "<b><a style='color:ff6600'"
else
response.write "<a"
end if
response.write " href="&request.ServerVariables("script_name")&"?classtype="&classtype&"¤tpage="&i&"&p="&p&mycondition&"&listtype="&listtype&"><font class=no >"&(p*10+i)&"</font></a></b> <img src=../images/admin/lined.gif border=0><img src=../images/admin/k.gif width=5 border=0>"
next
response.write ""
'--------------------察看下十页的连接
if (p*10+10)<pages then
response.write "<img src=../images/admin/k.gif border=0><a href="&request.ServerVariables("script_name")&"?classtype="&classtype&"¤tpage=1&p="&p+1&mycondition&"&listtype="&listtype&"><img src=../images/admin/nextnext.gif alt=后十页 border=0></a> "
else
response.write "<img src=../images/admin/k.gif border=0><img src=../images/admin/nextnext.gif alt=后十页 border=0> "
end if
'-----------------------------------------------上下页导航
end sub
sub myPages(myRS,mysize) '------mysize为内部变量（主页面没有定义），myRS为主页面传递过来的RS对象（地址传递）
Dim str
if myRS.eof and myRS.bof then str="没有纪录"
if str="" then
if mysize="" or NOT IsNumeric(mysize) then
mysize=15
end if
myRS.PageSize=mysize
pages=myRS.pagecount
records=myRS.recordcount
On Error Resume Next '取得数字
currentPage=request("currentPage")
if currentPage="" then
currentPage=1
end if
currentPage=CInt(currentPage)
if Err.Number <> 0 Then
currentPage=1
Err.Clear
end if
if currentPage<1 then
currentPage=1
elseIf currentPage>10 then
currentPage=10
end if
'----------------处理p
p=request("p")
if p="" then
p=0
end if
p=CLng(p)
if Err.Number <> 0 Then
p=0
Err.Clear
end if
if p<0 then
p=0
end if
'--判断是否出了页数范围
nowPage=p*10+currentPage
if nowPage>pages then
p=(pages-1)\10
currentPage=((pages-1) mod 10)+1
end if
myRS.absolutepage=p*10+currentPage
else
currentPage=1
records=0
pages=1
end if
end sub
Function TypeName(id)
if Id=0 then
TypeName=".Html"
elseif Id=1 then
TypeName=".Htm"
elseif Id=2 then
TypeName=".SHtml"
else
TypeName=".SHtm"
end if
End Function
'**************************************************
'函数名：IsValidStr_Page
'作 用：检查字符是否在有效范围内
'参 数：str ----要检查的字符
'FS ----检查的方式，1为目录，其他为文件
'返回值：True ----字符合法
' False ----字符不合法
'**************************************************
Function IsValidStr_Page(ByVal str,ByVal FS)
Dim i, c
IsValidStr_Page = True
str=Replace(str,"\","/")
For i = 1 To Len(str)
c = LCase(Mid(str, i, 1))
If FS<>1 Then
If InStr("abcdefghijklmnopqrstuvwxyz1234567890_-", c) <= 0 Then
IsValidStr_Page = False
Exit Function
End If
Else
If InStr("abcdefghijklmnopqrstuvwxyz1234567890_/-", c) <= 0 Then
IsValidStr_Page = False
Exit Function
End If
End if
Next
If FS=1 And (Left(str,1)="/" Or Right(str,1)="/") Then
IsValidStr_Page = False
End if
End Function
dim pages,records,currentPage,p '--------定义变量，这些变量在主页面中，进行地址传递
call admin_footer()
%></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -