?? aa_work.asp
字號:
"<TD CLASS=Table15>" & Rs_edit("Work_Content") & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30>添加人：" & Rs_edit("Work_Add") & " 添加時間：" & Rs_edit("Work_Date") & " 瀏覽次數：" & Rs_edit("Work_Count") & " 屬性：" & TitleIndex & "</TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Aa_Work.asp?Action=Add>添加常見問題</A> 』『 <A HREF=Aa_Work.asp?Action=Edit&Id=" & Rs_edit("Work_Id") & ">修改</A> 』『 <A HREF=Aa_Work.asp?Action=Flag&Id=" & Rs_edit("Work_Id") & ">" & TitleFlag & "</A> 』『 <a onclick='{if(confirm(" & CHR(34) & "刪除后將無法恢復，您真的要刪除么？" & CHR(34) & ")){return true;}return false;}' href=Aa_Work.asp?Action=Del&Id=" & Rs_edit("Work_Id") & ">刪除</A> 』『 <A HREF=Aa_Work.asp?Action=Manage>常見問題列表</A> 』</TD>"&_
"</TR>"&_
"</TABLE>"
Rs_edit.Close
set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "sAdd"
IF Request.form("Work_Name")="" THEN
Errorst="請輸入常見問題名稱！"
founderr=True
ElseIF Request.form("Content")="" THEN
Errorst="請選輸入常見問題內容！"
founderr=True
ElseIF Request.form("Work_Count")="" THEN
Errorst="請選輸入瀏覽次數！"
founderr=True
ElseIF not isnumeric(Request.form("Work_Count")) THEN
Errorst="錯誤的參數（瀏覽次數請輸入數字）！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
ContentFile=Replace(Request.form("PicUrl"),"../","")
ContentFile=split(ContentFile,"|")
For intTemp=0 to ubound(ContentFile)
IF instr(Request.form("Content"),ContentFile(intTemp)) and ContentFile(intTemp)<>"" THEN
UploadFile=ContentFile(intTemp) & "|" & UploadFile
End IF
next
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From FQA"
Rs.open Sql,Conn,1,3
Rs.addnew
Rs("Work_Title")=Request.form("Work_Name")
Rs("Work_Content")=replace(Request.form("Content"),replace(ToHistorys,"Aa_Work.asp",""),"")
Rs("Work_Count")=Request.form("Work_Count")
Rs("Work_Flag")=Request.form("Work_Flag")
Rs("UploadFiles")=UploadFile
IF Request.form("Work_Index")=1 THEN
Rs("Work_Index")=1
Else
Rs("Work_Index")=0
End IF
Rs("Work_Date")=Now()
Rs("Work_Add")=session("Loginadmin")
Rs.update
session("Content")=""
ToHistory="Aa_Work.asp?Action=S&Id=" & Rs("Work_Id")
Rs.Close
set Rs=Nothing
saveok="常見問題：[ " & Request.form("Work_Name") & " ] 添加成功！"
Call Form_Saveok()
End IF
Case "sEdit"
IF Request.form("Work_Name")="" THEN
Errorst="請輸入案例名稱！"
founderr=True
ElseIF Request.form("Content")="" THEN
Errorst="請選輸入案例內容！"
founderr=True
ElseIF Request.form("Work_Count")="" THEN
Errorst="請選輸入瀏覽次數！"
founderr=True
ElseIF not isnumeric(Request.form("Work_Count")) THEN
Errorst="錯誤的參數（瀏覽次數請輸入數字）！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From FQA Where Work_Id=" & Id
Rs.open Sql,Conn,1,1
ContentFile=Rs("UploadFiles")
Rs.Close
set Rs=Nothing
ContentFile=Replace(Request.form("PicUrl"),"../","") & ContentFile
ContentFile=split(ContentFile,"|")
For intTemp=0 to ubound(ContentFile)
IF instr(Request.form("Content"),ContentFile(intTemp)) and ContentFile(intTemp)<>"" THEN
UploadFile=ContentFile(intTemp) & "|" & UploadFile
End IF
Next
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From FQA where Work_Id=" & Id
Rs.open Sql,Conn,1,3
Rs("Work_Title")=Request.form("Work_Name")
Rs("Work_Content")=replace(Request.form("Content"),replace(ToHistorys,"Aa_Work.asp",""),"")
Rs("Work_Count")=Request.form("Work_Count")
Rs("Work_Flag")=Request.form("Work_Flag")
Rs("UploadFiles")=UploadFile
IF Request.form("Work_Index")=1 THEN
Rs("Work_Index")=1
Else
Rs("Work_Index")=0
End IF
IF Request.form("NewTime")=1 THEN
Rs("Work_Date")=Now()
End IF
Rs.update
session("Content")=""
Rs.Close
set Rs=Nothing
ToHistory="Aa_Work.asp?Action=Edit&Id=" & Id
saveok="常見問題：[ " & Request.form("Work_Name") & " ] 修改成功！"
Call Form_Saveok()
End IF
Case "Del"
Conn.Execute "Delete From FQA Where Work_Id=" & Id
ToHistory="Aa_Work.asp?Action=Manage"
saveok="刪除成功！"
Call Form_Saveok()
Case "Flag"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From FQA where Work_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Work_Flag")=1 THEN
Rs("Work_Flag")=0
saveok="常見問題：[ " & Rs("Work_Title") & " ] 已取消審核！"
Else
Rs("Work_Flag")=1
saveok="常見問題：[ " & Rs("Work_Title") & " ] 已通過審核！"
End IF
Rs.update
Rs.Close
set Rs=Nothing
ToHistory=VisitorsForm
Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="請選擇要刪除的對象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "Delete From FQA Where Work_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="刪除成功！"
Call Form_Saveok()
End IF
Case "Work_Index"
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From FQA Where Work_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Work_Index")=1 Then
Rs("Work_Index")=0
saveok="常見問題：" & Rs("Work_Title") & " 已取消在首頁顯示！"
Else
Rs("Work_Index")=1
saveok="常見問題：" & Rs("Work_Title") & " 已在首頁顯示！"
End IF
Rs.upDate
Rs.Close
set Rs=Nothing
ToHistory=VisitorsForm
Call Form_Saveok()
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="請選擇要審核的對象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate FQA set Work_Flag=1 Where Work_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已通過審核！"
Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="請選擇要取消審核的對象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate FQA set Work_Flag=0 Where Work_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已取消審核！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -