?? setup.asp
字號(hào):
<%
'以下是設(shè)定,請(qǐng)按照你的情況修改
homepage_title="我的主頁(yè)" '主頁(yè)的標(biāo)題,不可以使用HTML
homepage_link="http://www.netfansky.com" '主頁(yè)的地址
news_title="<font color='#000000'><font color='#FF0066'><font face='Arial, Helvetica, sans-serif'>MY</font></font><font face='Arial, Helvetica, sans-serif'>News</font></font>新聞中心" '新聞中心的名字,可以使用HTML
news_location="http://localhost/news/" '新聞程序的路徑,要以“/”結(jié)尾
db_name="news.mdb" '數(shù)據(jù)庫(kù)文件的名字,可以是任何有效名字,可以包含路徑,例如db/news.mdb
pmcount=18 '在default.asp中每頁(yè)新聞數(shù)目,不是嵌入顯示的新聞條數(shù)
your_email="ayeah@21cn.com" '爆料熱線的地址
show_more="yes" '在嵌入顯示新聞時(shí),是否顯示“更多新聞……”,顯示為yes,不顯示為no
'==========設(shè)定結(jié)束,以下不用修改,除非你知道怎么修改=============
dim conn
dim connstr
'on error resume next
connstr = "DBQ=" + server.mappath(db_name) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "數(shù)據(jù)庫(kù)連接出錯(cuò)!"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "數(shù)據(jù)庫(kù)連接出錯(cuò)!"
Response.End
end if
end if
sub endConnection()
conn.close
set conn=nothing
end sub
current_version="v1.0 published on 2001.3.21"
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -