syscode.asp

内容丰富的太阳能网站整站程序,适合制作中小企业网站.

				lngTemp1_2=lngTemp1_2_3
			else
				lngTemp1_2=0
			end if
			
			if lngTemp1_1=0 and lngTemp1_2=0 then
				lngTemp1=EndPoint
			else
				if lngTemp1_1>lngTemp1_2 then
					lngtemp1=lngTemp1_2-1
				else
					lngTemp1=lngTemp1_1+7
				end if
			end if

			lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
			lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
			if lngTemp2_1_1>0 then
				lngTemp2_1=lngTemp2_1_1
			elseif lngTemp2_1_2>0 then
				lngTemp2_1=lngTemp2_1_2
			else
				lngTemp2_1=0
			end if
						
			lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
			lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
			if lngTemp2_2_1>0 then
				lngTemp2_2=lngTemp2_2_1
			elseif lngTemp2_2_2>0 then
				lngTemp2_2=lngTemp2_2_2
			else
				lngTemp2_2=0
			end if
			
			if lngTemp2_1=0 and lngTemp2_2=0 then
				lngTemp2=EndPoint
			else
				if lngTemp2_1>lngTemp2_2 then
					lngTemp2=lngTemp2_2-1
				else
					lngTemp2=lngTemp2_1+3
				end if
			end if

			lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
			lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
			if lngTemp3_1_1>0 then
				lngTemp3_1=lngTemp3_1_1
			elseif lngTemp3_1_2>0 then
				lngTemp3_1=lngTemp3_1_2
			else
				lngTemp3_1=0
			end if
			
			lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
			lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
			if lngTemp3_2_1>0 then
				lngTemp3_2=lngTemp3_2_1
			elseif lngTemp3_2_2>0 then
				lngTemp3_2=lngTemp3_2_2
			else
				lngTemp3_2=0
			end if
					
			if lngTemp3_1=0 and lngTemp3_2=0 then
				lngTemp3=EndPoint
			else
				if lngTemp3_1>lngTemp3_2 then
					lngtemp3=lngTemp3_2-1
				else
					lngTemp3=lngTemp3_1+4
				end if
			end if
			
			if lngTemp1<lngTemp2 then
				lngTemp=lngTemp2
			else
				lngTemp=lngTemp1
			end if
			if lngTemp<lngTemp3 then
				lngTemp=lngTemp3
			end if

			if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
				EndPoint=lngTemp
			else
				lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
				lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
				if lngTemp4_1_1>0 then
					lngTemp4_1=lngTemp4_1_1
				elseif lngTemp4_1_2>0 then
					lngTemp4_1=lngTemp4_1_2
				else
					lngTemp4_1=0
				end if
				
				lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
				lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
				if lngTemp4_2_1>0 then
					lngTemp4_2=lngTemp4_2_1
				elseif lngTemp4_2_2>0 then
					lngTemp4_2=lngTemp4_2_2
				else
					lngTemp4_2=0
				end if
				
				if lngTemp4_1=0 and lngTemp4_2=0 then
					lngTemp4=EndPoint
				else
					if lngTemp4_1>lngTemp4_2 then
						lngtemp4=lngTemp4_2-1
					else
						lngTemp4=lngTemp4_1+4
					end if
				end if
				
				if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
					EndPoint=lngTemp4
				else					
					lngTemp5_1=instr(EndPoint,strContent,"<img",1)
					lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
					if lngTemp5_1>0 then
						lngTemp5=lngTemp5_1-1
					elseif lngTemp5_2>0 then
						lngTemp5=lngTemp5_2-1
					else
						lngTemp5=EndPoint
					end if
					
					if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
						EndPoint=lngTemp5
					else
						lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
						lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
						if lngTemp6_1>0 then
							lngTemp6=lngTemp6_1+3
						elseif lngTemp6_2>0 then
							lngTemp6=lngTemp6_2+3
						else
							lngTemp6=EndPoint
						end if
					
						if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
							EndPoint=lngTemp6
						end if
					end if
				end if
			end if
		  end if
		end if
		response.write mid(strContent,BeginPoint,EndPoint-BeginPoint)
		
		response.write "</p><p align='center'><b>"
		if CurrentPage>1 then
			response.write "<a href='" & strFileName & "?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>上一页</a>&nbsp;&nbsp;"
		end if
		for i=1 to pages
			if i=CurrentPage then
				response.write "<font color='red'>[" & cstr(i) & "]</font>&nbsp;"
			else
				response.write "<a href='" & strFileName & "?ArticleID=" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a>&nbsp;"
			end if
		next
		if CurrentPage<pages then
			response.write "&nbsp;<a href='" & strFileName & "?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>下一页</a>"
		end if
		response.write "</b></p>"
	end if

end sub

'=================================================
'过程名：ShowFriend
'作  用：显示友情链接站点
'参  数：LinkType  ----链接方式，1为LOGO链接，2为文字链接
'       SiteNum   ----最多显示多少个站点
'       Cols      ----分几列显示
'       ShowType  ----显示方式。1为向上滚动，2为横向列表，3为下拉列表框
'=================================================
sub ShowFriendSite()
dim sqlLink,rsLink,SiteCount,i,strLink,jname
response.write "<table style='line-height: 400%' width='100%' align='center'>"
for j=1 to 3
	if j=1 then
		response.write "<tr><td style='line-height: 200%' width='100%' align='center'>"	
		strLink="<select name='FriendSite1' onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}""><option value=''>---各级政府机关--</option>"
	elseif j=2 then
		response.write "<tr><td style='line-height: 200%' width='100%' align='center'>"	
		strLink="<select name='FriendSite2' onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}""><option value=''>----企业网站-----</option>"
	else
		response.write "<tr><td style='line-height: 200%' width='100%' align='center'>"	
		strLink="<select name='FriendSite' onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}""><option value=''>----兄弟高新区---</option>"
	end if
	
	sqlLink="select * from FriendSite where style="&j&" order by id desc"
	set rsLink=server.createobject("adodb.recordset")
	'response.write sqllink
	rsLink.open sqlLink,conn,1,1
	if rsLink.bof and rsLink.eof then
		response.write ""	
	else
		SiteCount=rsLink.recordcount
		for i=1 to SiteCount
			strLink=strLink & "<option value='" & rsLink("SiteUrl") & "'>" & left(rsLink("SiteName"),7) & "..</option>"
		rsLink.moveNext
		next
	end if
	strLink=strLink & "</select></td></tr><tr><td height=10 align=center><img src=images/line2.gif width=128 height=1></td></tr>"
	response.write strLink
	rsLink.close
	set rsLink=nothing
next
response.write "</table>"
end sub


'=================================================
'过程名：ShowAllUser
'作  用：分页显示所有用户
'参  数：无
'=================================================
sub ShowAllUser()
	select case OrderType
	case 1
		sqlUser="select * from [User] order by ArticleChecked desc"
	case 2
		sqlUser="select * from [User] order by RegDate desc"
	case 3
		sqlUser="select * from [User] order by UserID desc"
	end select
	set rsUser=server.createobject("adodb.recordset")
	rsUser.open sqlUser,conn,1,1
	if rsUser.bof and rsUser.eof then
		totalput=0
		response.write "<br><li>没有任何用户</li>"
	else
		totalput=rsUser.recordcount
		if currentPage=1 then
			call ShowUserList()
		else
			if (currentPage-1)*MaxPerPage<totalPut then
         	   	rsUser.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rsUser.bookmark
            	call ShowUserList()
        	else
	        	currentPage=1
           		call ShowUserList()
	    	end if
		end if
	end if
	rsUser.close
	set rsUser=nothing
end sub

