?? 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 + -