www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > common/syscode.asp

    <% 
Dim iseng,t_para,t_nocontent,t_detailcontent,t_author,t_from,t_time
Dim t_prev,t_next,t_home,t_cpjs,t_allpro,t_newpro,t_recommpro,t_hotpro,t_tjpro,cnkpinglun
Dim t_xgdl,t_xgnews
If ThisLang=0 Then
t_para="无效的参数"
t_nocontent="不存在的内容"
t_detailcontent="正文内容"
t_author="作者："
t_from="来源："
t_time="时间："
t_prev="上一篇："
t_next="下一篇："
t_home="首页"
t_cpjs="产品介绍"
t_allpro="所有产品"
t_newpro="最新产品"
t_recommpro="推荐产品"
t_hotpro="热门产品"
t_tjpro="特价产品"
cnkpinglun="评论"
t_xgdl="相关下载"
t_xgnews="相关新闻"
Else
iseng="_en"
t_para="Invalid parameter"
t_nocontent="no content"
t_detailcontent="content"
t_author="Author："
t_from="from："
t_time="Date:"
t_prev="Previous："
t_next="Next："
t_home="Home"
t_cpjs="Products"
t_allpro="All Products"
t_newpro="New Products"
t_recommpro="Recommend Products"
t_hotpro="Hot Products"
t_tjpro="Discount"
cnkpinglun="Comment"
t_xgdl="Download for this Product"
t_xgnews="News for this Product"
End If


'Sys Para
Dim ModuleType,id
id=Request("id")
if id<>"" then Call IsNum(id)
ModuleType=Request("ModuleType")
if ChannelID<>"" then
	Call IsNum(ChannelID)
else
	Response.Write(t_para)
	Response.End()
end if
if ModuleType<>"" then
	Call IsNum(ModuleType)
else
	ModuleType=GetChannelContent(ChannelID,"ModuleType")
end if

Call UserChannelRight(username,ChannelID,ThisLang)

Dim thisTitle,thisKeywords,thisDescription,thisPageNav,thisPageTitle
Dim detail,Content,action
thisTitle=GetChannelContent(ChannelID,"ChannelName"&iseng)
thisKeywords=GetChannelContent(ChannelID,"ChannelKeywords"&iseng)
thisDescription=GetChannelContent(ChannelID,"ChannelDescription"&iseng)
thisPageNav=GetChannelNav(ChannelID,ThisLang)
thisPageTitle=thisTitle
action=Trim(Request("action"))

Dim fdbTitle,fdbContent,imagename,ChannelContent

Select Case ModuleType
Case 1
	ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
	if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
	content=content&GetContent(ChannelID,ThisLang)
	if GetChannelContent(ChannelID,"isShowComment")=1 then Content=Content&GetComment(ChannelID,0,10,ThisLang)
Case 2
	if id="" then
	ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
	if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
	Content=Content&GetArticleList(ChannelID,GetChannelContent(ChannelID,"ListDisplayType"),ThisLang)
	else
		Dim author,fromwhere,PageKeywords,PageDescription,outlink,initime
		rs.open "select * from cnk_Article where id="&id,conn,1,1
		if rs.recordcount=0 then call alertmsg(t_nocontent)
		Call UserPageRight(username,rs("ReadRight"),ThisLang)
		fdbTitle=rs("title")
		outlink=rs("outlink")
		fdbContent=rs("content")
		if rs("imagename")<>"" then imagename=GetImgURL(rs("imagename"))
		if imagename="http://" then imagename=""
		author=rs("author")
		fromwhere=rs("fromwhere")
		PageKeywords=rs("Keywords")
		PageDescription=rs("Description")
		initime=zhuan_date(rs("initime"))
		ChannelID=rs("ChannelID")
		rs.close
		if outlink<>"" and not isnull(outlink) then Response.Redirect(outlink)
		thisTitle=fdbTitle&"_"&thisTitle
		thisKeywords=fdbtitle&" "&PageKeywords
		thisDescription=fdbtitle&" "&PageDescription
		detail=" -&gt; "&t_detailcontent
		Content="<div class=""articletitle"">"&fdbTitle&"</div>"&vbcrlf
		Content=Content&"<div class=""articleauthor"">"&t_author&author&"  &nbsp; &nbsp;  "&t_from&fromwhere&" &nbsp; &nbsp; "&t_time&initime&"</div>"&vbcrlf
		Content=Content&"<div class=""articlecontent"">"
		if imagename<>"" then Content=Content&"<p align=""center""><img src="""&imagename&""" border=""0"" /></p>"&vbcrlf
		Content=Content&contentpage(contentfile&"?ModuleType=2&ChannelID="&ChannelID&"&id="&id,fdbcontent,ThisLang)
		Content=Content&"</div>"&vbcrlf
		if GetChannelContent(ChannelID,"isShowComment")=1 then Content=Content&GetComment(ChannelID,id,10,ThisLang)
		Content=Content&"    <ul>"&vbcrlf
		Content=Content&"      <li>"&t_prev&ProvNext(ChannelID,id,0,ThisLang)&"</li>"&vbcrlf
		Content=Content&"	  <li>"&t_next&ProvNext(ChannelID,id,1,ThisLang)&"</li>"&vbcrlf
		Content=Content&"    </ul>"&vbcrlf
	end if
Case 3
	Dim disproclass
	disproclass=Trim(Request.QueryString("disproclass"))
	
	If id="" Then
	classid=Trim(Request.QueryString("classid"))
	if classid<>"" then
		call IsNum(classid)
		thisPageNav=GetClassNav(classid,ThisLang)
		thisPageTitle=Getclassname(classid,"classname"&iseng)
		thisTitle=Getclassname(classid,"classname"&iseng)&"_"&thisTitle
	else
		thisPageNav="<a href=""index.asp"">"&t_home&"</a> -&gt; <a href="""&contentfile&"?ModuleType=3&ChannelID=3"">"&t_cpjs&"</a>"
		thisTitle=t_allpro&"_"&thisTitle
	end if

	Dim prosort
	prosort=Trim(Request.QueryString("sort"))
	Select Case prosort 
	Case "new"
		thisTitle=t_newpro&"_"&thisTitle
		thisPageNav=thisPageNav&" -&gt; "&t_newpro
	Case "recomm"
		thisTitle=t_recommpro&"_"&thisTitle
		thisPageNav=thisPageNav&" -&gt; "&t_recommpro
	Case "hot"
		thisTitle=t_hotpro&"_"&thisTitle
		thisPageNav=thisPageNav&" -&gt; "&t_hotpro
	Case "tejia"
		thisTitle=t_tjpro&"特价产品_"&thisTitle
		thisPageNav=thisPageNav&" -&gt; "&t_tjpro
	End Select
	if disproclass<>"" then
	Content=Get2Class(10,ThisLang)
	else
	ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
	if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
	Content=Content&GetProductList(classid,20,GetChannelContent(ChannelID,"ListDisplayType"),ThisLang)
	end if
	Else
		Dim product_name
		product_name=GetProductItem(id,"product_name"&iseng)
		thisTitle=product_name&"_"&thisTitle
		thisKeywords=GetProductItem(id,"keywords"&iseng)
		thisDescription=GetProductItem(id,"Description"&iseng)
		thisPageNav="<a href=""index.asp"">"&t_home&"</a> -&gt; <a href="""&contentfile&"?ModuleType=3&ChannelID=3"">"&t_cpjs&"</a>  -&gt; "&product_name
		Content=GetProductContent(id,ThisLang)
		
		rs.open "select cnk_pnd.did,cnk_download.title,cnk_download.ChannelID from cnk_pnd,cnk_download where cnk_pnd.did=cnk_download.id and cnk_pnd.pid="&id,conn,1,1
		if rs.recordcount>0 then
		Content=Content&"    <div class=""cnkbox""><strong>"&t_xgdl&":</strong>"&vbcrlf
		Content=Content&"    <ul>"&vbcrlf
		do while not rs.eof
		Content=Content&"     <li><a href="""&contentfile&"?ModuleType=5&ChannelID="&rs(2)&"&id="&rs(0)&""" target=""_blank"">"&rs(1)&"</a></li> "&vbcrlf
		rs.movenext
		loop
		Content=Content&"    </ul>"&vbcrlf
		Content=Content&"    </div>"&vbcrlf
		end if
		rs.close
		
		rs.open "select * from cnk_pna where Lang="&ThisLang&" and pid="&id,conn,1,1
		if rs.recordcount>0 then
		Content=Content&"    <div class=""cnkbox""><strong>"&t_xgnews&":</strong>"&vbcrlf
		Content=Content&"    <ul>"&vbcrlf
		do while not rs.eof
		Content=Content&"     <li><a href="""&rs("url")&""" target=""_blank"">"&rs("title")&"</a></li> "&vbcrlf
		rs.movenext
		loop
		Content=Content&"    </ul>"&vbcrlf
		Content=Content&"    </div>"&vbcrlf
		end if
		rs.close
		
		if GetChannelContent(3,"isShowComment")=1 then Content=Content&GetComment(3,id,10,ThisLang)
		Content=Content&"    <div class=""cnkbox"">"&vbcrlf
		Content=Content&"    <ul>"&vbcrlf
		Content=Content&"      <li>"&t_prev&ProvNext(ChannelID,id,0,ThisLang)&"</li>"&vbcrlf
		Content=Content&"	  <li>"&t_next&ProvNext(ChannelID,id,1,ThisLang)&"</li>"&vbcrlf
		Content=Content&"    </ul>"&vbcrlf
		Content=Content&"    </div>"&vbcrlf
	End If
Case 4
	if id="" then
	ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
	if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
	Content=Content&GetImageList(ChannelID,13,GetChannelContent(ChannelID,"ListDisplayType"),ThisLang)
	else
		Dim LargeImage
		rs.open "select ChannelID,imagename,LargeImage,title"&iseng&",content"&iseng&",ReadRight from cnk_Images where id="&id,conn,1,1
		if rs.recordcount=0 then call alertmsg(t_nocontent)
		Call UserPageRight(username,rs(5),ThisLang)
		ChannelID=rs(0)
		imagename=rs(1)
		LargeImage=rs(2)
		fdbTitle=rs(3)
		fdbContent=rs(4)
		rs.close
		thisTitle=fdbTitle&"_"&thisTitle
		thisKeywords=fdbTitle&" "&PageKeywords
		thisDescription=fdbTitle&" "&PageDescription
		Content="<div class=""articletitle"">"&fdbTitle&"</div>"&vbcrlf
		if LargeImage<>"" and not isnull(LargeImage) then Content=Content&"<p align=""center""><img src="""&GetImgURL(LargeImage)&""" /></p>"
		Content=Content&"    <p align=""left"">"&fdbContent&"</p>"&vbcrlf
		if GetChannelContent(ChannelID,"isShowComment")=1 then Content=Content&GetComment(ChannelID,id,10,ThisLang)
		Content=Content&"    <ul>"&vbcrlf
		Content=Content&"      <li>"&t_prev&ProvNext(ChannelID,id,0,ThisLang)&"</li>"&vbcrlf
		Content=Content&"	  <li>"&t_next&ProvNext(ChannelID,id,1,ThisLang)&"</li>"&vbcrlf
		Content=Content&"    </ul>"&vbcrlf
	end if
Case 5
	if id="" then
		ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
		if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
		Content=Content&GetDownloadList(ChannelID,GetChannelContent(ChannelID,"ListDisplayType"),ThisLang)
	else
		dim t_fsize,t_ftype,t_os,t_hits,t_update,t_dln,t_dl,t_aboutpr
		if ThisLang=0 then
		t_fsize="文件大小:"
		t_ftype="文件类型:"
		t_os="运行平台:"
		t_hits="点击次数:"
		t_update="更新时间:"
		t_dln="下载次数:"
		t_dl="下载："
		t_aboutpr="本下载相关产品"
		else
		t_fsize="Size:"
		t_ftype="Type:"
		t_os="OS:"
		t_hits="Hits:"
		t_update="Update:"
		t_dln="Download:"
		t_dl="Download："
		t_aboutpr="Correlation Products"
		end if
		conn.execute("update cnk_download set hits=hits+1 where id="&id)
		Dim filename,filesize,filetype,OS,dlnum,hits,updatetime
		rs.open "select * from cnk_download where id="&id,conn,1,1
		if rs.recordcount=0 then call alertmsg(t_nocontent)
		fdbTitle=rs("title")
		fdbContent=rs("content")
		filename=rs("filename")
		filetype=rs("filetype")
		filesize=rs("filesize")
		filetype=rs("filetype")
		OS=rs("OS")
		dlnum=rs("dlnum")

		hits=rs("hits")
		content=CnkUBBContent(rs("content"))
		PageKeywords=rs("Keywords")
		PageDescription=rs("Description")
		updatetime=zhuan_date(rs("updatetime"))
		rs.close
		
		thisTitle=fdbTitle&"_"&thisTitle
		thisKeywords=fdbTitle&" "&PageKeywords
		thisDescription=fdbTitle&" "&PageDescription
		thisPageTitle=fdbTitle
		Content="<div class=""cnkbox"">"&vbcrlf
		Content=Content&"<div class=""boxtitle"">"&fdbtitle&"</div>"&vbcrlf
		Content=Content&"<div class=""shortinfo""><strong>"&t_fsize&"</strong> "&filesize&"</div>"&vbcrlf
		Content=Content&"<div class=""shortinfo""><strong>"&t_ftype&"</strong> "&filetype&"</div>"&vbcrlf
		Content=Content&"<div class=""shortinfo""><strong>"&t_os&"</strong> "&OS&"</div>"&vbcrlf
		Content=Content&"<div class=""shortinfo""><strong>"&t_hits&"</strong> "&hits&"</div>"&vbcrlf
	  	Content=Content&"<div class=""shortinfo""><strong>"&t_update&"</strong> "&updatetime&"</div>"&vbcrlf
		Content=Content&"<div class=""shortinfo""><strong>"&t_dln&"</strong> "&dlnum&"</div>"&vbcrlf
	  	Content=Content&clearboth&vbcrlf
		Content=Content&"<div class=""content"">"& fdbcontent &"<br /><br />"&vbcrlf
		Content=Content&"<a href=""dl.asp?id="& id &""">"&t_dl&"<img src="""&UpDir&"images/dl.gif"" border=""0"" /></a><br />"&vbcrlf
		Content=Content&"</div>"&vbcrlf
		Content=Content&"</div>"&vbcrlf
		rs.open "select cnk_pnd.pid,cnk_products.product_name"&iseng&" from cnk_pnd,cnk_products where cnk_pnd.pid=cnk_products.id and cnk_pnd.did="&id,conn,1,1
		if rs.recordcount>0 then
		Content=Content&"<div class=""cnkbox"">"&vbcrlf
		Content=Content&"<div class=""boxtitle"">"&t_aboutpr&"</div>"&vbcrlf
		Content=Content&"<ul>"&vbcrlf
		do while not rs.eof
		Content=Content&"<li><a href="""&contentfile&"?ModuleType=3&ChannelID=3&id="&rs(0)&""" target=""_blank"">"&rs(1)&"</a></li>"&vbcrlf
		rs.movenext
		loop
		rs.close
		Content=Content&"</ul>"&vbcrlf
		Content=Content&"</div>"&vbcrlf
		end if
		if GetChannelContent(ChannelID,"isShowComment")=1 then Content=Content&GetComment(ChannelID,id,10,ThisLang)
	end if
Case 6
	if id="" then
	Select Case action
	Case "" 
		ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
		if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
		Content=Content&GetGuestbook(ChannelID,GetChannelContent(ChannelID,"ListDisplayType"),ThisLang)
	Case "savenew" call saveguestbook()
	Case "writegb"
    	Content=guestbookform(ChannelID,ThisLang)
	End Select
	else
		dim lydetail,lyname,lydw,lyleibie,lymail,lytel,lyurl,lyqq,lyarea,lytime,lyisqqh,lyqqh,lyreply,lywait
		if ThisLang=0 then
		lydetail="留言详细内容"
		lyname="尊姓大名: "
		lydw="单位名称: "
		lyleibie="留言类别: "
		lymail="电子邮件: "
		lytel="电话号码: "
		lyurl="网站地址: "
		lyqq="即时通讯: "
		lyarea="来自地区: "
		lytime="留言时间: "
		lyisqqh="这是悄悄话, 仅管理员能看到"
		lyqqh=" 悄悄话: "
		lyreply="本站回复"
		lywait="等待回复..."
		else
		lydetail="Detail: "
		lyname="Name: "
		lydw="Company: "
		lyleibie="Type: "
		lymail="E-mail: "
		lytel="Telephone: "
		lyurl="Web site: "
		lyqq="IM: "
		lyarea="From: "
		lytime="Date: "
		lyisqqh="private: "
		lyqqh="private: "
		lyreply="Reply: "
		lywait="Waiting..."
		end if
		Dim lytype,contactname,title,company,email,url,qq,tel,area,ly,re,show,lyinitime
		rs.open "select * from cnk_guestbook where ispass=1 and id="&id,conn,1,1
		if rs.recordcount=0 then call alertmsg(t_nocontent)
		lytype=rs("lytype")
		contactname=rs("contactname")
		title=rs("title")
		company=rs("company")
		email=rs("email")
		url=rs("url")
		qq=rs("qq")
		tel=rs("tel")
		area=rs("area")
		if not isnull(rs("ly")) then ly=CnkUBBContent(rs("ly"))
		if not isnull(rs("re")) then re=CnkUBBContent(rs("re"))
		show=rs("show")
		lyinitime=zhuan_time(rs("initime"))
		rs.close
		
		detail=" -&gt; "&lydetail
		content=content&"<div class=""cnkbox"">"&vbcrlf
		content=content&"<div class=""boxtitle"">"&title&"</div>"&vbcrlf
	 	content=content&"<div class=""shortinfo"">"&lyname&contactname&"</div>"&vbcrlf
		content=content&"<div class=""shortinfo"">"&lydw&company&"</div>"&vbcrlf
		content=content&"<div class=""shortinfo"">"&lyleibie&lytype&"</div>"&vbcrlf
		content=content&"<div class=""shortinfo"">"&lymail&email&"</div>"&vbcrlf
		content=content&"<div class=""shortinfo"">"&lytel&tel&"</div>"&vbcrlf
		content=content&"<div class=""shortinfo"">"&lyurl&url&"</div>"&vbcrlf
		content=content&"<div class=""shortinfo"">"&lyqq&qq&"</div>"&vbcrlf
		content=content&"<div class=""shortinfo"">"&lyarea&area&"</div>"&vbcrlf
		content=content&"<div class=""shortinfo"">"&lytime&initime&"</div>"&vbcrlf
		content=content&"<div class=""clearboth""></div>"&vbcrlf
		content=content&"<div class=""content"">"&vbcrlf
		if show=0 and session("admin")="" then
			content=content&"<p align=""center"">"&lyisqqh&"</p>"&vbcrlf
		else
			if show=0 then
				content=content&"<span class=""bluefont"">"&lyqqh&"</span><br />"&vbcrlf
			end if
			content=content&ly
		end if
		content=content&"</div>"&vbcrlf
		content=content&"</div>"&vbcrlf
		content=content&"<div class=""cnkbox"">"&vbcrlf
		content=content&"<div class=""boxtitle"">"&lyreply&"</div>"&vbcrlf
		content=content&"<div class=""content"">"&vbcrlf
		if re="" then content=content&lywait else content=content&re
		content=content&"</div>"&vbcrlf
		content=content&"</div>"&vbcrlf
		if GetChannelContent(ChannelID,"isShowComment")=1 then Content=Content&GetComment(ChannelID,id,10,ThisLang)
	end if
Case 7
	if id="" then
		ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
	if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
		Content=content&GetHrList(ChannelID,GetChannelContent(ChannelID,"ListDisplayType"),ThisLang)
	else
		if action="savenew" then call saveResumes()
		if Trim(Request.QueryString("hrrequest"))="yes" then
			dim hrsq,zhiwei
			if ThisLang=0 then
				hrsq="申请 "
				zhiwei=" 职位"
			else
				hrsq="Request "
				zhiwei=" Position"
			end if
			if action="savenew" then call saveResumes()
			Dim p
			p=Trim(Request.QueryString("p"))
			thisTitle=hrsq&p&zhiwei&"_"&thisTitle
			thisKeywords=p&" "&PageKeywords
			thisDescription=p&" "&PageDescription
			thisPageTitle=hrsq&p&zhiwei
			content=requestjobform(id,p,ChannelID,ThisLang)
		else
			Dim str
			Dim hrposition,hrnum,hrarea,hrdaiyu,hrxueli,hrzy,hrsex,hrage,hrstart,hrend,hrrequest
			if ThisLang=0 then
			hrposition="招聘职位:"
			hrnum="招聘人数:"
			hrarea="工作地:区"
			hrdaiyu="福利待:遇"
			hrxueli="学历要求:"
			hrzy="专业要求:"
			hrsex="性别要求:"
			hrage="年龄要求:"
			hrstart="发布日期:"
			hrend="有效期至:"
			hrrequest="申请该职位"
			else
			hrposition="Position:"
			hrnum="Number:"
			hrarea="Job area:"
			hrdaiyu="Treatment:"
			hrxueli="Diploma:"
			hrzy="Major:"
			hrsex="Sex:"
			hrage="Age:"
			hrstart="Start Date:"
			hrend="End Date:"
			hrrequest="Request"
			end if
			rs.open "select * from cnk_hr where hrid="&id,conn,1,1
			str=str&"<div class=""cnkbox"">"&vbcrlf
			str=str&"  <div class=""boxtitle"">"&rs("JobPosition")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrposition&rs("JobPosition")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrnum&rs("Renshu")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrarea&rs("JobArea")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrdaiyu&rs("Daiyu")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrxueli&rs("Xueli")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrzy&rs("Zhuanye")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrsex&rs("Sex")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrage&rs("Age")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrstart&rs("startdate")&"</div>"&vbcrlf
			str=str&"  <div class=""shortinfo"">"&hrend&rs("enddate")&"</div>"&vbcrlf
			str=str&clearboth&vbcrlf
			str=str&"  <div class=""content"">"&cnkUBBContent(rs("Content"))&"</div>"&vbcrlf
			str=str&"  <div align=""right"" style=""margin:5px;""><input name=""job"" type=""button"" value="""&hrrequest&""" class=""button"" onclick=""window.open('?ModuleType=7&ChannelID="&ChannelID&"&id="&rs("hrid")&"&hrrequest=yes&p="&rs("JobPosition")&"');"" /></div>"&vbcrlf
			str=str&"</div>"&vbcrlf
			content=str
		end if
	end if
Case 8
	Dim areaid
	areaid=Trim(Request("areaid"))
	if areaid<>"" then
		Call IsNum(areaid)
		select case ThisLang
		case 0 thisPageTitle=thisTitle&" -- "&GetProvinceName(areaid)
		case 1 thisPageTitle=thisTitle&" -- "&GetWorldName(areaid)
		end select
	end if
	if id<>"" then
		rs.open "select title from cnk_node where id="&id,conn,1,1
		thisTitle=rs("title")&" "&thisTitle
		Content=GetNodeContent(id)
	else
		ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
		if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
		Content=Content&GetNodeList(ChannelID,areaid,ThisLang)
	end if
	Content=Content&GetMap(ChannelID,ThisLang)
Case 9
	Content=GetLinksList(ChannelID,ThisLang)
Case 10
	dim voted,newvote
	if ThisLang=0 then
	voted="你已经投票过了"
	newvote="最新投票"
	else
	voted="you have voted"
	newvote="New vote"
	end if
	dim VoteType,VoteOption
	VoteType=Trim(request("VoteType"))
	VoteOption=trim(request("VoteOption"))

	If Action = "AddVote" And VoteOption<>""  Then
		if session("Voted"&id)="True" then call alertmsg(voted)
		if VoteType="Single" then
			conn.execute "Update cnk_vote set answer" & VoteOption  & "= answer" & VoteOption & "+1 where ID="&id
		else
			dim arrOptions
			if instr(VoteOption,",")>0 then
				arrOptions=split(VoteOption,",")
				dim i
				for i=0 to ubound(arrOptions)
					conn.execute "Update cnk_vote set answer" & cint(trim(arrOptions(i)))  & "= answer" & cint(trim(arrOptions(i))) & "+1 where ID="&id
				next
			else
				conn.execute "Update cnk_vote set answer" & VoteOption  & "= answer" & VoteOption & "+1 where ID="&id
			end if
		end if
		session("Voted"&id)="True"
	End If
	if id<>"" then 
	Content=GetVoteResult(id,ThisLang)&vbcrlf
	Content=Content&GetVote(id,ThisLang)
	else
		thisPageTitle=newvote
		ChannelContent=GetChannelContent(ChannelID,"Content"&iseng)
		if ChannelContent<>"" then Content="<div class=""channelcontent"">"&CnkUBBContent(ChannelContent)&"</div>"
		Content=Content&GetVoteChannel(ChannelID,ThisLang)&vbcrlf
		Content=Content&GetVoteList(ChannelID,ThisLang)
	end if
Case 100
	thisPageTitle=thisPageTitle&" -- "&cnkpinglun
	Content=GetComment(ChannelID,id,0,ThisLang)
Case Else Response.Redirect("index.asp")
End Select

Function cnkhead()
Dim str
    str=str&"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&vbcrlf
    str=str&"<html xmlns=""http://www.w3.org/1999/xhtml"">"&vbcrlf
    str=str&"<head>"&vbcrlf
    str=str&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"&vbcrlf
    str=str&"<meta name=""Author"" content=""Powered by websys.cn - Leung"">"&vbcrlf
    str=str&"<script type=""text/JavaScript"" src=""../common/com.js""></script>"&vbcrlf
    str=str&"<link href=""../skin/cnk/cnkcss.css"" rel=""stylesheet"" type=""text/css"" />"&vbcrlf
cnkhead=str
End Function

Function guestbookform(ChannelID,Lang)
	dim lyname,lyleibie,lylb1,lylb2,lylb3,lylb4,lydw,lymail,lytel,lyurl,lyqq
	dim yzz,lyarea,lyxz,lyxz1,lyxz2,lytitle,lycontent,lyok,lyback
	if Lang=0 then
	lyname="姓名"
	lyleibie="留言类别"
	lylb1="咨询"
	lylb2="意见建议"
	lylb3="投诉"
	lylb4="有意购买产品"
	lydw="单位名称"
	lymail="电子邮件"
	lytel="电话号码"
	lyurl="网站地址"
	lyqq="即时通讯"
	lyarea="来自地区"
	lyxz="留言性质"
	lyxz1="公开"
	lyxz2="悄悄话"
	lytitle="留言标题"
	lycontent="留言内容"
	yzz="验证字："
	lyok="提交"
	lyback="返回"
	else
	lyname="Name"
	lyleibie="Type"
	lylb1="Consultation"
	lylb2="Advice"
	lylb3="Inform"
	lylb4="Buy Products"
	lydw="Company"
	lymail="E-mail"
	lytel="Telephone"
	lyurl="Web site"
	lyqq="IM"
	lyarea="From"
	lyxz="Open or private"
	lyxz1="Open"
	lyxz2="private"
	lytitle="Title"
	lycontent="Content"
	yzz="Validate"
	lyok="Submit"
	lyback="Back"
	end if
	Dim str
    str="<div class=""formlist"">"&vbcrlf
	str=str&"  <form id=""gbform"" name=""gbform"" method=""post"" action="""&contentfile&""" onsubmit=""return checkguestbook();"">"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1""> "&lyleibie&": </li>"&vbcrlf
    str=str&"      <li class=""t2"">"&vbcrlf
    str=str&"        <select name=""lytype"" class=""input"" id=""lytype"">"&vbcrlf
    str=str&"          <option value="""&lylb1&""" selected=""selected"">"&lylb1&"</option>"&vbcrlf
    str=str&"          <option value="""&lylb2&""">"&lylb2&"</option>"&vbcrlf
    str=str&"          <option value="""&lylb3&""">"&lylb3&"</option>"&vbcrlf
    str=str&"          <option value="""&lylb4&""">"&lylb4&"</option>"&vbcrlf
    str=str&"        </select>"&vbcrlf
    str=str&"      </li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1""> <span class=""red"">*</span>"&lyname&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><input name=""contactname"" type=""text"" class=""input"" id=""contactname"" size=""30"" maxlength=""20"" /></li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1"">"&lydw&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><input name=""company"" type=""text"" class=""input"" id=""company"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1"">"&lymail&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><input name=""email"" type=""text"" class=""input"" id=""email"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1"">"&lytel&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><input name=""tel"" type=""text"" class=""input"" id=""tel"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1"">"&lyurl&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><input name=""url"" type=""text"" class=""input"" id=""url"" value=""http://"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1"">"&lyqq&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><input name=""qq"" type=""text"" class=""input"" id=""qq"" value=""QQ: "" size=""30"" maxlength=""50"" /></li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1"">"&lyarea&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><input name=""area"" type=""text"" class=""input"" id=""area"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1"">"&lyxz&": </li>"&vbcrlf
    str=str&"      <li class=""t2"">"&vbcrlf
    str=str&"        <input title="""&lyxz1&"！"" type=""radio"" value=""1"" checked name=""show"" /> "&lyxz1&""&vbcrlf
    str=str&"        <input title="""&lyxz2&""" type=""radio"" value=""0"" name=""show"" /> "&lyxz2&"</li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1""><span class=""red"">*</span> "&lytitle&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><input name=""title"" type=""text"" class=""input"" id=""title"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1""><span class=""red"">*</span> "&lycontent&": </li>"&vbcrlf
    str=str&"      <li class=""t2""><textarea name=""ly"" cols=""50"" rows=""6"" id=""ly"" class=""input""></textarea></li>"&vbcrlf
    str=str&clearboth&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&"      <ul>"&vbcrlf
    str=str&"        <li class=""t1"">"&yzz&"</li>"&vbcrlf
    str=str&"		<li class=""t2""><input name=""yzma"" type=""text"" class=""input"" id=""yzma"" size=""9"" maxlength=""50""> <img src="""&UpDir&"common/code"&iseng&".asp""></li>"&vbcrlf
    str=str&"      </ul>"&vbcrlf
    str=str&"    <ul>"&vbcrlf
    str=str&"      <li class=""t1"">&nbsp;"&vbcrlf
    str=str&"        <input name=""ChannelID"" type=""hidden"" id=""ChannelID"" value="""&ChannelID&""" />"&vbcrlf
	str=str&"		<input name=""ModuleType"" type=""hidden"" id=""ModuleType"" value=""6"" />"&vbcrlf
    str=str&"        <input name=""Action"" type=""hidden"" id=""Action"" value=""savenew"" />"&vbcrlf
    str=str&"        <input name=""yuyan"" type=""hidden"" id=""yuyan"" value="""&Lang&""" />"&vbcrlf
    str=str&"      </li>"&vbcrlf
    str=str&"      <li class=""t2"">"&vbcrlf
    If isImgButton=0 Then
	str=str&"       <input type=""submit"" name=""Submit"" class=""button"" value="""&lyok&""" /> "&vbcrlf
	str=str&"		<input type=""button"" name=""Submit"" class=""button"" value="""&lyback&""" onclick=""history.go(-1);"" /> "&vbcrlf
	Else
	str=str&" <input type=""image"" name=""imageField"" src="""&UpDir&"images/button_submit"&iseng&".gif"" onclick=""UserNeedLogin();"" /> <a href=""javascript:void(0);"" onclick=""history.go(-1);""><img src="""&UpDir&"images/button_back"&iseng&".gif"" border=""0"" /></a>"
	End If
    str=str&"      </li>"&vbcrlf
    str=str&"    </ul>"&vbcrlf
    str=str&clearboth&vbcrlf
    str=str&"  </form>"&vbcrlf
    str=str&"</div>"&vbcrlf
    str=str&clearboth
guestbookform=str
End Function

Function requestjobform(id,p,ChannelID,Lang)
Dim hrname,sex,male,female,birthday,format,marry,bachelordom,married,divorce
Dim graduate,degree,major,graduatime,tel,im,addr,resum,ability,submite
if Lang=0 then
hrname=" 姓 名"
sex="性 别"
male="男"
female="女"
birthday="出生日期"
format="格式"
marry="婚姻状况"
bachelordom="未婚"
married="已婚"
divorce="离异"
graduate="毕业学校"
degree="学 历"
major="专 业"
graduatime="毕业时间"
tel="电话"
im="即时通讯"
addr="住 址"
resum="简 历"
ability="水平和能力"
submite="提交"
else
hrname="Name"
sex="Sex"
male="male"
female="female"
birthday=""
format="format"
marry="Marry"
bachelordom="bachelordom"
married="married"
divorce="divorce"
graduate="Which school did you Graduated"
degree="Degree"
major="Major"
graduatime="Graduated Year"
tel="Telephone"
im="IM"
addr="Address"
resum="Resume"
ability="Ability"
submite="Submite"
end if
Dim str
	str="<div class=""formlist"">"&vbcrlf
	str=str&"<form id=""hrform"" name=""hrform"" method=""post"" action="""&contentfile&""" onsubmit=""return chkhrform();"">"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1""> <span class=""red"">*</span>"&hrname&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""PersonName"" type=""text"" class=""input"" id=""PersonName"" size=""30"" maxlength=""20"" /></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1""> "&sex&": </li>"&vbcrlf
	str=str&"    <li class=""t2"">"&vbcrlf
	str=str&"      <label for=""sex1""><input name=""Sex"" type=""radio"" id=""sex1"" value=""1"" checked=""checked"" /> "&male&"</label>"&vbcrlf
	str=str&"      <label for=""sex0""><input type=""radio"" name=""Sex"" value=""0"" id=""sex0"" /> "&female&"</label></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1""><span class=""red"">*</span> "&birthday&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""Birthday"" type=""text"" class=""input"" id=""Birthday"" size=""30"" maxlength=""10"" />"&format&":1986-8-19 </li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1"">"&marry&": </li>"&vbcrlf
	str=str&"    <li class=""t2"">"&vbcrlf
	str=str&"      <label for=""Marry1""><input name=""Marry"" type=""radio"" id=""Marry1"" value="""&bachelordom&""" checked=""checked"" /> "&bachelordom&"</label>"&vbcrlf
	str=str&"      <label for=""Marry2""><input type=""radio"" name=""Marry"" value="""&married&""" id=""Marry2"" /> "&married&"</label>"&vbcrlf
	str=str&"      <label for=""Marry3""><input type=""radio"" name=""Marry"" value="""&divorce&""" id=""Marry3"" /> "&divorce&"</label></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1"">"&graduate&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""School"" type=""text"" class=""input"" id=""School"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1"">"&degree&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""Studydegree"" type=""text"" class=""input"" id=""Studydegree"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1"">"&major&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""Specialty"" type=""text"" class=""input"" id=""Specialty"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1"">"&graduatime&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""GradYear"" type=""text"" class=""input"" id=""GradYear"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1""><span class=""red"">*</span> E-mail: </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""email"" type=""text"" class=""input"" id=""email"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1""><span class=""red"">*</span> "&tel&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""tel"" type=""text"" class=""input"" id=""tel"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1"">"&im&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""qq"" type=""text"" class=""input"" id=""qq"" value=""QQ: "" size=""30"" maxlength=""50"" /> QQ或MSN等 </li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1"">"&addr&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><input name=""Address"" type=""text"" class=""input"" id=""Address"" size=""30"" maxlength=""50"" /></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1""><span class=""red"">*</span> "&resum&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><textarea name=""Resumes"" cols=""50"" rows=""6"" id=""Resumes"" class=""input""></textarea></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1""><span class=""red"">*</span> "&ability&": </li>"&vbcrlf
	str=str&"    <li class=""t2""><textarea name=""Ability"" cols=""50"" rows=""6"" id=""Ability"" class=""input""></textarea></li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"  <ul>"&vbcrlf
	str=str&"    <li class=""t1"">&nbsp;"&vbcrlf
	str=str&"      <input name=""id"" type=""hidden"" id=""id"" value="""&id&""" />"&vbcrlf
	str=str&"      <input name=""JobPosition"" type=""hidden"" id=""JobPosition"" value="""&p&""" />"&vbcrlf
	str=str&"      <input name=""ChannelID"" type=""hidden"" id=""ChannelID"" value="""& ChannelID&""" />"&vbcrlf
	str=str&"      <input name=""ModuleType"" type=""hidden"" id=""ModuleType"" value=""7"" />"&vbcrlf
	str=str&"      <input name=""Action"" type=""hidden"" id=""Action"" value=""savenew"" />"&vbcrlf
	str=str&"      <input name=""yuyan"" type=""hidden"" id=""yuyan"" value="""&Lang&""" />"&vbcrlf
	str=str&"    </li>"&vbcrlf
	str=str&"    <li class=""t2"">"&vbcrlf
	If isImgButton=0 Then
	str=str&"      <input type=""submit"" name=""Submit"" class=""button"" value="""&submite&""" />"&vbcrlf
	Else
	str=str&" <input type=""image"" name=""imageField"" src="""&UpDir&"images/button_submit"&iseng&".gif"" />"&vbcrlf
	End If
	str=str&"    </li>"&vbcrlf
	str=str&"  </ul>"&vbcrlf
	str=str&"</form>"&vbcrlf
	str=str&clearboth&vbcrlf
	str=str&"</div>"&vbcrlf
requestjobform=str
End Function

%>