📄 header.asp

📁 本代码是一个个人主页
💻 ASP
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<!--#include file="include/showubb.asp"-->
<!--#include file="include/ubbcode.asp"-->
<!--#include file="include/function.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml" lang="UTF-8">
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Language" content="UTF-8" />
<meta name="robots" content="all" />
<meta name="Generator" content="EditPlus">
<meta name="Author" content="F-BLOG">
<meta name="Keywords" content="F-BLOG,F-Blog,BLOG,BLOG,ASP">
<%
  sqlnum=0
  id=request("id")
  editid=request("editid")
  blogid=request("blogid")
  tags=request("tags")
  log_year=request("log_Year")
  log_month=request("log_Month")
  log_day=request("log_Day")
  action=request("action")
  ubb=request("ubb")
  If log_day="" Then
    log_day=0
  End if
  CheckBadStr(blogid)
  CheckBadStr(tags)
  CheckBadStr(id)
  CheckBadStr(log_year)
  CheckBadStr(log_month)
  CheckBadStr(log_day)
  CheckBadStr(action)
  CheckBadStr(editid)

  fromIP=request.ServerVariables("LOCAL_ADDR")
  If session("guest_ip")<>fromIP Then
	Set rs=server.CreateObject("adodb.recordset")
	sql="update blog_basic set basic_count=basic_count+1"
	rs.open sql,db,1
	sqlnum=sqlnum+1
	Set rs=Nothing
	session("guest_ip")=fromIP
  End if
  
  skincookies=request.cookies("skincookie")
  if skincookies="" Then
    skins=basic_skin
  Else
    skins=skincookies
  end if

  if id<>"" then
    set rs=server.createobject("adodb.recordset")
	sql="select * from blog_content where id="&id
	rs.open sql,db,1,3
	sqlnum=sqlnum+1
	if not rs.eof Then
	set rs2=server.createobject("adodb.recordset")
	sql2="update blog_content set content_count=content_count+1 where id="&id
	rs2.open sql2,db,1
	sqlnum=sqlnum+1
	set rs2=Nothing
	set rs3=server.createobject("adodb.recordset")
	sql="select content_title,content_author,content_tags,content_editdate,content_edittime,content_cfaddress,content_plnum,content_count,id,content_nopl,content_cf,content_weather,content_content,content_ubb,content_groupid from blog_content where id="&id
	rs3.open sql,db,1,3
	content_title=rs3("content_title")
	content_author=rs3("content_author")
	content_tags=rs3("content_tags")
	content_editdate=rs3("content_editdate")
	content_edittime=rs3("content_edittime")
	content_cfaddress=rs3("content_cfaddress")
	content_plnum=rs3("content_plnum")
	content_count=rs3("content_count")
	content_id=rs3("id")
	content_nopl=rs3("content_nopl")
	content_cf=rs3("content_cf")
	content_weather=rs3("content_weather")
	content_content=rs3("content_content")
	content_ubb=rs3("content_ubb")
	content_groupid=rs3("content_groupid")
	set rs3=nothing
	Else
	  dim errmessage
	  errmessage=true
	  rs.close
	  set rs=nothing
	end If
	page=request("page")
	if page="" then
      page=1
    else
      page=cint(page)
    end if
	str=replace(content_content,"[zy]","")
	str=split(str,"[page]")
	max=ubound(str)
	If content_tags<>"" then
	  tags=Split(content_tags,",")
      maxtags=UBound(tags)
	Else
	  maxtags=-1
	End If
	
%>
<TITLE> <%=content_title%>--<%=basic_blogname%> </TITLE>
<%
  else
%>
<TITLE> <%=basic_blogname%> </TITLE>
<%
  end If
  set rs=Nothing
%>
<script language="javascript" src="js/default.js"></script>
<script language="javascript" src="js/ubbcode.js"></script>
<link rel="stylesheet" href="skin/<%=skins%>/css.css" type="text/css">
<link rel="stylesheet" href="skin/<%=skins%>/link.css" type="text/css">
<link rel="alternate" type="application/rss+xml" href="<%=basic_blogindex%>feed.asp<%if blogid<>"" and blogid<>"tag" then%>?id=<%=blogid%><%end if%>" title="璁㈤槄<%=basic_blogname%>鎵
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -