做首页图片显示效果程序总结

最新推荐文章于 2022-03-02 14:02:07 发布

wudixiaocaoren

最新推荐文章于 2022-03-02 14:02:07 发布

阅读量1.7k

点赞数

分类专栏： ASP.NET程序文章标签： vbscript string transition webform border microsoft

本文链接：https://blog.csdn.net/littlehb/article/details/404089

版权

ASP.NET程序专栏收录该内容

92 篇文章 0 订阅

订阅专栏

实现了：

1、图片的特效转换:从网上找到的特效代码，原文只有图片，没有链接，在新文化报www.xwhb.net找到了带链接的代码.VBS的，不是IE浏览器好像看不了。

2、VBS与后台数据的交换

用的是前台Hidden文本框的办法，要转为服务器端程序。后台才能读取到它的值。

3、将HTML转为纯文字的正则：

System.Text.RegularExpressions.Regex regex = new System.Text.RegularExpressions.Regex(@"(<[a-zA-Z]+[^>]*>)|(</[a-zA-Z/d]+>)|()|( )|(&gt)");
str = regex.Replace(str, "");

前台程序：

<%@ Page language="c#" Codebehind="ShowPic.aspx.cs" AutoEventWireup="false" Inherits="WebApplication1.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
  <title>WebForm1</title>
  <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
  <meta content="C#" name="CODE_LANGUAGE">
  <meta content="JavaScript" name="vs_defaultClientScript">
  <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<BODY bgColor="#ffffff">
  <TABLE height="100%" cellSpacing="0" cellPadding="0" width="100%" border="0">
   <TR id="CanRunScript">
    <TD vAlign="top" width="50%" height="100%"><INPUT id="Hidden1" type="hidden" name="Hidden1" runat="server">   
     <INPUT id="Hidden2" type="hidden" name="Hidden2" runat="server">   
     <a id="Link" target="_blank"><IMG id="Img" height="150" width="180" border="0" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FILTER: revealTrans(duration=2,transition=6); BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid"> </a>
    </TD>
    <TD vAlign="middle" width="50%">
     <p style="TEXT-INDENT: 20pt; LINE-HEIGHT: 15pt" align="left"><font style="FONT-SIZE: 9pt; COLOR: black; FONT-FAMILY: 宋体; TEXT-DECORATION: none"><%=JianJie%></font><br>
      <A href="news_view.asp?newsid=<%=NewId%>" target=_blank >
       <p align="right"><font style="FONT-WEIGHT: bold; FONT-SIZE: 9pt; COLOR: #000099; FONT-FAMILY: 宋体; TEXT-DECORATION: none">详细内容请看...</font></p>
      </A>
     <P></P>
    </TD>
   </TR>
   <TR style="DISPLAY: none">
    <TD colSpan="2"><IMG id="TempImg" height="150" width="180" border="0" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FILTER: revealTrans(duration=2,transition=6); BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid"></TD>
   </TR>
  </TABLE>
  <SCRIPT language="VBScript">
  Dim FileList,FileListArr,LinkList,LinkArr
  FileList = document.all.Hidden1.value
  LinkList = document.all.Hidden2.value

   FileListArr = Split(FileList,",")
   LinkArr = Split(LinkList,",")
   Dim CanPlay
   CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5
   Dim FilterStr
   FilterStr = "RevealTrans(duration=2,transition=23)"
   FilterStr = FilterStr + ";BlendTrans(duration=2)"
   If CanPlay Then
   FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)"
   FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)"
   Else
   Msgbox "幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。",64
   End If
   Dim FilterArr
   FilterArr = Split(FilterStr,";")
   Dim PlayImg_M
   PlayImg_M = 5 * 1000 '切换时间（毫秒）
   Dim I
   I = 1
   Sub ChangeImg
   Do While FileListArr(I)=""
   I = I + 1
   If I>UBound(FileListArr) Then I = 0
   Loop
   Dim J
   If I>UBound(FileListArr) Then I = 0
   Randomize
   J = Int(Rnd * (UBound(FilterArr)+1))
   Img.style.filter = FilterArr(J)
   Img.filters(0).Apply
   Img.Src = FileListArr(I)
   Img.filters(0).play
   Link.Href = LinkArr(I)
   I = I + 1
   If I>UBound(FileListArr) Then I = 0
   TempImg.Src = FileListArr(I)
   SetTimeout "ChangeImg", PlayImg_M,"VBScript"
   End Sub
  </SCRIPT>
  <Script Language="VBScript">
   'NoScript.Style.Display = "none"
   CanRunScript.Style.Display = ""
   Img.Src = FileListArr(0)
   Link.Href = LinkArr(0)
   SetTimeout "ChangeImg", PlayImg_M,"VBScript"
  </Script>
</BODY>
</HTML>
后台：

using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
using System.Data.OleDb;

namespace WebApplication1
{
/// <summary>
/// WebForm1 的摘要说明。
/// </summary>
public class WebForm1 : System.Web.UI.Page
{
  protected System.Web.UI.HtmlControls.HtmlInputHidden Hidden1;
  protected System.Web.UI.HtmlControls.HtmlInputHidden Hidden2;
  public string JianJie;
  public int NewId=0;

  public void ReadMyData(string myConnString)
  {
   string TempString="";
   string mySelectQuery ="select top 3 pic from news where lm='12' and pic<>' ' order by ontop,id desc";
   OleDbConnection myConnection = new OleDbConnection(myConnString);
   OleDbCommand myCommand = new OleDbCommand(mySelectQuery,myConnection);
   myConnection.Open();
   OleDbDataReader myReader;
   myReader = myCommand.ExecuteReader();
   while (myReader.Read())
   {
    TempString=myReader.GetString(0).ToString();
    Hidden1.Value+=TempString+",";
   }
   myReader.Close();
   myConnection.Close();
   Hidden1.Value.Remove(Hidden1.Value.Length-1,1);

  }

  public void ReadMyDataUrl(string myConnString)
  {
   string TempString="";
   string mySelectQuery ="select top 3 id from news where lm='12' and pic<>' ' order by ontop,id desc";
   OleDbConnection myConnection = new OleDbConnection(myConnString);
   OleDbCommand myCommand = new OleDbCommand(mySelectQuery,myConnection);
   myConnection.Open();
   OleDbDataReader myReader;
   myReader = myCommand.ExecuteReader();
   int i=0;
   while (myReader.Read())
   {
    TempString="http://www.qhschool.com/pubnews/news_view.asp?newsid="+myReader.GetInt32(0).ToString();
    Hidden2.Value+=TempString+",";
    if(i==0) NewId=myReader.GetInt32(0);
    i++;

   }
   myReader.Close();
   myConnection.Close();
   Hidden2.Value.Remove(Hidden2.Value.Length-1,1);
  }

  public string ReadMe(string myConnString)
  {
   string TempString="";
   string mySelectQuery ="select top 1 content from news where lm='12' and pic<>' ' order by ontop,id desc";
   OleDbConnection myConnection = new OleDbConnection(myConnString);
   OleDbCommand myCommand = new OleDbCommand(mySelectQuery,myConnection);
   myConnection.Open();
   OleDbDataReader myReader;
   myReader = myCommand.ExecuteReader();

   while (myReader.Read())
   {
     TempString=myReader.GetString(0).ToString();

   }
   myReader.Close();
   myConnection.Close();
   return TempString;
  }

  private void Page_Load(object sender, System.EventArgs e)
  {
   // 在此处放置用户代码以初始化页面
   if(!IsPostBack)
   {
    ReadMyData("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("pubnews//data//newdata//admin.asp")+";User Id=admin;Password=;");
    ReadMyDataUrl("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("pubnews//data//newdata//admin.asp")+";User Id=admin;Password=;");

string str = ReadMe("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("pubnews//data//newdata//admin.asp")+";User Id=admin;Password=;");
    System.Text.RegularExpressions.Regex regex = new System.Text.RegularExpressions.Regex(@"(<[a-zA-Z]+[^>]*>)|(</[a-zA-Z/d]+>)|()|( )|(&gt)");
    str = regex.Replace(str, "");
    JianJie=str.Substring(1,80)+"...";
   }


  }

  #region Web 窗体设计器生成的代码
  override protected void OnInit(EventArgs e)
  {
   //
   // CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。
   //
   InitializeComponent();
   base.OnInit(e);
  }

  /// <summary>
  /// 设计器支持所需的方法 - 不要使用代码编辑器修改
  /// 此方法的内容。
  /// </summary>
  private void InitializeComponent()
  {
   this.Load += new System.EventHandler(this.Page_Load);

}
#endregion

}
}

wudixiaocaoren

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
做首页图片显示效果程序总结

实现了：1、图片的特效转换:从网上找到的特效代码，原文只有图片，没有链接，在新文化报www.xwhb.net找到了带链接的代码.VBS的，不是IE浏览器好像看不了。2、VBS与后台数据的交换用的是前台Hidden文本框的办法，要转为服务器端程序。后台才能读取到它的值。3、将HTML转为纯文字的正则：System.Text.RegularExpressions.Regex regex = new S
复制链接

扫一扫