📄 default.asp

📁 功能强大的一个b/s工作站
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
IF ProgramOpen<>"True" Then
 IF Session("PROADMIN")<>True Then
   Response.Redirect "Login.asp"
   Response.End
 End IF
End IF

IF Request("del")<>"" and Session("PROADMIN")=True Then
   Sql = "Delete From diary Where id="&Request("del")
   Conn.Execute(Sql)
End IF
%>
<html>
<STYLE type=text/css>BODY {
	SCROLLBAR-FACE-COLOR: #BC365C; SCROLLBAR-HIGHLIGHT-COLOR: #BC365C; SCROLLBAR-SHADOW-COLOR: #BC365C; SCROLLBAR-3DLIGHT-COLOR: #BC365C; SCROLLBAR-ARROW-COLOR: #BC365C; SCROLLBAR-TRACK-COLOR: #999999; SCROLLBAR-DARKSHADOW-COLOR: #BC365C
}
</STYLE><head>
<title>::快速留言::.</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="JR diary SLIGHTBOY 心情日记" name=keywords>
<META content="JR diary SLIGHTBOY 心情日记" name=description>
<STYLE type=text/css>
<!--

TABLE {
	FONT-SIZE: 12px; COLOR: #ff97cb; FONT-FAMILY: Verdana,Calligraph421 BT,宋体
;}
TD {
	WORD-BREAK: break-all
}
A:link {
	CURSOR: n-resize; COLOR: #ff97cb; TEXT-DECORATION: none
;}
A:visited {
	CURSOR: n-resize; COLOR: #ff97cb; TEXT-DECORATION: none
;}
A:active {
	CURSOR: n-resize; COLOR: #ff97cb; TEXT-DECORATION: none
;}
A:hover {
	LEFT: 1px; CURSOR: n-resize; COLOR: #fedaec; POSITION: relative; TOP: 1px; TEXT-DECORATION: none
;}

.a {
	BORDER-RIGHT: #ffe8e8 3px double; BORDER-TOP: #ffe8e8 3px double; FONT-SIZE: 12px; FILTER: Alpha(opacity=70); BORDER-LEFT: #ffe8e8 3px double; COLOR: #ffe8e8; BORDER-BOTTOM: #ffe8e8 3px double; BACKGROUND-COLOR: #ffffff
;}
.aa {
	FONT-SIZE: 10px; COLOR: #ffe8e8; FONT-FAMILY: Verdana,Calligraph421 BT,宋体
;}
.aaa {
	BORDER-RIGHT: #ffe8e8 3px double; BORDER-TOP: #ffe8e8 3px double; BORDER-LEFT: #ffe8e8 3px double; BORDER-BOTTOM: #ffe8e8 3px double
;}
.aaaa {
	BORDER-RIGHT: #ffe8e8 1px solid; BORDER-TOP: #ffe8e8 1px solid; BORDER-LEFT: #ffe8e8 1px solid; BORDER-BOTTOM: #ffe8e8 1px solid
;}
.aaaaa {
	BORDER-RIGHT: #ffe8e8 1px dashed; BORDER-TOP: #ffe8e8 1px dashed; FILTER: Alpha(opacity=65); BORDER-LEFT: #ffe8e8 1px dashed; BORDER-BOTTOM: #ffe8e8 1px dashed
;}
.b {
	FILTER: Alpha(opacity=65)
}
-->
</STYLE>

</head>
<body text="#ff97cb" leftMargin=0 topMargin=0  link="#CCCCCC" background="bg.jpg">

<%



IF Request("POST")<>"" Then
Call WriteData
End IF

function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLcode = fString
end if
end function

Function WriteData
IF Request("content")="" or Request("content")="请填写留言内容" Then
 Response.Write "<font color=red>请填写留言内容</font>"
Else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From diary"
Rs.Open Sql,conn,1,3
Rs.AddNew

Rs("title")=Request("title")
Rs("content")=HTMLcode(Request("content"))
Rs("weather")=Request("weather")
Rs("date")=year(now)&"-"&month(now)&"-"&day(now)
Rs.Update
Rs.Close
Set Rs=Nothing
Call CloseDB

Response.Redirect "Default.asp"

End IF
End Function
%><form name="form1" method="post" action="">
  <input type="hidden" name="POST" value="True">
  <table width="435" border="0" cellspacing="1" cellpadding="1" align="center">
    <tr> 
      <td colspan="2" width="607"><img src="http://kite.wx-e.com/gbbear/PIC/point1.gif"border="0">签写留言 </td> 
    </tr> 
    <tr>  
      <td width="477" height="4">姓名:<font color="#ff97cb"> 
        <input type="text" name="title" size="10" style="border:1px solid #717039; "> 
        心情:</font>
        <select name="weather" size="1" style="border-width:1; border-style:solid; "> 
          <option>不知道</option>
          <option value="激动">激动</option>
          <option value="快乐">快乐</option>
          <option value="高兴">高兴</option>
          <option value="平静">平静</option>
          <option value="不错">不错</option>
          <option value="可以">可以</option>
          <option value="一般">一般</option>
          <option value="无聊">无聊</option>
          <option value="心烦">心烦</option>
          <option value="生气">生气</option>
        </select>
        <%=year(now)&"-"&month(now)&"-"&day(now)%></font></td>  
      <td width="148" height="4" background="gd.JPG">　</td>  
    </tr>  
    <tr>   
      <td width="477">   
        <textarea name="content" rows="20" cols="20" style="border-width:1; width: 415; height: 100; border-style: solid"></textarea>  
      </td>  
      <td width="148">　</td>  
    </tr>  
    <tr>   
      <td colspan="2" width="607">   
        <div align="center">   
          <input type="submit" value="写 好 了" style="border-style: solid; border-width: 1">&nbsp;&nbsp;  
          <input type="reset" value="重 新 写" name="重置" style="border-style: solid; border-width: 1">  
        </div>  
      </td>  
    </tr>  
  </table>  
</form>  
<tr>
<TABLE style="BORDER-RIGHT: #ffe3ff 1px dotted; BORDER-TOP: #ffe3ff 1px dotted; BORDER-LEFT: #ffe3ff 1px dotted; BORDER-BOTTOM: #ffe3ff 1px dotted" cellspacing="0" cellpadding="0" align="center" border="0">
  <tbody> <img src="http://kite.wx-e.com/gbbear/PIC/title1.gif" border="0">
  <tr>  <td> </td></tr><br>
    <td width="427" height="1">
       
<img src="line.gif" border="0">
         
    </td>
  
  
</tr>
  

  
  <% 
Set Rs = Server.CreateObject("ADODB.Recordset") 
Sql = "Select * From diary Order BY id DESC" 
Rs.Open Sql,conn,1,1 
IF Not Rs.Eof Then 
 
totalrecord=rs.recordcount 
IF Request("s")="" Then 
ShowNum=ShowTopic 
Else 
ShowNum=Request("s") 
End IF 
rs.pagesize=ShowNum 
maxpage=rs.pagecount 
 
requestpage=clng(request("p")) 
 
if requestpage="" or requestpage=0 then 
   requestpage=1 
end if 
if resquestpage>maxpage then 
    resquestpage=maxpage 
end if 
 
if not requestpage=1 then 
rs.move (requestpage-1)*rs.pagesize 
end if 
 
for i=1 to rs.pagesize and not rs.bof 
%>
  <tr> 
      <td><img src="http://kite.wx-e.com/gbbear/PIC/point1.gif"border="0"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" ><%=Rs("title")%> 
        &nbsp;<%IF Rs("weather")<>"" Then%>&nbsp;
        <%=Rs("weather")%>&nbsp; 
        <%End IF%>
        </font><font font size="2" face="Verdana, Arial, Helvetica, sans-serif" ><%=Rs("date")%></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"  >&nbsp; 
        </font><font font size="2" face="Verdana, Arial, Helvetica, sans-serif" >&nbsp; </font></td>
  </tr>
  <tr>
    <td>------------------------</td>
  </tr>
  <tr> 
    <td valign="top" height="28"><%=Rs("content")%> </td>
  </tr>
  <% 
Rs.MoveNext 
if rs.eof then exit for 
next 
End IF 
Rs.Close 
Set Rs=Nothing 
Call CloseDB 
%>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  
  </tbody> 
</table> <br><center><img src="http://kite.wx-e.com/gbbear/PIC/point1.gif"border="0"><font color="#ff97cb" size="2">留言共有</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#ff97cb"> <%=maxpage%> 
        <font color="#ff97cb">页 </font> 
        <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><% 
For i=1 to maxpage 
Response.Write "<a href=Default.asp?p="&i&"&s="&ShowNum&">"&i&"</a> " 
Next 
%></font>
        <font color="#800000">... </font> 
      </center><br><center><img src="http://kite.wx-e.com/gbbear/PIC/point1.gif"border="0">程序制作：李久强  <a href"http://kite.wx-e.com" target="_blank"> kite.wx-e.com</a>版权所有！<img src="http://kite.wx-e.com/gbbear/PIC/point1.gif"border="0"></center>
</body> 
</html>
💿 文件大小 4313 K
👤 上传用户 WUYUEASDF
📂 所属分类源码/资料
🏷️ 相关标签

#工作站
⌨️ 快捷键说明

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