📄 const.asp
字号:
<%
dim errmsg,sucmsg,rs,sql,strSiteName,strSiteUrl,strProgram_Name,strSiteOwner,strUsr_num,strLastmember,strREG_Announcement
sql="Select * From tb_siteinfo"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql,db_conn,1,1
StrSiteName=Rs("SiteName")
StrSiteURL=Rs("SiteURL")
StrProgram_Name=Rs("Program_Name")
StrSiteOwner=Rs("SiteOwner")
strREG_Announcement=rs("REG_Announcement")
StrUSR_NUM=Rs("USR_NUM")
StrLastMember=Rs("LastMember")
Rs.Close
set rs=nothing
Function error%>
<html>
<head>
<title><%=StrHTMLETITLE%> 错误提示页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style/style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<!--#include file="top.asp"-->
<br>
<table cellpadding=10 cellspacing=0 border=0 width=740>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100% bgcolor="#777777">
<tr align="center">
<td width="100%" bgcolor=#EEEEEE>错误信息提示</td>
</tr>
<tr>
<td width="100%" bgcolor=#FFFFFF><b>产生错误的可能原因：</b><br><br>
<%=errmsg%>
<li>您是否仔细阅读了<a href=help.asp>帮助文件</a>
</td>
</tr>
<tr align="center">
<td width="100%" bgcolor=#EEEEEE>
<a href="javascript:history.go(-1)"> << 返回上一页</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</div>
</body>
</html>
<%end Function%>
<%Function success%>
<html>
<head>
<title><%=StrHTMLETITLE%> 提示页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv=refresh content="2; url=favlist.asp">
<link rel="stylesheet" href="style/style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<!--#include file="top.asp"-->
<br>
<table cellpadding=10 cellspacing=0 border=0 width=740>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100% bgcolor="#777777">
<tr align="center">
<td width="100%" bgcolor=#EEEEEE>信息提示</td>
</tr>
<tr>
<td width="100%" bgcolor=#FFFFFF><b>您的操作成功：</b><br><br>
<%=sucmsg%>
<li>如果有什么疑问您可以仔细阅读<a href=help.asp>帮助文件</a>
</td>
</tr>
<tr align="center">
<td width="100%" bgcolor=#EEEEEE>
<a href="<%=session("nowpage")%>"> << 如果您的浏览器不能正常返回上一页面 请点击这里 >></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</div>
</body>
</html>
<%End Function
'**************************************************
'函数名：gotTopic
'作 用：截字符串，汉字一个算两个字符，英文算一个字符
'参 数：str ----原字符串
' strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
function gotTopic(str,strlen)
if isnull(str) or str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -