📄 admin_rw.asp

📁 1
💻 ASP
字号:
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check("其他管理","本功能需要 “其他管理”　权限的支持！")
Dim action%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理中心</title>
<LINK href="../images/admin/Admin.css" type=text/css rel=stylesheet>
</head>
<body>
<%
Response.Write "<table border=0 align=center width=""100%"" cellpadding=2 cellspacing=1 class=KenQiao_Net_bk style=""border-collapse: collapse"">" & vbNewLine
Response.Write "  <tr class=KenQiao_Net_ss>" & vbNewLine
Response.Write "    <th><strong>替换片假名</strong></th></tr>" & vbNewLine
Response.Write "  <tr class=KenQiao_Net_ds height=25>" & vbNewLine
Response.Write "    <td><B>说明：</B><br> " & vbNewLine 
Response.Write "①、在添加过程中，难免会遇到一些耍个性的作者名或小说名，当中会存在“片假名”。<br>" & vbNewLine
Response.Write "②、由于ACC数据库“搜索”不能存在片假名，否则出现错误，所以提供此功能。" & vbNewLine
Response.Write "    </td>" & vbNewLine
Response.Write "  </tr>" & vbNewLine
Response.Write "  <tr class=KenQiao_Net_ds height=25>" & vbNewLine
Response.Write "    <td><B><span style=""color: red;"">当您看到此页面时就代表信息已经在进行替换运作，在替换过程中，请尽量不要离开页面</span></B>" & vbNewLine
Response.Write "    </td>" & vbNewLine
Response.Write "  </tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
Response.Write "<br>" & vbNewLine

	Response.Write "<table border=0 align=center cellpadding=3 width=""100%"" cellspacing=1 class=KenQiao_Net_bk style=""border-collapse: collapse"">" & vbNewLine
	Response.Write "<tr class=KenQiao_Net_ss>" & vbNewLine
	Response.Write "	<th width='6%' align=center>编号</th>" & vbNewLine
	Response.Write "	<th width='35%' align=center>原小说名</th>" & vbNewLine
	Response.Write "	<th width='35%' align=center>处理后</th>" & vbNewLine
	Response.Write "	<th width='12%' align=center> 作者名 </th>" & vbNewLine
	Response.Write "	<th width='12%' align=center> 处理后 </th>" & vbNewLine
	Response.Write "</tr>" & vbNewLine
	
set rs=server.createobject("adodb.recordset")
sql="select 编号,作者,书名 from 小说 order by 更新时间,编号 desc"
rs.open sql,conn,1,1
If rs.eof and rs.bof then
	Response.Write "<tr> <td height=24 colspan=5 align=center>暂时没有小说，无需进行此操作</td></tr>"
else
  Dim iCount,iPageSize,maxpage,page,x,j,FY_Name,FY_ZZ,FY_ID
	rs.PageSize =20 '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
	maxpage=rs.PageCount 
	page=ReplaceBadChar(request("page"))
	If Not IsNumeric(page) or page="" then
	page=1
    Else
	page=cint(page)
    End If
	If page<1 then
		page=1
		ElseIf  page>maxpage then
		page=maxpage
	End If
	rs.AbsolutePage=Page
	If page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	Else
		x=iPageSize
	End If
	for j=1 to rs.pagesize
	FY_Name=Jencode(rs(2))
	If rs(1)<>"未知" And rs(1)<>"" Then
	FY_ZZ=Jencode(rs(1))
	Else
	FY_ZZ=rs(1)
	End if
	FY_ID=rs(0)
    Response.Write "<tr class=KenQiao_Net_ds>" & vbNewLine
    Response.Write "	<td align=center>"&rs(0)&"</td>" & vbNewLine
    Response.Write "	<td align=center>"&rs(2)&"</td>" & vbNewLine    
    Response.Write "	<td align=center>"&FY_Name&"</td>" & vbNewLine    
    Response.Write "	<td align=center>"&rs(1)&"</td>" & vbNewLine    
    Response.Write "	<td align=center>"&FY_ZZ&"</td>" & vbNewLine
    Response.Write "</tr>" & vbNewLine
    conn.execute "UPDATE [小说] SET 书名='"&FY_Name&"',作者='"&FY_ZZ&"' where 编号="&FY_ID&""
	rs.movenext
	If rs.eof then exit for
	next
	If maxpage<=page Then
		Response.Write "<tr class=KenQiao_Net_ds> <td height=24 colspan=5 align=center><B><span style=""color: red;"">全部转换完毕，请离开此页</td></tr>"
	Else
		Response.Write "<tr class=KenQiao_Net_ds> <td height=24 colspan=5 align=center>目前转到了 <B><span style=""color: red;"">"&page*rs.PageSize&"</span></B> 个信息，剩余 <B><span style=""color: red;"">"&iCount-page*rs.PageSize&"</span></B> 等待转换！<br><B><span style=""color: red;"">4</span></B> 秒之后信息自动转页，您无需进行任何操作.......</td></tr><meta http-equiv=""refresh"" content=""4;url=?page="&page+1&""">"
	End if
End if
	Rs.Close:Set Rs = Nothing
	Response.Write "</table>"
	
call admin_footer()
%></body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -