📄 admin_function.asp
字号:
<%
dim strErr,strSuccess
'显示错误信息
sub ShowErrMsg()
strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
strErr=strErr & "<link href='style.css' rel='stylesheet' type='text/css'></head><body>" & vbcrlf
strErr=strErr & "<br><br>"& vbcrlf
strErr=strErr & "<table cellpadding=2 cellspacing=2 border=0 width=400 class='border' align=center>" & vbcrlf
strErr=strErr & " <tr align='center'><td height='20' class='txt1'><strong>错误信息</strong></td></tr>" & vbcrlf
strErr=strErr & " <tr><td height='100' class='txt05' valign='top'><br>产生错误的可能原因：</b><br>" & errmsg &"</td></tr>" & vbcrlf
strErr=strErr & " <tr align='center'><td class='txt05'>【<a href='admin_main.asp'>返回管理主页</a>】</td></tr>" & vbcrlf
strErr=strErr & "</table>" & vbcrlf
strErr=strErr & "</body></html>" & vbcrlf
response.write strErr
response.end()
end sub
'显示成功信息
sub ShowSuccessMsg()
strSuccess=strSuccess & "<html><head><title>成功信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
strSuccess=strSuccess & "<link href='style.css' rel='stylesheet' type='text/css'></head><body>" & vbcrlf
strErr=strErr & "<br><br>"& vbcrlf
strSuccess=strSuccess & "<table cellpadding=2 cellspacing=2 border=0 width=400 class='border' align=center>" & vbcrlf
strSuccess=strSuccess & " <tr align='center'><td height='20' class='txt1'><strong>恭喜你！</strong></td></tr>" & vbcrlf
strSuccess=strSuccess & " <tr><td height='100' class='txt05' valign='top'><br>" & SuccessMsg &"</td></tr>" & vbcrlf
strSuccess=strSuccess & " <tr align='center'><td class='txt05'><br>【<a href='admin_main.asp'>返回管理主页</a>】</td></tr>" & vbcrlf
strSuccess=strSuccess & "</table>" & vbcrlf
strSuccess=strSuccess & "</body></html>" & vbcrlf
response.write strSuccess
response.end()
end sub
'***************************************************
'函数名：IsObjInstalled
'作 用：检查组件是否已经安装
'参 数：strClassString ----组件名
'返回值：True ----已经安装
' False ----没有安装
'***************************************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<%
'文章内容分页
sub autopage()
dim Maxpagelen,page,content,PageNumber
dim contentlen,i
dim BeginPoint,EndPoint
Maxpagelen=int(ArticleCount)
content=ubbcode(rsread("content"))
ArticleID=rsread("ArticleID")
contentlen=len(content)
page=request.QueryString("page")
if contentlen<=Maxpagelen then
response.Write content
else
if page="" then
page=1
else
page=Cint(page)
end if
if pageNumber*MaxPagelen<contentlen then
PageNumber=PageNumber+1
end if
PageNumber=int(contentlen/Maxpagelen)+1
if page<1 then page=1
if page>PageNumber then page=PageNumber
if page=1 then
BeginPoint=1
else
BeginPoint=MaxPagelen*(page-1)
end if
if page=PageNumber then
EndPoint=contentlen
else
EndPoint=MaxPagelen*page
if EndPoint>=ContentLen then
EndPoint=ContentLen
end if
end if
content=Mid(content,BeginPoint,EndPoint-BeginPoint)
response.Write content
response.Write"<br>"
response.Write"<br>"
end if
if PageNumber>1 then
response.Write "<div align='right'><span class='txt05'>"&int(ArticleCount)&"</span>字/页 共"
for i=1 to PageNumber
response.Write "<a href=admin_ArticleRead.asp?ArticleID=" & ArticleID &"&page=" & i & "> "& i &"</a>"
Next
response.Write " 分页</div>"
end if
end sub
'文件扩展名确定
function getFileExtName(fileName)
dim pos
pos=instrrev(filename,".")
if pos>0 then
getFileExtName=mid(fileName,pos+1)
else
getFileExtName=""
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -