ASP+ACCESS酒店预定管理系统

【摘要】宏都大酒店管理信息系统中不能通过互联网方式进行客房预订，通过本次设计主要实现通过互联网方式进行客房预订。让客户足不出户坐在家里就能预订出自己想要的客房。主要功能有：酒店简介、客房简介、客房报价、客房预订信息提交，预订信息查询及修改，删除，等等）管理员信息查询、回复预订信息等功能，真正实现酒店的无纸化，电子信息化、无距离限制的进行客房信息的预订。

本软件的后台数据库也采用微软公司的大型数据库SQLSERVER2000，与原C/S系统的数据库SQLSERVER2000相同，进行了一次无缝链接，也就是说在原有SQLSERVER2000数据库上面进行适当的添加表，使得能保持在原来的系统的基础上进行升级。

【关键字】数据库应用与开发 asp ACCESS2000 SQLSERVEER2000 B/S模式客房预订

3.1 设计实现的策略和算法描述

系统的总体任务是实现客房预订管理信息系统的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。本系统中主要完成的功能主要有：

A：酒店简介，能让客户能够对酒店有一个了解，比地理位置、规模、档次等。

B:客房信息查询，能够在网上了解到客房的样子、客房的档次。

C:客房价格的查询,让客户能够知道他根据自身的情况订购出适合自己的客房。

D:客房的预订登记。

E:管理员密码验证、管理员回复预订信息、管理员删除预订信息以及修改预订信息及修改管理员的用户名和密码。

F:系统功能模块设计

对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图系统功能模块图：

4.1各模块详述系统各部分的实现方法

宏都大酒店简介，主要功能是让客户了解宏都大酒店的规模情况。

主要功能，显示宏都大酒店客房情况，包括点击放大图片，查询房价、或预订房间。

功能是显示房间的价格，让客户了解房价的情况。

客房的预订登记信息

4.2 程序流程

page = Request.QueryString("page")

action = Request.QueryString("action")

action_e = Request.Form("action_e")

set Conn=Server.CreateObject("ADODB.Connection")’ 连接数据库

Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\data\data.mdb")

%>’ “\data\data.mdb”指定数据库的路径

<html>

<head>

<title>宏都大酒店客房网上预订管理系统</title>

<!--

body {

background-image: url(../bg_p1.gif);

}

.style4 {color: #990000}

body,td,th {

color: #666666;

}

.style5 {

color: #666666;

font-weight: bold;

}

.style7 {color: #FF3300}

-->

</style>

</head>

<!--

function reloadPage(init) {

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.pgW=innerWidth; document.pgH=innerHeight; οnresize=reloadPage; }}

else if (innerWidth!=document.pgW || innerHeight!=document.pgH) location.reload();

}

reloadPage(true);

function jumpMenu(targ,selObj,restore){

eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");

if (restore) selObj.selectedIndex=0;

}

function openBrWindow(theURL,winName,features) {

window.open(theURL,winName,features);

}

function get_cookie(Name){

var search = Name + "="

var returnvalue = "";

if (document.cookie.length > 0) {

offset = document.cookie.indexOf(search)

if (offset != -1) {

offset += search.length

end = document.cookie.indexOf(";", offset);

if (end == -1)

end = document.cookie.length;

returnvalue=unescape(document.cookie.substring(offset,end))

}

return returnvalue;

}

function swapImgRestore() {

var i,x,a=document.sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;

}

function preloadImages() {

var d=document; if(d.images){ if(!d.p) d.p=new Array();

var i,j=d.p.length,a=preloadImages.arguments; for(i=0; i<a.length; i++)

if (a[i].indexOf("#")!=0){ d.p[j]=new Image; d.p[j++].src=a[i];}}

}

function findObj(n, d) {

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);

if(!x && document.getElementById) x=document.getElementById(n); return x;

}

function swapImage() {

var i,j=0,x,a=swapImage.arguments; document.sr=new Array; for(i=0;i<(a.length-2);i+=3)

if ((x=findObj(a[i]))!=null){document.sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}

}

//-->

</script>

</table>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<div align="center"><strong>宏都大酒店客房网上预订管理系统</strong>

