%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim class_id,class_name,class_dis,class_parent,class_parent_url,job_id
job_id=Trim(ReplaceBadWord(Request.QueryString("job_id")))
if IsInteger(job_id) then
response.redirect("JobShow.asp?job_id="&job_id)
response.end()
end if
class_id=Trim(ReplaceBadWord(Request.QueryString("class_id")))
if not IsInteger(class_id) then
class_id=61
else
class_id=cLng(class_id)
end if
zhang="select [DirID],[DirName],[DirDis] from [MyDir] where DirID="&class_id
set jun=server.createobject("adodb.recordset")
jun.open zhang,conn,1,1
If jun.eof and jun.bof Then
jun.close
Set jun=Nothing
Call CDB()
response.write("Parameter Error !")
response.end()
Else
class_name=jun("DirName")
class_dis=jun("DirDis")
End If
jun.close
Set jun=Nothing
zhang="select [DirID],[DirName],[DirUrl] from [MyDir] where DirID="&class_dis
set jun=server.createobject("adodb.recordset")
jun.open zhang,conn,1,1
If jun.eof and jun.bof Then
jun.close
Set jun=Nothing
Call CDB()
response.write("Parameter Error !")
response.end()
Else
class_parent=jun("DirName")
class_parent_url=jun("DirUrl")
End If
jun.close
Set jun=Nothing
WebTitle=class_name&" - "&class_parent&" - "&ComName '网页标题
webNavi = class_parent&" >> "&class_name
WebKeywords=ComName&","&class_parent&","&class_name '网页关键词
WebDesc=ComEmail&","&ComTel&","&ComAdd&","&ComMain'网页描述
WebBottomCode="" '网页底部加载的代码
Call WebHead() '加载网页顶部
%>