⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 addlog.asp

📁 blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!--#include file="log_lib.asp" -->
<%
if not instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8 then
		message "DLOG错误:提交的数据来自网站外部"
		response.end
end if

checkuser()
InstLog=request("InstLog")
cat_id=request("cat_id")
if not Instlog="true" then
if cat_id="" then
   cat_name="未知分类"
   unknowcat="true"
else
   sql="SELECT cat_name FROM  log_cat WHERE ID="&cat_id&""
   set rs=conn.EXECUTE(sql) 
   if not (rs.eof or rs.bof) then
      cat_name=rs("cat_name")
   else
      cat_name="未知分类"
	  unknowcat="true"
   end if
   rs.close
   set rs=nothing 
end if
end if

%>
<html>
<head>
<title>写日记 | <%=cat_name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/pagedefine.css">
</head>
<body bgcolor="#d6d3ce" topmargin="0" leftmargin="0" style="OVERFLOW: auto"> 
<table width="728" border="0" cellspacing="0" cellpadding="4">
  <tr> 
    <td bgcolor="#E1DDD8"> 
      <%
      response.write check_user
       %>
    </td>
  </tr>
</table>
<%if not ulogin="true" or cint(isad)>=0 then%>
<table cellpadding=2 cellspacing=0 border=0 width="728">
    <tr> 
      <td align=center><font color=red><b>您未登陆或没有发布日志的权限,请用管理员ID登陆</b></font></td>
    </tr>
</table>
    
<%
	response.end
	end if
	
if unknowcat="true" then%>
<table width="728" border="0" cellspacing="0" cellpadding="8">
  <form name="selectcat" method="POST" action="addlog.asp">
  <tr>
      <td><b>请选择要发布日志的分类</b>: 
        <select name="cat_id">
          <!--#include file="cat_list.asp" -->
        </select>
		<input type="radio" name="sType" value="html" onclick="document.selectcat.action='addlog.asp'" checked> HTML
		<input type="radio" name="sType" value="ubb" onclick="document.selectcat.action='addlog_ubb.asp'"> UBB
        <input type="submit" name="Submit2" value=" 进 入 ">
      </td>
  </tr>
  </form>
</table>
<%
response.end
end if%>
<table width="728" border=0 cellpadding=2 cellspacing=0>
  <form name="NewLog" method="POST" action="doadd.asp">
  <input type="hidden" name="log_type" value="1">
    <tr> 
      <td colspan="2"><table width="100%" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
          <tr bgcolor="#efefef"> 
            <td>&nbsp; <font color="#000000"><b>在分类 [ <%=cat_name%> ] 中添加日记</b></font></td>
            <td width="350" align="right"><font color="#000000"> 
              <input type="hidden" name="cat_id" value="<%=cat_id%>">
              <input type="checkbox" name="redircat" value="true">
              转移到 
              <select name="cat_id_2">
                <!--#include file="cat_list.asp" -->
              </select>
              </font> </td>
          </tr>
          <tr bgcolor="#efefef">
            <td><font color="#000000">&nbsp;&nbsp;标题
                <input type=text name="log_tittle" size="52" maxlength="100" value="<%=covhtml(log_tittle)%>">
            </font></td>
            <td align="right"><font color="#000000">日期
                <input type="text" value="<%=year(now())%>" name="l_year" maxlength="4" size="4" class="bk">
<input type="text" value="<%=month(now())%>" name="l_month" maxlength="2" size="2" class="bk">
<input type="text" value="<%=day(now())%>" name="l_day" maxlength="2" size="2" class="bk">
日 天气
<select name="log_weather" id="select">
  <option value="sunny">sunny</option>
  <option value="ptcl">ptcloudy</option>
  <option value="cloudy">cloudy</option>
  <option value="showers">showers</option>
  <option value="rain">rain</option>
  <option value="t-storms">t-storms</option>
  <option value="snow">snow</option>
  <option value="flurries">flurries</option>
  <option value="ice">ice</option>
</select>
            </font></td>
          </tr>
          <tr bgcolor="#efefef"> 
            <td colspan="2"><font color="#000000">&nbsp;&nbsp;来自
              <input name="author" type="text" id="author" value="本站原创" size="10">
地址
              <input name="author_url" type="text" id="author_url" value="http://www.IAMTING.com" size="35">
</font></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td valign=middle colspan="2">
<script>
function inputs(smiley){
if(document.NewLog.log_content.createTextRange){
document.NewLog.log_content.focus();
document.selection.createRange().duplicate().text=smiley;
}else{
document.NewLog.log_content.value+=smiley;
}
}
</script>
<textarea name="log_content" style="display:none"></textarea>
<iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=log_content&style=poorfish" frameborder="0" scrolling="no" width="720" HEIGHT="400"></iframe>
      </td>
    </tr>
    <tr> 
      <td valign=middle colspan="2">&nbsp;引用地址: 
        <input name="url" type=text id="url" size="50"> </td>
    </tr>
    <tr> 
      <td valign=middle colspan="2"> &nbsp;心情指数: 
        <input type="radio" name="face" value="1"> <img src="images/face1.gif"> 
        <input type="radio" name="face" value="2"> <img src="images/face2.gif"> 
        <input type="radio" name="face" value="3" checked> <img src="images/face3.gif"> 
        <input type="radio" name="face" value="4"> <img src="images/face4.gif"> 
        <input type="radio" name="face" value="5"> <img src="images/face5.gif"> 
      </td>
    </tr>
    <tr>
      <td height="35" colspan="2">&nbsp;表  情:  
        <a href="#" title=加入心情图标 onClick=inputs(':)')><img src="smile/01.gif" width="15" height="15" border="0"></a>
		<a href="#" title=加入心情图标 onClick=inputs(':(')><img src="smile/02.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':o')><img src="smile/03.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':D')><img src="smile/04.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(';)')><img src="smile/05.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':a')><img src="smile/06.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':b')><img src="smile/07.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':c')><img src="smile/08.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':d')><img src="smile/09.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':e')><img src="smile/10.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':f')><img src="smile/11.gif" width="15" height="15" border="0"></a> 
        <a href="#" title=加入心情图标 onClick=inputs(':g')><img src="smile/12.gif" width="15" height="15" border="0"></a> 
      </td>
    </tr>
    <tr> 
      <td valign=middle> <input type="checkbox" name="allows" value="1">
        禁止笑脸转换(默认为允许) 
        <input type="checkbox" name="allowubb" value="1">
        禁止UBB(默认为允许) 
        <input type="hidden" name="InstLog" value="true"> </td>
      <td width="350" align="right" valign=middle><input type="submit" name="Submit" value=" 发 布 " onClick="this.disabled=true;document.NewLog.submit();"> 
      </td>
    </tr>
  </form>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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