<br>

 欢迎您使用宏都大酒店客房预订系统！在本系统您可方便地在网上预订宏都大酒店客房。您只需按提示填完下面订房表并发送至宏都大酒店销售部，我们将尽快给您答复。请务必将您的E-mail地址或电话、传真告诉我们，以便联系。若您有任何问题或要求，请<a href="mailto:info@hd_hotel.com">与我站联系</a>。<strong><br>

</strong></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'主程序

Select Case action_e

Case ""

Case "Add_New" ‘添加客房预定的信息

Call Add_New_Execute() 调用客房预订的函数

Case "reply" ‘客房预订的回复

Call Reply_Execute() 调用客房预订的函数

Case "admin" ‘管理员登录

Call Admin_Login_Execute() 调用管理员登录模块

Case "EditPWD" 修改当前操作员密码

Call EditPWD_Execute() 调用修改当前操作员密码模块

Case "Edit" 修改预订信息

Call Edit_Execute() 调用修改预订信息

End Select

Call Main_Menu() 进入管理员调用主菜单

Select Case action ‘选择调用情况

Case "UbbHelp"

Call UbbHelp()

Case "Admin_Login" 管理员登录

Call Admin_Login() 调用管理员登录模块

Case "Exit" 如果选择退出管理员登录

Call Exit_Admin() 调用了退出管理员登录

Call View_Words() 调用浏览预订信息浏览模块

Case ""

Call View_Words() 调用浏览预订信息浏览模块

Case "Add_New" 如果是“添加预订信息”

Call Add_New() 调用“添加预订信息”

Case "reply" 如果是回复预订信息

Call Reply() 调用回复预订信息模块

Case "View_Words"如果是浏览预订信息

Call View_Words()调用浏览预订信息模块

Case "Delete"如果是删除预订信息

Call Delete() 调用删除预订信息模块

Call View_Words() 调用预订浏览信息模块

Case "EditPWD" 如果是是修改密码

Call EditPWD() 调用修改密码模块

Case "Edit" 如果是编辑预订信息

Call Edit() 调用编辑预订信息模块

End Select

Call Copyrights() 调用版权信息

%> </td>

</tr>

</table>

<tr>

<td align="center" bgcolor="#F0F0F0" height="22"> <font color="#000000"> 程序设计：康宾 

大丰广播电视大学</font>

</td>

</tr>

<tr>

</tr>

</table></td>

</tr>

</table>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'添加一条新预订信息

<% Sub Add_New() %>

<tr>

</tr>

<tr>

<P align="left"><STRONG><FONT color=#ff0000>(</FONT><FONT color=#ff0000

size=2>填表时请注意：凡标有*的项目为订房必需内容)</FONT></STRONG></P>

<P align="left"><FONT face=宋体>姓名</FONT><FONT face=宋体 size=2> <INPUT

maxLength=256 size=15 name=姓名> </FONT><FONT face=宋体 color=#ff0000

size=2>* </FONT><FONT face=宋体 color=#ff0000><FONT

color=#000000>公司</FONT> <INPUT maxLength=256 size=35 name=公司>

</FONT></P>

<P align="left"><FONT face=宋体>地址</FONT><FONT face=宋体 size=2> <INPUT

maxLength=256 size=35 name=地址> </FONT></P>

<P align="left"><FONT face=宋体>城市</FONT><FONT face=宋体 size=2> <INPUT

maxLength=256 size=15 name=城市> </FONT><FONT face=宋体>省份</FONT><FONT

face=宋体 size=2> <INPUT maxLength=256 size=15 name=省份> </FONT></P>

<P align="left"><FONT face=宋体>国别</FONT><FONT face=宋体 size=2> <INPUT

maxLength=256 size=15 name=国别> </FONT><FONT face=宋体>邮政编码

</FONT><FONT face=宋体 size=2><INPUT maxLength=256 size=15 name=邮编>

</FONT></P>

<P align="left"><FONT face=宋体>E-Mail 地址</FONT><FONT face=宋体 size=2> <INPUT

maxLength=256 size=35 name=email> </FONT><FONT face=宋体 color=#ff0000

size=2>* </FONT></P>

<P align="left"><FONT face=宋体>电话</FONT><FONT face=宋体 size=2> <INPUT

maxLength=256 size=15 name=电话> <FONT

color=#ff3366>*</FONT></FONT></P>

<P align="left"><FONT face=宋体>传真 </FONT><FONT face=宋体 size=2><INPUT

maxLength=256 size=15 name=传真> </FONT></P>

<FONT color=#ff0000>* </FONT>离开日期 <INPUT maxLength=256 size=10

name=离开日期> </FONT><FONT face=宋体 color=#ff0000 size=2>* </FONT></P>

<FONT color=#ff0000>* </FONT>房间数 <INPUT maxLength=256 size=2

name=房间数> <FONT color=#ff0000>* </FONT>入住成人数 <INPUT

maxLength=256 size=2 name=入住成人数> </FONT><FONT face=宋体

color=#ff0000>* </FONT></P>

<P align="left"><FONT face=宋体>客房类型 <SELECT size=1 name=房间类型> <OPTION

selected>套房</OPTION> <OPTION>三人间</OPTION> <OPTION>豪华单人间</OPTION>

<OPTION>标准间</OPTION> <OPTION>商务套房</OPTION></SELECT> 床位要求 <SELECT

size=1 name=床位要求> <OPTION value=bed-plus-not selected>不加床</OPTION>

<OPTION value=bed-plus>加床</OPTION></SELECT> 请您 <a target="_blank" href="fjjs.asp">查看客房</a> 或

<P align="left"><FONT face=宋体>支付方式 <SELECT size=1 name=支付方式> <OPTION

value=RM selected>人民币</OPTION> <OPTION value=CK>支票</OPTION>

</FONT><FONT face=宋体

color=#ff0000 size=2>* </FONT></P>

<P align="left">您若有其他特殊要求，请留言：(您的预订将在宏都大酒店回复后生效) </P><FONT size=2>

</FONT></P></FONT>

</tr>

</tr>

</form>

</table>

<br>

<% End Sub %>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'管理员回复预订信息

<% Sub Reply() %>

<tr>

<font color="#000000">回复预订信息</font>

</td>

</tr>

<tr>

预订信息内容：

</td>

<td>

</td>

</tr>

</td>

</tr>

</form>

</table>

<% End Sub %>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

<% Sub Main_Menu() %>

<tr>

<% If Session("Admin")="Login" Then %>

<% Else %>

<% End If %>

  <% If Session("Admin")="Login" Then %>

<% End If %> </td>

</tr>

</table>

<br>

<% End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'查看预订信息

Sub View_Words()

Set Rs = Server.CreateObject("ADODB.RecordSet")

Sql="Select * From words Order By 日期 Desc"

Rs.Open Sql,Conn,1,1

if rs.recordcount=0 then

Response.Write"没有预订信息！"

Response.End

end if

TotalRecord=Rs.RecordCount

Rs.PageSize =10 '每页显示预订的数目

PageSize = Rs.PageSize

PageCount=Rs.PageCount

If page="" Then

Rs.AbsolutePage = 1

Else

Rs.AbsolutePage = page

End If

<tr>

</tr>

</table>

<tr>

</tr>

</table>

<br>

do while i < PageSize And not rs.eof

<tr>

</tr>

<tr>

<%If Rs("公司")<>"" Then%>

<td colspan="3"><b><font color="#FF3300"><a href="<%=Rs("公司")%>" target="_blank"><%=Rs("公司")%></a></font></b></td>

<%End If%>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<%If Rs("回复")<>"" Then%>

</td>

<%End If%>

</tr>

<tr>

<% If Session("Admin") = "Login" Then %>

<% End If %>

</td>

</tr>

</table>

<tr>

</tr>

</table>

rs.movenext

i=i+1

loop

Rs.Close

Set Rs = Nothing

<tr>

<td align="right" height="20">共有<%=TotalRecord%>条预订信息分页

For m = 1 To PageCount

[<a href="ydgl.asp?page=<%=m%>"><%=m%></a>]

</td>

</tr>

</table>

<% End Sub %>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'管理员登陆接口

<% Sub Admin_Login() %>

<br>

<tr>

</tr>

<tr>

用户名：

</td>

</td>

</tr>

<tr>

密码：

</td>

</td>

</tr>

</td>

</tr>

</form>

</table>

<br>

<% End Sub%>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Copyrights()

End Sub

<%Sub UbbHelp()%>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

<%End Sub%>

</div>

<%Sub EditPWD()%>

<tr>

</tr>

<tr>

</td>

</tr>

<tr>

</td>

</tr>

<tr>

<td align="right" valign="middle" width="105" height="38">确认新用户名：</td>

</td>

</tr>

<tr>

</td>

</tr>

<tr>

</td>

</tr>

<tr>

<td align="right" valign="middle" width="105" height="38">确认新密码：</td>

</td>

</tr>

</td>

</tr>

</form>

</table>

<%End Sub%>

<% Sub Edit() %>

Set Rs = Server.CreateObject("ADODB.RecordSet")

Sql="Select * From words Where 编号="&Request.QueryString("id")

Rs.Open Sql,Conn,1,1

<tr>

<td colspan="2" align="center"> 编辑预订信息</td>

</tr>

<tr>

<td align="right" valign="top"> 来客预订内容： </td>

<td>

</td>

</tr>

</td>

</tr>

</tr>

</form>

</table>

<% End Sub %>

</body>

</html>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'添加新预订信息到数据库

Sub Add_New_Execute()

If Request.Form("姓名")="" Then

Response.Write "<br>错误类型： 姓名不能为空"

Response.Write "<br>"

Response.Write "<a href=""ydgl.asp?action=Add_New""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"

Response.End

End If

If Len(Request.Form("姓名"))>20 Then

Response.Write "<br>错误类型： 姓名不能太长"

Response.Write "<br>"

Response.End

End If

Set Rs = Server.CreateObject("ADODB.RecordSet")

Sql="Select * From words"

Rs.Open Sql,Conn,2,3

Rs.AddNew

Rs("姓名")=Server.HTMLEncode(Request.Form("姓名"))

Rs("公司")=Server.HTMLEncode(Request.Form("公司"))

Rs("地址")=Server.HTMLEncode(Request.Form("地址"))

Rs("城市")=Server.HTMLEncode(Request.Form("城市"))

Rs("省份")=Server.HTMLEncode(Request.Form("省份"))

Rs("国别")=Server.HTMLEncode(Request.Form("国别"))

Rs("邮政编码")=Server.HTMLEncode(Request.Form("邮编"))

Rs("E-mail")=Server.HTMLEncode(Request.Form("email"))

Rs("电话")=Server.HTMLEncode(Request.Form("电话"))

Rs("传真")=Server.HTMLEncode(Request.Form("传真"))

Rs("入住日期")=Server.HTMLEncode(Request.Form("入住日期"))

Rs("离开日期")=Server.HTMLEncode(Request.Form("离开日期"))

Rs("入住夜数")=Server.HTMLEncode(Request.Form("入住夜数"))

Rs("房间数")=Server.HTMLEncode(Request.Form("房间数"))

Rs("入住成人数")=Server.HTMLEncode(Request.Form("入住成人数"))

Rs("客房类型")=Server.HTMLEncode(Request.Form("房间类型"))

Rs("床位要求")=Server.HTMLEncode(Request.Form("床位要求"))

Rs("支付方式")=Server.HTMLEncode(Request.Form("支付方式"))

Rs("请您留言")=Server.HTMLEncode(Request.Form("特殊要求"))

rs("日期")=date

Rs.Update

Rs.Close

Set Rs = Nothing

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'验证管理员登陆

Sub Admin_Login_Execute()

username = Server.HTMLEncode(Request.Form("username"))

password = Server.HTMLEncode(Request.Form("password"))

If username = "" OR password = "" Then

Response.Write "<br>错误类型： 用户名或者密码为空"

Response.Write "<br>"

Response.Write "<a href=""ydgl.asp?action=Admin_Login""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"

Response.End

End If

Set Rs = Server.CreateObject("ADODB.RecordSet")

Sql="Select * From admin"

Rs.Open Sql,Conn,1,1

If username = Rs("username") AND password = Rs("password") Then

Session("Admin") = "Login"

Else

Response.Write "<br>错误类型： 用户名或者密码不对，登陆失败"

Response.Write "<br>"

Response.End

End If

Rs.Close

Set Rs = Nothing

End Sub

Sub EditPWD_Execute()

oldusername=Server.HTMLEncode(Request.Form("oldusername")) ‘从客户端返回旧用户名

username = Server.HTMLEncode(Request.Form("username")) ‘从客户端返回新用户名

username_c = Server.HTMLEncode(Request.Form("username_c")) ‘从客户端再次返回新用户名

oldpwd = Server.HTMLEncode(Request.Form("oldpwd")) ‘从客户端返回旧密码

newpwd = Server.HTMLEncode(Request.Form("newpwd")) ‘从客户端返回新密码

newpwd_c = Server.HTMLEncode(Request.Form("newpwd_c")) ‘从客户端再次新密码

If username = "" OR username_c="" Then 如果新用户名或旧用户名为空的话则：

Response.Write "新旧用户名均不能为空" 提示出错信息

Response.End ‘退出过程

End If

If oldpwd = "" OR newpwd = "" OR newpwd_c="" Then 如果新旧密码为空的话则

Response.Write "新旧密码均不能为空" 则提示出错信息

Response.End 退出过程

End If

If username<>username_c Then 如果两次新用户名输入不相同的话则

Response.Write "新填写的两个新用户名不一致，请重新填写" 提示出错信息

Response.End 退出过程

End If

If newpwd<>newpwd_c Then 如果两次新密码输入不同话则

Response.Write "新填写的两个密码不一致，请重新填写" 提示出错信息

Response.End 退出过程

End If

Set Rs = Server.CreateObject("ADODB.RecordSet") 生成一个ADODB对象

Sql="Select * From admin" 从ADMIN表中查询所有的记录

Rs.Open Sql,Conn,2,3

If Rs("password")=oldpwd And Rs("username")=oldusername Then如果旧用户名或旧密码与输入的用户名和密码相同的话，表示验证成功，则修改数据

Rs("username")=username 把新用户名给USERNAME字段

Rs("password")=newpwd 把新密码比给PASSWORD字段

Rs.Update 保存信息

Else 否则的话则显示错误信息

Response.Write "你的旧密码填写不对或者旧用户名不对，修改不成功" ‘显示错误信息

Response.End 退出过程

End If

Rs.Close ‘关闭数据库连接

Set Rs = Nothing ‘释放内存

End Sub ‘结束过程

Sub Exit_Admin()

Session.Abandon

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'删除数据

Sub Delete()

'删除数据

Conn.Execute("Delete * From words Where id="&Request.QueryString("id"))

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'回复信息添加到数据库

Sub Reply_Execute()

Set Rs = Server.CreateObject("ADODB.RecordSet") 创建一个ADODB对象

Sql="Select reply From words Where id="&Request.Form("id") 从预订信息中查询回复信息

Rs.Open Sql,Conn,2,3

Rs("回复") = Server.HTMLEncode(Request.Form("reply")) 将查询信息复值给“回复”字段

Rs.Update 保存信息

Rs.Close 关闭RS对象

Set Rs=Nothing释放内存

End Sub结束过程

Sub Edit_Execute() 修改预订回复

Set Rs = Server.CreateObject("ADODB.RecordSet")

Sql="Select * From words Where 编号="&Request.Form("id")

Rs.Open Sql,Conn,2,3

Rs("请您留言") = Server.HTMLEncode(Request.Form("特殊要求"))

Rs("回复") = Server.HTMLEncode(Request.Form("reply"))

Rs.Update

Rs.Close

Set Rs=Nothing

End Sub

Conn.Close

Set Conn = Nothing

function unHtml(content)

unHtml=content

if content <> "" then

unHtml=replace(unHtml,"&","&")

unHtml=replace(unHtml,"<","<")

unHtml=replace(unHtml,">",">")

