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

📄 save.asp

📁 非常一般
💻 ASP
字号:
🔍 
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Config.asp"-->
<!--#include file="Inc/str.asp"-->
<%
  Session.timeout = 1
  If Web_safe Then
    From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
    Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
    If mid(From_url,8,len(Serv_url)) <> Serv_url then
       Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&web_url&""">") 
       Response.Write("对不起,本系统采用了防外部提交机制,请不要从外部提交数据,2秒后返回...") 
       Response.End
    End if
  End if
  If Web_Refresh Then
    Dim URL 
    If DateDiff("s",Request.Cookies("oesun")("vitistime"),Now())<60 Then 
       URL=Request.ServerVariables("Http_REFERER") 
       Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&URL&""">") 
       Response.Write("对不起,本系统采用了防刷新机制,2秒后返回...") 
       Response.End
    End IF 
    Response.Cookies("oesun")("vitistime")=Now()
  End if
  If Web_Time Then
    IF Session("Send") = 1 Then
      Response.write"<script language=JavaScript>{window.alert('感谢您再次提交反馈信息，我们会尽快处理，谢谢合作');window.location.href='javascript:history.go(-1)'}</script>"
    End if
  End if
%>
<HTML>
<HEAD>
<TITLE><%=web_name%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>
.MainMenuBGStyle {
	BACKGROUND-POSITION: right center; BACKGROUND-REPEAT: no-repeat
}
</STYLE>
<LINK href="Images/css.css" rel=stylesheet>
<style type="text/css">
<!--
.style1 {font-size: 18px}
.style5 {font-size: 16px; font-weight: bold; }
.style6 {color: #FF0000}
.style7 {color: #FFFFFF}
-->
</style>
</head>

<% dim emailbody,emailbody1,emailbody2,time1,ip
emaildody1=""
emailbody ="<table width=699 border=0 align='center' cellPadding=5 cellSpacing=1 bgColor=#cdcdcd><tr bgColor=#fafafa><td width='20%' align='right'>提交页面标题：</td><td>"+Request("Title")+"</td></tr><tr bgColor=#fafafa><td width='20%' align='right'>提交页面地址：</td><td>"+Request("refererulr")+"</td></tr>"
time1=now()
ip=Request.ServerVariables("REMOTE_ADDR")  
%>
<%
 Set rs = Server.CreateObject("ADODB.RecordSet")
    Sql = "select * from list where listuse=True order by listorder"
 Rs.Open sql,conn,1,3
 If not rs.eof then
   If not isempty(request("page")) then   
    pagecount=cint(request("page"))   
   else   
    pagecount=1
   end if
   Rs.pagesize=20
   Rs.AbsolutePage=pagecount
   do while not Rs.eof
   j=j+1
   %>  
   <%
    dim i,fk
    i=trim(Rs("listid"))
    fk="Feedback"+i
    emialbody1=emailbody1
	%>
<% emailbody1=emailbody1+"<tr bgColor=#fafafa><td width='20%' align='right'>"+Rs("listtitle")+":"+"</td><td >"+Request(fk)+"</td></tr>" %>  
  <%
 If j>=Rs.pagesize Then exit do
 Rs.movenext
 loop
 Else
%> 
<%End If%>    
<%
 Rs.close
 Set rs = nothing
%>
	
<% emailbody2=+"<tr bgColor=#fafafa><td width='20%' align='right'>提交时间：</td><td>"+trim(time1)+"</td></tr><tr bgColor=#fafafa><td width='20%' align='right'>提交IP：</td><td>"+trim(ip)+"</td></tr></table>"%>
<% emailbody=emailbody+emailbody1+emailbody2 %>

<%   dim ett,emailtt
	  ett="Feedback"+emailtitle
	  emailtt=Request(ett)
      if emailtitle="21" then emailtt=Request("Title") end if
%>

<% 
   Select Case web_fangshi
   Case "send"
   Set rs=Server.CreateObject("ADODB.Recordset")
     Sql="Select * from Feedback"
     Rs.Open sql,conn,1,3
     Rs.Addnew
     Rs("Feedback1") = HTMLEncode(Request("Feedback1"))
     Rs("Feedback2") = HTMLEncode(Request("Feedback2"))
     Rs("Feedback3") = HTMLEncode(Request("Feedback3"))
     Rs("Feedback4") = HTMLEncode(Request("Feedback4"))
     Rs("Feedback5") = HTMLEncode(Request("Feedback5"))
     Rs("Feedback6") = HTMLEncode(Request("Feedback6"))
     Rs("Feedback7") = HTMLEncode(Request("Feedback7"))
	 Rs("Feedback8") = HTMLEncode(Request("Feedback8"))
	 Rs("Feedback9") = HTMLEncode(Request("Feedback9"))
	 Rs("Feedback10") = HTMLEncode(Request("Feedback10"))
	 Rs("Feedback11") = HTMLEncode(Request("Feedback11"))
	 Rs("Feedback12") = HTMLEncode(Request("Feedback12"))
     Rs("Feedback13") = HTMLEncode(Request("Feedback13"))
	 Rs("Feedback14") = HTMLEncode(Request("Feedback14"))
	 Rs("Feedback15") = HTMLEncode(Request("Feedback15"))
	 Rs("Feedback16") = HTMLEncode(Request("Feedback16"))
     Rs("Feedback17") = HTMLEncode(Request("Feedback17"))
	 Rs("Feedback18") = HTMLEncode(Request("Feedback18"))
	 Rs("Feedback19") = HTMLEncode(Request("Feedback19"))
     Rs("Feedback20") = HTMLEncode(Request("Feedback20")) 
	 Rs("Title") = HTMLEncode(Request("Title"))
     Rs("refererulr") = HTMLEncode(Request("refererulr")) 
     Rs("Feedback_datetime")= now()
     Rs("Feedback_ip") = Request.ServerVariables("REMOTE_ADDR")
     Rs("Feedback_fs") = "Send"
     Rs("Feedback_zt") = 0
     Rs.Update
     Rs.Close
     Set rs=Nothing
	 Session("Send") = 1
 
   Case "mail"
	 Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
 
     jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值j
     jmail.Charset = "GB2312"     '邮件的文字编码
     jmail.ContentType = "text/html"    '邮件的格式为HTML格式或纯文本
     jmail.AddRecipient mail_shou     '邮件收件人的地址
     jmail.From = mail_fa   '发件人的E-MAIL地址
     jmail.MailServerUserName = mail_user     '登录邮件服务器的用户名 (您的邮件地址)
     jmail.MailServerPassword = mail_pass     '登录邮件服务器的密码 (您的邮件密码)
     jmail.Subject = emailtt    '邮件的标题 
     jmail.Body = emailbody   '邮件的内容
     jmail.Priority = mail_cd      '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
     jmail.Send(mail_smtp)     '执行邮件发送（通过邮件服务器地址）
     jmail.Close()   
     set jmail = nothing
	 if mail_save=true then
	 Set rs=Server.CreateObject("ADODB.Recordset")
     Sql="Select * from Feedback"
     Rs.Open sql,conn,1,3
     Rs.Addnew
     Rs("Feedback1") = HTMLEncode(Request("Feedback1"))
     Rs("Feedback2") = HTMLEncode(Request("Feedback2"))
     Rs("Feedback3") = HTMLEncode(Request("Feedback3"))
     Rs("Feedback4") = HTMLEncode(Request("Feedback4"))
     Rs("Feedback5") = HTMLEncode(Request("Feedback5"))
     Rs("Feedback6") = HTMLEncode(Request("Feedback6"))
     Rs("Feedback7") = HTMLEncode(Request("Feedback7"))
	 Rs("Feedback8") = HTMLEncode(Request("Feedback8"))
	 Rs("Feedback9") = HTMLEncode(Request("Feedback9"))
	 Rs("Feedback10") = HTMLEncode(Request("Feedback10"))
	 Rs("Feedback11") = HTMLEncode(Request("Feedback11"))
	 Rs("Feedback12") = HTMLEncode(Request("Feedback12"))
     Rs("Feedback13") = HTMLEncode(Request("Feedback13"))
	 Rs("Feedback14") = HTMLEncode(Request("Feedback14"))
	 Rs("Feedback15") = HTMLEncode(Request("Feedback15"))
	 Rs("Feedback16") = HTMLEncode(Request("Feedback16"))
     Rs("Feedback17") = HTMLEncode(Request("Feedback17"))
	 Rs("Feedback18") = HTMLEncode(Request("Feedback18"))
	 Rs("Feedback19") = HTMLEncode(Request("Feedback19"))
     Rs("Feedback20") = HTMLEncode(Request("Feedback20"))
	 Rs("Title") = HTMLEncode(Request("Title"))
     Rs("refererulr") = HTMLEncode(Request("refererulr"))   
     Rs("Feedback_datetime")= now()
     Rs("Feedback_ip") = Request.ServerVariables("REMOTE_ADDR")
     Rs("Feedback_fs") = "mail"
     Rs("Feedback_zt") = 0
     Rs.Update
     Rs.Close
     Set rs=Nothing
	 Session("Send") = 1
	 end if
     End Select
%>
<% if emailbk=True then
    dim fbshou
	 fbshou="Feedback"+emailback
     mailshou=Request(fbshou)
     Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
     jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值j
     jmail.Charset = "GB2312"     '邮件的文字编码
     jmail.ContentType = "text/html"    '邮件的格式为HTML格式或纯文本
     jmail.AddRecipient mailshou     '邮件收件人的地址
     jmail.From = mail_fa   '发件人的E-MAIL地址
     jmail.MailServerUserName = mail_user     '登录邮件服务器的用户名 (您的邮件地址)
     jmail.MailServerPassword = mail_pass     '登录邮件服务器的密码 (您的邮件密码)
     jmail.Subject = fkemailtitle    '邮件的标题 
     jmail.Body = emailtext   '邮件的内容
     jmail.Priority = mail_cd      '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
     jmail.Send(mail_smtp)     '执行邮件发送（通过邮件服务器地址）
     jmail.Close()   
     set jmail = nothing
end if
%>
</BODY></HTML>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=980><div align="right"></div></TD>
      <TD width=980>
        <DIV align=center>
          <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR>
                <TD height=1></TD>
              </TR>
            </TBODY>
          </TABLE>
          <div align="center">
            <TABLE width=700 border=1 cellPadding=0 cellSpacing=0 bordercolor="#0033CC" 
      bgColor=#cdcdcd>
              <TBODY>
                <TR bgColor=#fafafa>
                  <TD height=28>
                    <TABLE width=720 height=30 align="center" cellPadding=5 cellSpacing=1 bgcolor="#0033CC">
        <TBODY>
        <TR>
          <TD><span class="style1"><span class="style5">　<span class="style6"><span class="style7"><%=web_name%></span></span></span></span></TD>
        </TR></TBODY></TABLE></TD>
                </TR>
                <TR bgColor=#fafafa>
                  <TD height=298 align="right">
                    <p align="center"><%=webback%></p>
                    <p align="center"> <a href="javascript:window.close()"> 关闭窗口</a></TD>
                </TR>
                <TR bgColor=#fafafa>
                  <TD bgColor=#0033CC height=29>
                  <DIV align=center><span class="style7">&copy;2008-2009 CopyRight<a href="http://www.isstech.com.cn/" target="_blank"> <strong style="color:#FFFFFF ">IssTech.Co., Ltd</strong></a> All Rights Reserved</span></DIV></TD>
                </TR>
              </TBODY>
            </TABLE>
          </div>
          <BR>
      </DIV></TD>
      <TD width=980><div align="left"></div></TD>
    </TR>
  </TBODY>
</TABLE>

⌨️ 快捷键说明

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