<%
CheckAdmin("AspCms_Links.asp")
dim action : action=getForm("action", "get")
dim LinkType,LinkText,LinkDesc,ImageURL,LinkOrder,LinkStatus,LinkURL,ID,Linkgroup
Select case action
case "del" : delLinks
case "add" : addLinks
case "edit" : editLinks
case "on" : onOff "on", "Links", "LinkID", "LinkStatus", "", getPageName()
case "off" : onOff "off", "Links", "LinkID", "LinkStatus", "", getPageName()
case "ugroup" : updategroup
End Select
Sub getContent
ID = getForm("id","get")
Dim rsObj : Set rsObj=Conn.Exec("select LinkType,LinkText,LinkDesc,ImageURL,LinkOrder,LinkStatus,LinkURL,Linkgroup from {prefix}Links where LinkID="&ID,"r1")
if isnul(ID) then alertMsgAndGo "ID不能為空","-1"
LinkType=rsObj(0)
LinkText=rsObj(1)
LinkDesc=rsObj(2)
ImageURL=rsObj(3)
LinkOrder=rsObj(4)
LinkStatus=rsObj(5)
LinkURL=rsObj(6)
Linkgroup=rsObj(7)
rsObj.close : Set rsObj = nothing
End Sub
Sub editLinks
ID=getForm("LinkID","post")
LinkType=getForm("LinkType","post")
LinkText=getForm("LinkText","post")
LinkDesc=getForm("LinkDesc","post")
ImageURL =getForm("ImageURL","post")
LinkOrder=getForm("LinkOrder","post")
LinkStatus=getCheck(getForm("LinkStatus","post"))
LinkURL=getForm("LinkURL","post")
Linkgroup=getForm("Linkgroup","post")
if isnul(LinkText) then alertMsgAndGo "網站名稱不能為空","-1"
if isnul(LinkURL) then alertMsgAndGo "鏈接地址不能為空","-1"
if not isurl(LinkURL) then alertMsgAndGo "鏈接地址不正確","-1"
if isnul(LinkStatus) then LinkStatus=0
conn.Exec "update {prefix}Links set LinkType="&LinkType&",LinkText='"&LinkText&"',LinkDesc='"&LinkDesc&"',ImageURL='"&ImageURL&"',LinkOrder="&LinkOrder&",LinkStatus="&LinkStatus&",LinkURL='"&LinkURL&"',Linkgroup="&Linkgroup&" where LinkID="&ID,"exe"
alertMsgAndGo "修改成功","AspCms_Links.asp"
End Sub
Sub addLinks
LinkType=getForm("LinkType","post")
LinkText=getForm("LinkText","post")
LinkDesc=getForm("LinkDesc","post")
ImageURL =getForm("ImageURL","post")
LinkOrder=getForm("LinkOrder","post")
LinkStatus=getCheck(getForm("LinkStatus","post"))
LinkURL=getForm("LinkURL","post")
Linkgroup=getForm("Linkgroup","post")
if isnul(LinkText) then alertMsgAndGo "網站名稱不能為空","-1"
if isnul(LinkURL) then alertMsgAndGo "鏈接地址不能為空","-1"
if not isurl(LinkURL) then alertMsgAndGo "鏈接地址不正確","-1"
'if LinkType and isnul(ImageURL) then alertMsgAndGo "圖片地址不能為空","-1"
conn.Exec "insert into {prefix}Links(LinkType,LinkText,LinkDesc,ImageURL,LinkOrder,LinkStatus,LinkURL,Linkgroup) values('"&LinkType&"','"&LinkText&"','"&LinkDesc&"','"&ImageURL&"','"&LinkOrder&"','"&LinkStatus&"','"&LinkURL&"',"&Linkgroup&")","exe"
alertMsgAndGo "添加成功","AspCms_Links.asp"
End Sub
Sub linksList
Dim rsObj : Set rsObj=conn.Exec("select LinkID,LinkText,LinkURL,ImageURL,LinkOrder,LinkStatus,LinkType,Linkgroup from {prefix}Links Order by LinkOrder Asc,LinkID","r1")
If rsObj.Eof Then
echo"
"&vbcrlf& _
"
沒有數據
"&vbcrlf& _
"
"&vbcrlf
Else
dim i
i=0
Do while not rsObj.Eof
Dim linkDisplay,linktype
if rsObj(6) ="0" then linkDisplay=rsObj(1) : linktype ="文字鏈接"
if rsObj(6) ="1" then linkDisplay="" : linktype ="圖片鏈接"
echo"
"&vbcrlf& _
"
"&vbcrlf& _
"
"&rsObj(0)&"
"&vbcrlf& _
"
"&linkDisplay&"
"&vbcrlf& _
"
"&rsObj(2)&"
"&vbcrlf& _
"
"&rsObj(4)&"
"&vbcrlf& _
"
"&linktype&"
"&vbcrlf& _
"
"
if rsObj(7)=1 then echo "1" else echo "1"
if rsObj(7)=2 then echo "2" else echo "2"
if rsObj(7)=3 then echo "3" else echo "3"
echo "
"&vbcrlf
i=i+1
rsObj.MoveNext
Loop
End If
rsObj.close : Set rsObj = nothing
End Sub
Sub delLinks
id=getForm("id","both")
if isnul(id) then alertMsgAndGo "請選擇要刪除的內容","-1"
conn.Exec "delete from {prefix}Links where LinkID in("&id&")" ,"exe"
' alertMsgAndGo "刪除成功","AspCms_Links.asp"
response.Redirect("AspCms_Links.asp")
End Sub
Sub updategroup
Dim ids : ids=split(getForm("lid","post"),",")
Dim Linkgroups
If Ubound(ids)=-1 Then '防止有值為空時下標越界
ReDim ids(0)
ids(0)=""
End If
Dim i
For i=0 To Ubound(ids)
Linkgroups=getForm("Linkgroup"&i,"post")
if isnum(trim(Linkgroups)) then
Conn.Exec "update {prefix}links Set LinkGroup="&trim(Linkgroups)&" Where linkID="&trim(ids(i)),"exe"
else
Conn.Exec "update {prefix}links Set LinkGroup=0 Where linkID="&trim(ids(i)),"exe"
end if
Next
alertMsgAndGo "更新組成功",getPageName()
End Sub
%>