📄 const.asp

📁 一个适用于企业的客户电话咨询系统,可以与其它的相关企业管理系统进行整合!
💻 ASP
字号:
<%
dim SystemEmail,systemsn,createrName,createrURL,Copyright,Version,userName,userURL
dim users,lastuser
'dim theme parameters
dim TableborderColor,TablebodyColor1,TablebodyColor2,TabletitleColor
dim bodycolor,MenuBackColor,Tablewidth,MenuFontColor,TablecontentColor,TablefontColor

call getdefaultheme()
call getconst()

sub getconst()
on error resume next
dim tmpsql,tmprs,errormsg
tmpsql="select * from [config]"
set tmprs=conn.execute(tmpsql)
if err then 
	err.clear
	errormsg="<BR><li>操作失败，无法读取系统参数！"
	call disperrs(errormsg)
	response.end
end if

if tmprs.eof then
	errormsg="<BR><li>操作失败，无法读取系统参数！"
	call disperrs(errormsg)
	response.end
end if

'获取基本参数
SystemEmail=tmprs("systememail")
systemsn=tmprs("systemsn")
CreaterName=tmprs("creatername")
CreaterURL=tmprs("createrurl")
username=tmprs("username")
userURL=tmprs("userURL")
Copyright=tmprs("Copyright")
Version=tmprs("Version")

'获取注册用户信息
users=tmprs("users")
lastuser=tmprs("lastuser")

set tmprs=nothing
end sub

sub getdefaultheme()
TableborderColor="#0099cc"
TablebodyColor1="#d2e9fe"
TablebodyColor2="#e8f4ff"
TabletitleColor="#99ccff"
TablecontentColor="#000000"
TablefontColor="#000000"
bodycolor="#f2f8ff"
MenuBackColor="#4CA4E9"
MenuFontColor="#ffffff"
Tablewidth="90%"
end sub

sub disperrs(errormsg)
%>
<html><head>
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
<title><%=Version%>——错误提示</title>
<link rel=stylesheet type=text/css href=txl.css>
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0>
<br><br>
    <table cellpadding=0 cellspacing=0 border=0 width=90% bgcolor=<%=TableborderColor%> align=center>
        <tr>
            <td>
                <table cellpadding=5 cellspacing=1 border=0 width=100%>
    <tr align="center"> 
      <td width="100%" bgcolor=<%=TabletitleColor%>><font color="<%=TableFontColor%>"><b><%=Version%>错误信息</b></font></td>
    </tr>
    <tr> 
      <td width="100%" bgcolor=<%=TablebodyColor2%>><font color="<%=TableContentColor%>"><br><b>产生错误的可能原因：</b><br><br>
<li>您是否仔细阅读了<a href=help.asp><font color="<%=TableContentColor%>">帮助文件</font></a>
<%=errormsg%><br><br></font>
      </td>
    </tr>
    <tr align="center"> 
      <td width="100%" bgcolor=<%=TabletitleColor%>>
<a href="javascript:history.go(-1)"><font color="<%=TableFontColor%>"> << 返回上一页</font></a>
      </td>
    </tr>  
    </table>   </td></tr></table>
<%
end sub
sub menu_class(Table,IsFatherClass)
    set rs = server.createobject("adodb.recordset")
    rs.source = "select * from "&Table&" where IsFatherClass="&IsFatherClass&" order by id desc "
    rs.open rs.source,conn,1,1
%>
                    <select name="FatherClass">
                      <%
     while not rs.eof
	 if rs("BigClassCN")=session("SelectBigClass") then
%>
                      <option value="<%=rs("BigClassCN")%>" selected><%=rs("BigClassCN")%></option>
                      <%else%>
                      <option value="<%=rs("BigClassCN")%>"><%=rs("BigClassCN")%></option>
                      <%end if
    rs.movenext
    wend
    rs.close
response.Write "</select>"
end sub
sub online()
'统计在线人数
    set rs = server.createobject("adodb.recordset")
    rs.source = "select * from [user] where status=true order by u_id desc"
    rs.open rs.source,conn,1,1
	response.Write "&nbsp;&nbsp;系统在线人数:"&rs.recordcount&"人<br>"
	response.write "&nbsp;&nbsp;在线名单："
while not rs.eof 
response.write "&nbsp;&nbsp;"&rs("userid")
response.Write "&nbsp;&nbsp;"
rs.movenext
wend
rs.close
end sub
%>
⌨️ 快捷键说明

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