?? config.asp
字號:
<%
'***************************** 本版發行日期：2004-2-18 —— 版權說明 —— 請保留此信息 ****************************************
'***** 程序名稱:網域高科廣告管理系統 **** English Name:ZonGG *****
'***** 當前版本:ZonGG Version 1.1.0.0 ****************************** Powered By:ZonGG Version 1.1.0.0 *****
'***** 開發制作:網域高科.網域技術部 2000-2010 *** **** *** Do By:Zon.Hizi 2000-2010 *****
'***** 版權所有:網域高科.網域技術部 2000-2010 ****************************** Copyright:Zon.Hizi 2000-2010 *****
'***** 網域高科域名:http://www.zon.cn ***** **** **** URL:http://www.zon.cn *****
'***** 網絡實名:網域高科 *** ********************** 網域高科 *****
'***** 程序下載地址:http://zon.cn/down ****** DownLoad:http://zon.cn/down *****
'***** 技術支持信箱:hizi@zon.cn E-mail:hizi@zon.cn *****
'***** 3721中文郵:網域技術部@網域高科 C-mail:網域技術部@網域高科 *****
'************************************************************************************************************************************
%>
<%
''''''''''''''''''以下為本系統名稱、版本、開發者信息，使用者請務必保留，不得修改'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const version="<font color=#ffffff>Powered By:<A href='http://zon.cn/down' target=_blank><font color=#fffff0>ZonGG Version 1.1.0.1 網域高科廣告管理系統(網域高科版)</font></a></font>"
''''''以下為底部版權信息，授權使用者修改顯示內容'''''''''''''''''''''''''''''''''''''''''
Const copyright="<font color=#ffffff>Copyright ©2000-2010 <a href='http://www.zon.cn' target='_blank'><font color=#fffff0>網域高科 ZON.CN</font></a> From China.Beijing.Zonvon <a href='http://feitium.yeah.net' target='_blank'><font color=#fffff0>沸騰年代</font></a>"
%>
<%
''''''''''''''''''''''''
'''數據庫連接函數''
''''''''''''''''''''''''''''
Dim Datapath
%>
<!--#include file="conn.asp"-->
<!--#include file="ubbcode.asp"-->
<%
adsdata="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Datapath)
set adsconn=server.createobject("ADODB.Connection")
'管理頁面每頁顯示廣告條數
const advertlistnumber=24
'判斷當前真實URL,不含/
Function DqUrl()
DqUrl="http://"&Request.ServerVariables("server_name")&Left(Request.ServerVariables("script_name"),InstrRev(Request.ServerVariables("script_name"),"/")-1)
End Function
'廣告顯示類型名
Function Ggxslx(lx)
Select Case lx
Case "txt":Ggxslx="純文本"
Case "gif":Ggxslx="GIF圖片"
Case "swf":Ggxslx="Flash動畫"
Case "dai":Ggxslx="嵌入代碼"
End select
End Function
'廣告打開類型名
Function Ggdklx(lx)
Select Case lx
Case 0:Ggdklx="新窗口"
Case else:Ggdklx="本窗口"
End select
End Function
'廣告位名稱調用
Function Ggwm(place)
set adsrs1=server.createobject("adodb.recordset")
adsrs1.open "select * from place where place="&place,adsconn,1,1
if not adsrs1.eof then
Ggwm=adsrs1(1)
else
Ggwm=""
end if
adsrs1.close
Set adsrs1=nothing
End Function
'廣告位類型標示數字調用
Function Ggwlxsz(place1)
set adsrs1=server.createobject("adodb.recordset")
adsrs1.open "select * from place where place="&place1,adsconn,1,1
if not adsrs1.eof then
Ggwlxsz=adsrs1(2)
else
Ggwlxsz=0
end if
adsrs1.close
Set adsrs1=nothing
End Function
'廣告位類型名稱調用
Function Ggwlx(place)
set adsrs1=server.createobject("adodb.recordset")
adsrs1.open "select * from place where place="&place,adsconn,1,1
if not adsrs1.eof then
Ggwlx=adsrs1(2)
Select Case Ggwlx
Case 1:Ggwlx="頁內嵌入循環"
Case 2:Ggwlx="上下排列置入"
Case 3:Ggwlx="左右排列置入"
Case 4:Ggwlx="向上滾動置入"
Case 5:Ggwlx="向左滾動置入"
Case 6:Ggwlx="彈出多個窗口"
Case 7:Ggwlx="循環彈出窗口"
End select
else
Ggwlx="廣告位被刪除"
end if
adsrs1.close
Set adsrs1=nothing
End Function
'調出廣告位下拉選項
Sub Ggwxlxx(place) 'place 用于判斷默認選項
%>
<select size=1 name=place>
<%
set adsrs1=server.createobject("adodb.recordset")
adsrs1.open "select * from place",adsconn,1,1
do while not adsrs1.eof
%>
<option value="<%=adsrs1(0)%>" <% if adsrs1(0)=place then :response.write "selected":end if%>><%=adsrs1(1)%></option>
<%adsrs1.movenext
loop
adsrs1.close
Set adsrs1=nothing%>
</select>
<%end sub%>
<%
'調用常用廣告位類型下拉菜單
Sub Ggwlei(shu) '用于表示類型的數
%>
<select size=1 name=placelei>
<option value=1 <% if shu=1 then%>selected<%end if%>>頁內嵌入循環</option>
<option value=2 <% if shu=2 then%>selected<%end if%>>上下排列置入</option>
<option value=3 <% if shu=3 then%>selected<%end if%>>左右排列置入</option>
<option value=4 <% if shu=4 then%>selected<%end if%>>向上滾動置入</option>
<option value=5 <% if shu=5 then%>selected<%end if%>>向左滾動置入</option>
<option value=6 <% if shu=6 then%>selected<%end if%>>彈出多個窗口</option>
<option value=7 <% if shu=7 then%>selected<%end if%>>循環彈出窗口</option>
</select>
<%end sub%>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''' 判斷管理是否登陸 ''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Iflogin()
if session("masterlogin")<>"superadvertadmin" then
%><BR><BR><BR><BR>
<center>
<form method=POST action=login.asp>
管理員名:<input name="username" maxlength="20" size="20">
管理密碼:<input type="password" name="password" maxlength="16" size="20">
<input type="submit" name="Submit3" value="立即登陸">
</form>
</center><BR><BR><BR><BR><BR><BR><BR><BR>
<!--#include file="boot.asp"-->
<%
response.end
end if
end Sub%><%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''廣告條信息入庫函數（包含修改、添加兩種）'''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub addrk()
if request.querystring("job")="add" then
adsconn.open adsdata
dim getname,geturl,getgif,getplace,getwin,getxslei,adsrs,adssql,getclass,getclicks,getshows,gettime,getintro,gethei,getwid
getname = Trim(Request("name"))
geturl = Trim(Request("url"))
getgif = Trim(Request("gif_url"))
getplace =trim(Request("place"))
getwin =trim(Request("window"))
getxslei = trim( Request( "xslei" ))
getclass=trim(Request("class"))
getintro=trim(Request("intro"))
getwid=trim(Request("wid"))
gethei=trim(Request("hei"))
if getxslei="txt" then
getwid=0
gethei=0
end if
if getclass=0 then
getclicks=0
getshows=0
gettime=now()
elseif getclass=1 then
getclicks=trim(request("clicks1"))
getshows=0
gettime=now()
elseif getclass=2 then
getclicks=0
getshows=trim(request("shows2"))
gettime=now()
elseif getclass=3 then
getclicks=0
getshows=0
gettime=trim(request("time3"))
elseif getclass=4 then
getclicks=trim(request("clicks4"))
getshows=trim(request("shows4"))
gettime=now()
elseif getclass=5 then
getclicks=trim(request("clicks5"))
getshows=0
gettime=trim(request("time5"))
elseif getclass=6 then
getclicks=0
getshows=trim(request("shows6"))
gettime=trim(request("time6"))
elseif getclass=7 then
getclicks=trim(request("clicks7"))
getshows=trim(request("shows7"))
gettime=trim(request("time7"))
end if
set adsrs=server.createobject("adodb.recordset")
if trim(request.querystring("id"))="" then '如果是新增廣告條
adssql="select * from ads"
adsrs.open adssql,adsconn,1,3
adsrs.AddNew
else '如果是修改廣告條
adssql="select * from ads where id="&int(request.querystring("id"))
adsrs.open adssql,adsconn,1,3
end if
adsrs("act") = 1
adsrs("sitename") = getname
adsrs("url") = geturl
adsrs("gif_url") = getgif
adsrs("place") = getplace
adsrs("xslei") = getxslei
adsrs("hei") = gethei
adsrs("wid") = getwid
adsrs("window") = getwin
adsrs("class") = getclass
adsrs("clicks") = getclicks
adsrs("shows") = getshows
adsrs("lasttime") = gettime
adsrs("regtime") = Now()
adsrs("time") = now()
adsrs("intro")=getintro
adsrs.update
adsrs.close
set adsrs=nothing
adsconn.close
set adsconn=nothing
response.redirect "?job=suc&id="&request.querystring("id")
end if
End Sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -