📄 sys.asp
字号:
<%
'----------------------------------------公用数据区
homepage = "http://www.soonhost.com" 'homepage = 主页地址
homename = "迅捷主机网" 'homename = 主页名称
maxperpage = 20 'maxperpage = 每页显示的信息数
made = "迅捷主机网" 'made= 程序制做
SystemEmail ="soxin@sina.com" 'SystemEmail=您的email地址，正确填写以便正常使用本系统的mail功能
sendname ="迅捷主机网" '发信者姓名
regtime =30 'regtime=限制注册间隔时间(防止灌水)
EmailFlag =1 'EmailFlag=服务器邮件组件,0不支持邮件,1支持jmail,2支持Cdonts
banner ="../sys/image/banner.gif" 'banner=页眉广告
webserveurl ="/download/vote/" 'webserveurl=功能模块安装路径
mymdbpath ="../sys/mdb/sys.mdb" 'mymdbpath=数据库路径
'----------------------------------------网上调查区
voteborder =1 '调用调查时是否显示周围方框 1=显示 0=隐藏
'=======================================以下代码请不要改动，否则会引起程序执行错误！
'---------------------------------------打开数据库
power="Ver 1.10 <a href=http://www.soonhost.com>>> 最新版本 </a>"
dim conn
sub conned()
dim path,p1
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath(mymdbpath)
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1
end sub
'-------------------------------------------------top
if power = "" or len(power)<>53 then
response.write ""
response.end
end if
sub top()
%>
<html>
<head>
<title><%=state%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../sys/inc/soonhost.css">
<SCRIPT language=JavaScript1.2>
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</SCRIPT>
</head>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -