做首页图片显示效果程序总结
2005-06-27 09:42
656 查看
实现了：
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]+>)|(<!--[^~]*-->)|( )|(>)");
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]+>)|(<!--[^~]*-->)|( )|(>)");
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
}
}
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]+>)|(<!--[^~]*-->)|( )|(>)");
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]+>)|(<!--[^~]*-->)|( )|(>)");
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
}
}
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 一个不错的，JavaScript代码，显示首页图片幻灯片效果
- 微信小程序 图片在真机不显示跳坑总结
- 单纯的使用一张图片，设置为 SplashScreen 的方式我已经使用过了，是有效果的，但是现在我想更进一步的显示出当前程序的状态，如正在初始化设备，这类的状态
- 一个不错的，JavaScript代码，显示首页图片幻灯片效果
- sina首页广告效果-JavaScript写让图片/一句话只显示3秒
- qt程序实现多个图片连续显示效果像动画一样
- 2440test测试程序中图片和汉字显示总结
- jQuery制作鼠标经过显示图片大图，生成图片tips效果
- 为Symbian程序中的图片增加半透明效果
- 参考课堂案例jquery图片滚动效果实现微博首页内容滚动效
- universal-image-loader加载图片，程序异常崩溃，图片不在加载显示问题
- Android 使用开源库StickyGridHeaders来实现带sections和headers的GridView显示本地图片效果
- web小项目---图片显示实时在线人数小程序
- 京东首页很炫的js效果、图片自动滑动，悬停效果，鼠标离开效果
- 【Android】首页图片轮播效果(淘宝、京东首页广告效果)
- 第二弹：微信小程序开发思考总结—“文章阅读器和电影信息”项目实践---配置、首页面开发
- 鼠标经过的图片高亮显示，其余变暗效果[xyytit]
- BMP图片显示程序
- ASP程序给上传的图片增添水印效果!
- 安卓应用开发实战：[2]修改程序名称&标题我们首先看一下程序没修改之前的应用名称和标题的显示效果，可见默认是用工程名字来命名的。