unHtml=replace(unHtml,chr(34),""")

unHtml=replace(unHtml,chr(13),"<br>")

unHtml=replace(unHtml,chr(32)," ")

'unHtml=ubb(unHtml)

end if

end function

function Convert(ubb,CovT)

cText=ubb

startubb=1

do while Covt="url" or Covt="color" or Covt="font" or Covt="size"

startubb=instr(startubb,cText,"["&CovT&"=",1)

if startubb=0 then exit do

endubb=instr(startubb,cText,"]",1)

if endubb=0 then exit do

Lcovt=Covt

startubb=startubb+len(lCovT)+2

text=mid(cText,startubb,endubb-startubb)

codetext=replace(text,"[","["&chr(176),1,-1,1)

codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)

'codetext=replace(codetext,"{:em","{;em",1,-1,1)

codetext=replace(codetext,"/","/"&chr(176),1,-1,1)

select case CovT

case "color"

cText=replace(cText,"[color="&text&"]","<font color='"&text&"'>",1,1,1)

cText=replace(cText,"[/color]","</font>",1,1,1)

case "font"

cText=replace(cText,"[font="&text&"]","<font face='"&text&"'>",1,1,1)

cText=replace(cText,"[/font]","</font>",1,1,1)

case "size"

if IsNumeric(text) then

if text>6 then text=6

if text<1 then text=1

cText=replace(cText,"[size="&text&"]","<font size='"&text&"'>",1,1,1)

cText=replace(cText,"[/size]","</font>",1,1,1)

end if

case "url"

cText=replace(cText,"[url="&text&"]","<a href='"&codetext&"' target=_blank>",1,1,1)

cText=replace(cText,"[/url]","</a>",1,1,1)

case "email"

cText=replace(cText,"["&CovT&"="&text&"]","<a href=mailto:"&text&">",1,1,1)

cText=replace(cText,"[/"&CovT&"]","</a>",1,1,1)

end select

loop

startubb=1

startubb=instr(startubb,cText,"["&CovT&"]",1)

if startubb=0 then exit do

endubb=instr(startubb,cText,"[/"&CovT&"]",1)

if endubb=0 then exit do

Lcovt=Covt

startubb=startubb+len(lCovT)+2

text=mid(cText,startubb,endubb-startubb)

codetext=replace(text,"[","["&chr(176),1,-1,1)

codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)

'codetext=replace(codetext,"{:em","{;em",1,-1,1)

codetext=replace(codetext,"/","/"&chr(176),1,-1,1)

select case CovT

case "url"

cText=replace(cText,"["&CovT&"]"&text,"<a href='"&codetext&"' target=_blank>"&codetext,1,1,1)

cText=replace(cText,"<a href='"&codetext&"' target=_blank>"&codetext&"[/"&CovT&"]","<a href="&codetext&" target=_blank>"&codetext&"</a>",1,1,1)

case "email"

cText=replace(cText,"["&CovT&"]","<a href=mailto:"&text&">",1,1,1)

cText=replace(cText,"[/"&CovT&"]","</a>",1,1,1)

case "html"

codetext=replace(codetext,"<br>",chr(13),1,-1,1)

codetext=replace(codetext," ",chr(32),1,-1,1)

Randomize

rid="temp"&Int(100000 * Rnd)

cText=replace(cText,"[html]"&text,"代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext,1,1,1)

cText=replace(cText,"代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"[/html]","代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"</TEXTAREA><INPUT οnclick=runEx('"&rid&"') type=button value=运行此段代码 name=Button1 class='Tips_bo'> <INPUT οnclick=JM_cc('"&rid&"') type=button value=复制到我的剪贴板 name=Button2 class='Tips_bo'>",1,1,1)

case "img"

cText=replace(cText,"[img]"&text,"<a href="&chr(34)&"about:<img src="&codetext&" border=0>"&chr(34)&" target=_blank><img src="&codetext,1,1,1)

cText=replace(cText,"[/img]"," vspace=2 hspace=2 border=0 alt=::点击图片在新窗口中打开::></a>",1,1,1)

case "code"

cText=replace(cText,"[code]"&text,"以下内容为程序代码<hr noshade>"&codetext,1,1,1)

cText=replace(cText,"以下内容为程序代码<hr noshade>"&codetext&"[/code]","以下内容为程序代码<hr noshade>"&codetext&"<hr noshade>",1,1,1)

case "quote"

atext=replace(text,"[img]","",1,-1,1)

atext=replace(atext,"[/img]","",1,-1,1)

atext=replace(atext,"[swf]","",1,-1,1)

atext=replace(atext,"[/swf]","",1,-1,1)

atext=replace(atext,"[html]","",1,-1,1)