sub bottom2()
%>
<TABLE id=table91 height=2 cellSpacing=0 cellPadding=0 width=778 border=0>
<TBODY>
<TR>
<TD height="25" class="title_lefttxt">
<p align="center"><font color="#FFFFFF">
<span style="font-size: 9pt; cursor: hand" onclick="window.open('http://www.nchdz.com/about.asp','','top=0,width=590,height=492,resizable=no')">
关于我们</span>&nbsp;|&nbsp;
<span style="CURSOR: hand" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.nchdz.com');">
设为首页</span>&nbsp;|&nbsp;
<span style="CURSOR: hand" onclick="javascript:window.external.AddFavorite('http://www.nchdz.com','南昌国家高新技术开发区');">
存入收藏</span>&nbsp;|&nbsp;
<span style="CURSOR: hand" onclick="window.open('map.html','','width=340,height=300,resizable=no')">
网站地图</span>&nbsp;|&nbsp;
<span style="font-size: 9pt; cursor: hand" onclick="window.open('http://mail.nchdz.com/exchange ','','')">管理邮件</span>
</font></TD></TR></TBODY></TABLE>
<% end sub

sub comp()
				'显示推荐的企业入库名单
				Dim comp_conn,comp_rs,comp_sql,comp_coun,comp_coun1
				set comp_conn=server.createobject("adodb.connection")
				comp_conn.open MM_gaoxin_STRING
				set comp_rs=server.createobject("adodb.recordset")
				comp_sql="select top 12 userid,company,elint,step from company where elint=1 and step=1"
				comp_rs.open comp_sql,comp_conn,1,1

				response.write "<table width='99%' border=0 cellspacing=0 cellpadding=0>"
				if not comp_rs.eof then
					comp_coun=comp_rs.recordcount/3
					comp_coun1=comp_rs.recordcount mod 3
					if comp_coun1>=1 then comp_coun=comp_coun+1
				
					for i=1 to comp_coun
						response.write "<tr>"
						for j=1 to 3
							if comp_rs.eof then
								response.write "<td>&nbsp;</td>"
							else
								response.write "<td align=center><a target='_blank' href='compview.asp?id="& comp_rs("userid") &"'><font color=#000000>"&comp_rs("company")&"</font></a>&nbsp;</td>"
							end if
							comp_rs.movenext						
							if comp_rs.eof then exit for
						next
						response.write "</tr>"
					next				
				end if
				response.write "</table>"
					comp_rs.close
					set comp_rs=nothing
					comp_conn.close
					set comp_conn=nothing
end sub


'=================================================
'过程名：Show_Elite()
'作  用：分页显示文章标题等信息
'参  数：TitleLen  ----标题最多字符数，一个汉字=两个英文字符
'=================================================
sub Show_Elite(TitleLen)
	if TitleLen<0 or TitleLen>200 then
		TitleLen=50
	end if

	sqlArticle=sqlArticle & "select  A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
	sqlArticle=sqlArticle & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from Article A"
	sqlArticle=sqlArticle & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.Elite=True"
'	if SpecialID>0 then
'		sqlArticle=sqlArticle & " and A.SpecialID=" & SpecialID
'	end if
	if ClassId>0 then
		sqlArticle=sqlArticle &  " and A.ClassID=" & ClassID
	end if
	sqlArticle=sqlArticle & " order by A.UpdateTime desc"

	Set rsArticle= Server.CreateObject("ADODB.Recordset")
	rsArticle.open sqlArticle,conn,1,1
	if rsArticle.bof and  rsArticle.eof then
		totalput=0
		response.Write("<br><li>没有任何文章</li>")
	else
		totalput=rsArticle.recordcount
		if totalput=1 then
		response.Redirect("showarticle.asp?ArticleID="&rsArticle("ArticleID"))
		response.end()
		end if		
		
		if currentpage<1 then
			currentpage=1
		end if
		if (currentpage-1)*MaxPerPage>totalput then
			if (totalPut mod MaxPerPage)=0 then
				currentpage= totalPut \ MaxPerPage
			else
				currentpage= totalPut \ MaxPerPage + 1
			end if
		end if

		if currentPage=1 then
			call ArticleContent(TitleLen,True,True,True,2,True,True,0)
		else
			if (currentPage-1)*MaxPerPage<totalPut then