<%
CheckAdmin("AspCms_Apply.asp")
'定義類別ID，搜索關鍵詞，頁數，排序
dim sortType, keyword, page, psize, order, ordsc, sortid
sortType=getForm("sortType","get")
if isnul(sortType) then sortType=0
sortid=getForm("sortid","post")
if isnul(sortid) then sortid=getForm("sortid","get")
keyword=getForm("keyword","post")
if isnul(keyword) then keyword=getForm("keyword","get")
page=getForm("page","get")
psize=getForm("psize","get")
order=getForm("order","get")
ordsc=getForm("ordsc","get")
dim action : action=getForm("action","get")
select case action
case "edit" : editApply
case "del" : delApply
case "on" : onOff "on", "Apply", "ApplyID", "ApplyStatus", "", getPageName()&"?sortType="&sortType&"&sortid="&sortid&"&keyword="&keyword&"&page="&page&"&psize="&psize&"&order="&order&"&ordsc="&ordsc
case "off" : onOff "off", "Apply", "ApplyID", "ApplyStatus", "", getPageName()&"?sortType="&sortType&"&sortid="&sortid&"&keyword="&keyword&"&page="&page&"&psize="&psize&"&order="&order&"&ordsc="&ordsc
end select
dim ApplyID,ContentID,Jobs,Linkman,Gender,Age,Marriage,Education,RegResidence,EduResume,JobResume,Address,PostCode,phone,Mobile,Email,QQ,AddTime,ApplyStatus
Sub delApply
Dim id : id=getForm("id","both")
if isnul(id) then alertMsgAndGo "請選擇要刪除的內容","-1"
Conn.Exec "delete from {prefix}Apply where ApplyID in("&id&")","exe"
alertMsgAndGo "刪除成功","?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub getContent
dim id : id=getForm("id","get")
if not isnul(ID) then
conn.exec"update {prefix}Apply set ApplyStatus=1 Where ApplyID="&id,"exe"
Dim rs : Set rs = Conn.Exec("select * from {prefix}Apply where ApplyID="&ID,"r1")
if not rs.eof then
ApplyID=rs("ApplyID")
ContentID=rs("ContentID")
Jobs=rs("Jobs")
Linkman=rs("Linkman")
Gender=rs("Gender")
Age=rs("Age")
Marriage=rs("Marriage")
Education=rs("Education")
RegResidence=rs("RegResidence")
EduResume=rs("EduResume")
JobResume=rs("JobResume")
Address=rs("Address")
PostCode=rs("PostCode")
phone=rs("phone")
Mobile=rs("Mobile")
Email=rs("Email")
QQ=rs("QQ")
AddTime=rs("AddTime")
ApplyStatus=rs("ApplyStatus")
end if
else
alertMsgAndGo "沒有這條記錄","-1"
end if
End Sub
Sub editApply
ApplyID=getForm("ApplyID","post")
ContentID=filterPara(getForm("ContentID","post"))
Jobs=filterPara(getForm("Jobs","post"))
Linkman=filterPara(getForm("Linkman","post"))
Gender=filterPara(getForm("Gender","post"))
Age=filterPara(getForm("Age","post"))
Marriage=filterPara(getForm("Marriage","post"))
Education=filterPara(getForm("Education","post"))
RegResidence=filterPara(getForm("RegResidence","post"))
EduResume=filterPara(getForm("EduResume","post"))
JobResume=filterPara(getForm("JobResume","post"))
Address=filterPara(getForm("Address","post"))
PostCode=filterPara(getForm("PostCode","post"))
phone=filterPara(getForm("phone","post"))
Mobile=filterPara(getForm("Mobile","post"))
Email=filterPara(getForm("Email","post"))
QQ=filterPara(getForm("QQ","post"))
'AddTime=now()
'ApplyStatus=0
ApplyStatus=getCheck(getForm("ApplyStatus","post"))
conn.exec "update {prefix}Apply set Linkman='"&Linkman&"',Gender="&Gender&",Age="&Age&",Marriage='"&Marriage&"',RegResidence='"&RegResidence&"',JobResume='"&JobResume&"',Education='"&Education&"',EduResume='"&EduResume&"',Address='"&Address&"',PostCode='"&PostCode&"',phone='"&phone&"',Mobile='"&Mobile&"',Email='"&Email&"',QQ='"&QQ&"',ApplyStatus="&ApplyStatus&" where ApplyID="&ApplyID,"exe"
alertMsgAndGo "修改成功","AspCms_Apply.asp?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub ApplyList
dim datalistObj,rsArray
dim m,i,ApplyStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage,searchStr
numPerPage=10
ApplyStr= " order by ApplyID desc"
if isNul(page) then page=1 else page=clng(page)
if page=0 then page=1
whereStr=" where 1=1 "
if not isNul(SortID) then whereStr=whereStr
if not isNul(keyword) then
whereStr = whereStr&" and Linkman like '%"&keyword&"%' or Phone like '%"&keyword&"%' or Mobile like '%"&keyword&"%'"
end if
sqlStr = "select ApplyID,ContentID,Jobs ,Linkman,Gender,Age,Marriage,RegResidence,EduResume,JobResume,Address,PostCode,phone,Mobile,Email,QQ,AddTime,ApplyStatus from {prefix}Apply "&whereStr&ApplyStr
set rsObj = conn.Exec(sqlStr,"r1")
rsObj.pagesize = numPerPage
allRecordset = rsObj.recordcount : allPage= rsObj.pagecount
if page>allPage then page=allPage
if allRecordset=0 then
if not isNul(keyword) then
echo "
關鍵字 """&keyword&""" 沒有記錄
"
else
echo "
還沒有記錄!
"
end if
else
rsObj.absolutepage = page
for i = 1 to numPerPage
echo "