<%
CheckAdmin("AspCms_Key.asp")
dim action : action=getForm("action", "get")
dim LinkType,LinkText,LinkDesc,ImageURL,LinkOrder,LinkStatus,LinkURL,ID,color
Select case action
case "del" : delLinks
case "add" : addLinks
case "edit" : editLinks
case "on" : onOff "on", "KeySetting", "ID", "KStatus", "", getPageName()
case "off" : onOff "off", "KeySetting", "ID", "KStatus", "", getPageName()
End Select
Sub getContent
ID = getForm("id","get")
Dim rsObj : Set rsObj=Conn.Exec("select Color,Keywords,Url,OrderNum,KStatus,AddTime,EditTime from {prefix}KeySetting where ID="&ID,"r1")
if isnul(ID) then alertMsgAndGo "ID不能為空","-1"
color=rsObj(0)
LinkText=rsObj(1)
LinkURL=rsObj(2)
LinkOrder=rsObj(3)
LinkStatus=rsObj(4)
rsObj.close : Set rsObj = nothing
End Sub
Sub editLinks
ID=getForm("LinkID","post")
color=getForm("color","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")
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
'die "update {prefix}KeySetting set color="&color&",Keywords='"&LinkText&"',OrderNum="&LinkOrder&",KStatus="&LinkStatus&",Url='"&LinkURL&"' where ID="&ID
conn.Exec "update {prefix}KeySetting set color='"&color&"',Keywords='"&LinkText&"',OrderNum="&LinkOrder&",KStatus="&LinkStatus&",Url='"&LinkURL&"' where ID="&ID,"exe"
alertMsgAndGo "修改成功","AspCms_Key.asp"
End Sub
Sub addLinks
color=getForm("color","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")
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}KeySetting(Color,Keywords,Url,OrderNum,KStatus,AddTime,EditTime) values('"&color&"','"&LinkText&"','"&LinkUrl&"','"&LinkOrder&"','"&LinkStatus&"','"&now()&"','"&now()&"')","exe"
alertMsgAndGo "添加成功","AspCms_Key.asp"
End Sub
Sub KeyList
Dim rsObj : Set rsObj=conn.Exec("select Id, Keywords,Url,Color,OrderNum,KStatus,AddTime,EditTime from {prefix}KeySetting Order by OrderNum Asc,Id","r1")
If rsObj.Eof Then
echo"
"&vbcrlf& _
"
沒有數據
"&vbcrlf& _
"
"&vbcrlf
Else
Do while not rsObj.Eof
Dim linkDisplay,linktype
echo"
"&vbcrlf
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}KeySetting where ID in("&id&")" ,"exe"
' alertMsgAndGo "刪除成功","AspCms_Key.asp"
response.Redirect("AspCms_Key.asp")
End Sub
%>