网页视频播放器程序代码（通用代码）

【原文】

在繁忙的都市中，有一个名叫林浩的年轻人，他怀揣着梦想和热情，每天都在追逐着自己的目标。他的生活充满了挑战和机遇，他从不放弃任何一个成长的机会。

林浩是一名有着远大抱负的创业者，他创立了自己的公司，带领着一群志同道合的伙伴，共同奋斗。他的公司致力于开发创新的科技产品，以改善人们的生活质量。林浩深知创业之路充满艰辛，但他始终保持着乐观向上的心态，不断激励着团队向前。

在工作中，林浩是一个勤奋努力的人。他常常加班加点，甚至牺牲自己的休息时间，以确保项目的顺利进行。他对待每一个细节都极其认真，追求卓越的品质和完美的成果。他的努力得到了同事们的认可和尊重，也赢得了客户们的信任和支持。

除了工作，林浩还有着丰富的业余生活。他喜欢运动，经常参加各种体育活动，如篮球、足球等。他还是一个音乐爱好者，喜欢弹奏吉他，并尝试自己创作歌曲。这些爱好让他的生活更加充实和多彩。

在林浩的身上，我们看到了一个年轻人的奋斗和拼搏。他用自己的行动诠释着梦想和热情的力量。他敢于面对挑战，勇于追求自己的梦想。他的故事激励着更多的人勇往直前，追求自己的理想。

在这座快节奏、充满活力的都市里，有一位名叫林浩的年轻人，他的生活就像一部充满激情的奋斗史。怀揣着远大的梦想，每天都在追逐自己的目标，犹如一颗永不熄灭的明星，在广阔的天空中熠熠生辉。

林浩，这位有着雄心壮志的创业者，以坚定的信念创立了属于自己的公司。他引领着一群志同道合的伙伴，共同科技的无限可能，致力于开发创新的产品，为人们的生活带来更多的便利和乐趣。尽管创业的道路充满艰辛和挑战，但他始终保持着乐观的心态，用他的热情和毅力激励着团队不断前行。

在工作中，林浩是一位勤奋而敬业的年轻人。他深知每一份付出都是通往成功的必经之路。常常加班加点，牺牲自己的休息时间，以确保项目的顺利进行。他对每一个细节都精益求精，追求卓越的品质和完美的成果。他的努力赢得了同事们的钦佩和尊重，也赢得了客户们的信任和支持。

业余时间，林浩的生活同样丰富多彩。他喜欢运动，在篮球、足球等体育活动中挥洒汗水，享受运动的快乐。他还是一个音乐爱好者，弹奏吉他的手指在琴弦上跳跃，创作出属于他自己的音乐。这些爱好让他的生活更加充实和多彩，也让他在面对挑战时更加坚韧不拔。

林浩的故事就像一面旗帜，激励着更多的年轻人勇往直前，追求自己的理想。他的奋斗和拼搏精神，以及他对梦想的热情和执着，让我们看到了一个真正的勇者形象。他是现代年轻人的榜样，用他的行动诠释着青春的力量。函数名：SelPlay

作用：在网页中播放视频

参数：

strUrl —— 视频地址

strWidth —— 显示视频宽度

strHeight —— 显示视频高度

代码实现：

```vbscript

Sub SelPlay(strUrl, strWidth, strHeight)

Dim Exts, isExt

If strUrl <> "" Then

isExt = LCase(Mid(strUrl, InStrRev(strUrl, ".") + 1))

Else

isExt = ""

End If

Exts = "avi,wmv,asf,mov,rm,ra,ram"

If InStr(Exts, isExt) = 0 Then

Response.write "非法视频文件"

Else

Select Case isExt

Case "avi", "wmv", "asf", "mov"

Response.write ""

Case "mov", "rm", "ra", "ram"

Response.Write "" ' 结束OBJECT标签的书写

' 再次写入一个较小的OBJECT标签用于控制条和状态栏的显示

' 参数设置与上一个OBJECT类似，可根据需求调整

End Select

End If

End Sub

```

调用程序代码：

```vbscript

Call SelPlay(DvUrl, 280, 220)

```

此函数用于在网页中播放视频，根据传入的视频地址、宽度和高度参数，生成相应的嵌入代码并输出。根据视频文件的不同格式，使用不同的嵌入标签进行展示。对视频文件扩展名进行验证，非法格式将提示错误信息。函数整体保持了原意，并且转化为了更加生动、丰富的文本形式。