最新WEB游戏源码服务端(完整修改版)

2011WEB网页游戏服务端源码全集webgame源码，本人已测试，供大家下载
一、抢车位源码
[停车大战]ASP+ACCESS[带MSSQL]
版权声明：（停车大战V1.0 FOR DVBBS AC )
停车大战V1.0 FOR DVBBS版本，是由NDS.西域数码()于2008年11月开发，作者:SING_CEE
游戏演示地址/BBS
本游戏插件于2008年12月圣诞节前免费开放游戏源码，供开发爱好者体验和改进，无论你是使用还是改进本游戏都请保留这些文字声明，如果你有重大的改进或开发方面有什么难题请发信息给我。

安装步骤：
1.将DVBBS8
2.MDB中的4个数据表导入你的DVBBS数据库中。

2.拷贝所有文件和文件夹到DVBBS根目录。

3.在DVBBS后台插件管理论坛菜单管理新建菜单
标题：停车大战
注释版权：停车大战V1.0 西域数码
链接：parking.asp
插件ID:parking
能使用插件的用户组：1,2,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 4.提交
二次开发说明：
停车大战游戏使用ASP和FLASH AS 相结合
这是一种最新的WEB应用发展方向，这个游戏源码希望对WEB游戏初学者有所帮助。

欢迎有兴趣的开发者改进停车大战游戏插件，并请在新的版本中保留本文中的版权声明！目前停车大战游戏还有部分功能没有完善，比如游戏中赚取的金钱和论坛中的金币互相兑换功能，以及金钱奖励方式的更加合理化，增加后台管理（增加新车、增加新车位背景、奖励控制、汇率等管理）还有很多功能都需要大家一起来完善。

停车大战文件说明：
parking.asp 停车大厅游戏主文件
pkbuy.asp 购车
pkbuywnd.asp 购车窗体
pkchangewnd.asp 换车窗体
pkecwnd.asp 换金币窗体
pkfk.asp 罚款操作调用
pkhelp.asp 帮助
pknewsp.asp 读车位信息调用
pknextcar.asp 停车选择车
pkpostcar.asp 确认停车
pkreg.asp 注册游戏
pksellwnd.asp 出售窗体
pktop.asp 排行榜
目录parking
cars 各种车的SWF文件
image 所有图片
parking.swf 封装的FLASH文件
parking.swf是一个用FLASH AS3 封装的FLASH程序文件，他通过与ASP文件的通信读取和传递数据、参数。

具体如何传递数据可以通过研究pknewsp.asp（获取当前停车位信息） pknextcar（获取待停辆信息） pkpostcar.asp（停放车辆）pkfk.asp （罚款）这4个ASP 文件中的变量vNewLines和Request变量获得。

实在懒得在看一遍代码就简单说明一下吧：/
例如： pknextcar.asp
vnextcar =Request("nextcar") 就是读取从parking.swf返回的参数nextcar
返回数据给parking.swf ：
vNewLines = rs("mycarid")&"|"&rs("autoname")&"|"&rs("swfid")&"|"&maxcar&"|"&rs("autotyp e")
Response.Write "NewLines="&Server.URLEncode(vNewLines)&"&Result=OK"
数据表说明：将所有数据表导入 DVBBS82.MDB 详细结构字段说明见数据表结构备注
pk_auto 所有汽车资料
pk_miss 事件消息
pk_mycar 所有用户车的信息
pk_spaces 所有用户的车位信息
点击下载地址：抢车位源码[停车大战]ASP+ACCESS[带MSSQL]
2、魔兽网页游戏源码(asp)完整版
web魔兽源码支持纯access模式，也支持sqlserver。

我们这里只讨论纯access模式的架设。

所以游戏运行的
电脑上需要安装access数据库。

首先，点击AspMao.exe ，就可以启动netbox支持asp(如果你有iis的话就不要点击了，把代码放到iis根目录下)，访问http://127.0.0.1/main/
下面找到配置文件：FS_Inc/Const.asp
1、修改如下代码：
∙'-----会员系统是Sql数据库；1:SQL,0:ACCESS
∙Const G_IS_SQL_User_DB = "1"
复制代码
为
∙'-----会员系统是Sql数据库；1:SQL,0:ACCESS
∙Const G_IS_SQL_User_DB = "0"
复制代码
启用access模式。

2、修改
∙'-----会员数据库,后面不能带/,不带虚拟目录
∙Const G_User_DA TABASE_CONN_STR = "Server=.;User ID=saassword=123456;Data base=wow2"
复制代码
为
∙'-----会员数据库,后面不能带/,不带虚拟目录
∙Const G_User_DA TABASE_CONN_STR = "Foosun_Data/FS_ME.mdb"
复制代码
3、修改/main/lib/Line.asp
∙SqlNowString="GetDate()" '如果是SQL数据库请使用呢个
∙'SqlNowString="Now()" '如果是ACCESS数据库请使用呢个
复制代码
修改为
∙'SqlNowString="GetDate()" '如果是SQL数据库请使用呢个
∙
∙SqlNowString="Now()" '如果是ACCESS数据库请使用呢个
复制代码
注释掉sqlserver的sql函数语句
4、
修改/main/lib/Line.asp第43行
User_Conn.execute("Delete from [FS_ME_UsersOnline] where UserName='""' or UserNumber=' ""' or DateDiff("&SqlChar&"n"&SqlChar&",lasttime,"&SqlNowString&")>"&UserOnlineTime& " ")
注释掉这句删除超时在线用户的代码，这个在access里有问题。

好了，访问
http://127.0.0.1/main/
就可以显示登录页面了。

注册一个用户就可以进去玩了~
点击下载地址：魔兽网页游戏源码(asp)完整版
三、剑侠2外传（网页游戏源码）=外网=
剑侠外传源码安装步骤：
一、上传所有文件，注意：global.asa必须上传到网站的根
目录（虚拟目录），首先到首页注册好授权站长的帐号，然
后运行：http://江湖绝对路径/setup/setup.asp进入超级管
理，然后选择用户管理，将你的帐号设置成，门派：六扇门
；身份：掌门；等级：11然后进入系统设置进行其他项目的
设置！为确保安全设置好后务必将setup文件夹删除！
二、注意事项：
1、站长参数：门派：六扇门身份：掌门等级：11
2、特别注意：站长必须从站长安全登录口登录，并要求输入
密钥，非授权站长或者输入了错误的密匙从安全登录口登录
都将出现蓝屏死机，网管秘密登录口默认路径：http://江湖
绝对路径/mm.asp 也可以自行修改，注意保密，
密匙可以到站长管理-->系统设置-->更改密匙进行更改！默认
密匙为：1
3、找回密码功能需要服务器的***TP服务的支持，所以某些空
间未安装此组建使用时出现500内部错误属于正常，请找空间
服务商解决！关于服务器的安装组件可以用本江湖的test.asp
服务器探针测试得到！
点击下载地址：剑侠2外传（网页游戏源码）=外网=剑侠外传源码
Ogame私服(傻瓜式一键安装版本）
只要把这个程序上传后 .
在输入/install/ 就是你的域名。

只要跟流程来做写上你的数据库帐号和密码就好了！
点击下载地址：Ogame私服(傻瓜式一键安装版本）
四、仿QQ农场牧场（源码）
最新安装步骤:
1.将压缩包内文件解压，上传upload里的所有文件到相应文件夹（你的uchome根目录下）
2.到phpmyadmin导入
uchome_happyfarm_config.sql
uchome_happyfarm_mc.sql
uchome_happyfarm_nc.sql
数据库文件(如果前缀不是默认的uchome_替换成你的前缀否则农场无法连接调用mysql数据库)
3.在header.htm文件中，搜索“热闹”，并在后面加以下代码
<li><img src="image/app/farm.gif"><a href="happyfarm.php">开心农场</a></li>
5.更新UCH缓存，开始感受完美[QQ版]农场
6.补充说明：
修改开通牧场VIP等级：打开 happyfarm\index.php 文件查找 reqYellowlevel 修改后面的数字
1、修改开通牧场VIP等级：
打开 happyfarm\index.php 文件查找 reqYellowlevel 修改后面的数字
2、名称乱码：
搜索:happyanimal.php 和 happyfarm.php 里的函数 unicode_encodegb 替换为 unicode_encode
3、作物/动物介绍，说话乱码：
打开 happyfarm\module\nc\ini.x文明用语，happyfarm\module\mc\ini.x文明用语另存为utf-8 编码格式
4、公告修改
打开 :happyfarm.php 查找:getNotice 下面找到 :
echo "{\"id\":".$_SGLOBAL['timestamp'].",\"content\":\"\\u63D0\\u793A\\uFF1A\\u5929\\u6C14 \\u8F6C\\u51B7\\uFF0C\\u8BF7\\u591A\\u70E4\\u706B\\uFF0C\\u5C11\\u4E0A\\u7F51\\uFF0C\ \u5C11\\u5077\\u83DC\\uFF0C\\u7231\\u62A4\\u597D\\u81EA\\u5DF1\\u7684\\u8EAB\\u4F53\\ u3002 --- \\u519C\\u573A\\u7BA1\\u7406\\u5458\",\"time\":".$_SGLOBAL['timestamp'].",\"code \":1}";
使用工具: Unicode中文互转，进行修改
5、关于注册默认VIP等级在数据库初始值上修改. 暂时未做文本配置.
6、关于装饰反复购买和刷经验问题都是假像.由于还没完成YB购买的代码所以未对数据库操作.刷新就恢复
7、.简易管理后台如何使用
http://你的home地址/adminfarm.php
用户UID:为数字ID 不是帐号
8、一键摘取时间段设置打开 happyfarm\index.php 文件查找 "batchStealHour" 修改后面的参数. 注意按照格式
9、.home主页动态提示名称显示编码修复
打开 happyfarm/happyfarm.php
查找 $touserspace[name] = unicode_encodegb( $touserspace[name] ); 删除此行
10、狗咬人的钱修改
查找：
$dog_money = $cropstype[$a][sale];
$int2_temp=rand(1,10);
if($int2_temp > 8)
上面的8 越小，咬人的几率越高
往下.......
{
$dog_money = $dog_money + round(20 * rand(1,30) / 5 ) * rand(1,2);
}
else
{
$dog_money = $dog_money + round(10 * rand(1,20) / 5);
rand是取随机数 round 是四舍五入
根据自己需要进行调节。

可以改rand（1，20）将后面的数字缩小，或者将数字5调大狗咬人的钱就少了！
点击下载地址：仿QQ农场牧场（源码）最新
五、Flash斗地主源码（网页斗地主源码）
网页版的在线三人斗地主游戏，Flash+PHP5+Mysql5，打开网页即可直接斗地主，无需下载客户端！
新增了提示、托管、记分牌、声音、时钟、好友邀请等功能。

点击下载地址：Flash斗地主源码（网页斗地主源码）
六、停车大战V1.0源码
软件类型：国产软件授权方式：共享软件界面语言：简体中文软件大小：5 MB 文件类型：.rar 运行环境：Win2003,WinXP,Win2000,Win9X 软件等级：★★★☆☆发布时间：2010-09-18 官
方网址：http:// 演示网址：http:// 下载次数：88
软件介绍
<%
dim i,page,rscount,pagea
page=request.QueryString("page")
if Request("action")="add" then
IF not isNumeric(request.form("pkmoney")) then
response.write "<script language=javascript>"
response.write "alert('error!请输入数字!');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" response.end
End if
IF not isNumeric(request.form("pktimemoney")) then
response.write "<script language=javascript>"
response.write "alert('error!请输入数字!');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" response.end
End if
IF not isNumeric(request.form("pktype")) then
response.write "<script language=javascript>"
response.write "alert('error!请输入数字!');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" response.end
End if
if trim(request.form("pkname"))="" then
response.write "<script language=javascript>"
response.write "alert('请输入车名');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
if trim(request.form("pkgif"))="" then
response.write "<script language=javascript>"
response.write "alert('请输入车的gif');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
if trim(request.form("pkswf"))="" then
response.write "<script language=javascript>"
response.write "alert('请输入车的swf');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
if trim(request.form("pktt"))="" then
response.write "<script language=javascript>"
response.write "alert('请输入油耗');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
set rsadd=server.CreateObject("ADODB.RecordSet")
sqladd="select * from pk_auto"
rsadd.open sqladd,u_conn,1,3
rsadd.addnew
rsadd("autotype")=trim(request("pktype"))
rsadd("autoname")=trim(request("pkname"))
rsadd("autobrand")=trim(request("pkgif"))
rsadd("autoworth")=trim(request("pkmoney"))
rsadd("autott")=trim(request("pktt"))
rsadd("swfid")=trim(request("pkswf"))
rsadd("autotimemoney")=trim(request("pktimemoney"))
rsadd.update
rsadd.close
response.write "<script language=javascript>"
response.write "alert('添加样式成功!继续添加!');"
response.write "</script>"
response.write "<script
language=javascript>location='user_music_admin.asp?Adminclass=9'</scr ipt>"
rs.close
set rs=nothing
end if
if Request("action")="addmoney" then
IF not isNumeric(request.form("cmemoney")) then
response.write "<script language=javascript>"
response.write "alert('error!请输入数字!');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" response.end
End if
IF not isNumeric(request.form("userid")) then
response.write "<script language=javascript>"
response.write "alert('error!请输入数字!');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" response.end
End if
musicconn.Execute("UPDATE [pk_spaces] Set pkumoney = pkumoney
+"&request.form("cmemoney")&" where pkuid = "&request.form("userid")) response.write "<script language=javascript>"
response.write "alert('加钱成功!USERID="&request.form("userid")&" 金钱+"&request.form("cmemoney")&"元');"
response.write "</script>"
response.write "<script
language=javascript>location='user_music_admin.asp?Adminclass=9'</scr ipt>"
end if
if Request("action")="editpost" then
IF not isNumeric(request.form("pkmoney")) then
response.write "<script language=javascript>"
response.write "alert('error!请输入数字!');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" response.end
End if
if not isNumeric(request.form("pkid")) then
response.write "<script language=javascript>"
response.write "alert('错误！');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
IF not isNumeric(request.form("pktimemoney")) then
response.write "<script language=javascript>"
response.write "alert('error!请输入数字!');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" response.end
End if
IF not isNumeric(request.form("pktype")) then
response.write "<script language=javascript>"
response.write "alert('error!请输入数字!');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" response.end
End if
if trim(request.form("pkname"))="" then
response.write "<script language=javascript>"
response.write "alert('请输入车名');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
if trim(request.form("pkgif"))="" then
response.write "<script language=javascript>"
response.write "alert('请输入车的gif');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
if trim(request.form("pkswf"))="" then
response.write "<script language=javascript>"
response.write "alert('请输入车的swf');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
if trim(request.form("pktt"))="" then
response.write "<script language=javascript>"
response.write "alert('请输入油耗');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
if trim(request.form("pkid"))="" then
response.write "<script language=javascript>"
response.write "alert('错误！');"
response.write "</script>"
response.write "<script
language=javascript>location='javascript:history.back(1)'</script>" Response.End
end if
set rsadd=server.CreateObject("ADODB.RecordSet")
sqladd="select * from pk_auto where
autoid="&trim(request.form("pkid"))&""
rsadd.open sqladd,u_conn,1,3
rsadd("autotype")=trim(request("pktype"))
rsadd("autoname")=trim(request("pkname"))
rsadd("autobrand")=trim(request("pkgif"))
rsadd("autoworth")=trim(request("pkmoney"))
rsadd("autott")=trim(request("pktt"))
rsadd("swfid")=trim(request("pkswf"))
rsadd("autotimemoney")=trim(request("pktimemoney"))
rsadd.update
rsadd.close
set rsadd=nothing
response.write "<script language=javascript>"
response.write "alert('修改成功!');"
response.write "</script>"
response.write "<script
language=javascript>location='user_music_admin.asp?Adminclass=9&edit= "&trim(request.form("pkid"))&"&page="&trim(request.form("page"))&"#"& trim(request.form("pkid"))&"'</script>"
end if
IF Request("del")<>"" Then
musicconn.Execute("Delete From pk_auto Where autoid="&Request("del")) response.write "<script language=javascript>"
response.write "alert('删除成功！！');"
response.write "</script>"
response.write "<script
language=javascript>location='user_music_admin.asp?Adminclass=9'</scr ipt>"
Response.End
End IF
dim rspkinfo,pkid,pktype,pkname,pkgif,pkswf,pkmoney,pktimemoney,pktt
if Request("edit")<>"" and Request("edit")>0 then
Set rspkinfo = musicconn.Execute("Select * From [pk_auto] Where
autoid="&Request("edit")&"")
pkid=rspkinfo("autoid")
pktype=rspkinfo("autotype")
pkname=rspkinfo("autoname")
pkgif=rspkinfo("autobrand")
pkswf=rspkinfo("swfid")
pkmoney=rspkinfo("autoworth")
pktimemoney=rspkinfo("autotimemoney")
pktt=rspkinfo("autott")
rspkinfo.close
set rspkinfo=nothing
end if
%>
<table width="700" border="0" align="center" class="win_pm_table" cellpadding="0" cellspacing="1">
<tr>
<td height="25" bgcolor="#66FFFF" class="win_pm_table_top"><div align="left"><a href="?Adminclass=9">添加车子</a></div></td>
</tr>
<tr>
<td class="td1"><form action="?Adminclass=9&action=<%if
Request("edit")<>"" then %>editpost<%else%>add<%end if%>" method="post" name="form" >
<%if Request("edit")<>"" then %><input name="pkid" type="hidden"
id="pkid" value="<%=pkid%>"><%end if%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="15%" bgcolor="#CCFFCC">汽车类</td>
<td width="35%">
<select size=1 name="pktype" id="pktype">
<%if Request("edit")<>"" then %>
<option value="1" <%if pktype="1" then%>selected<%end if%>>微型车</option>
<option value="2" <%if pktype="2" then%>selected<%end if%>>小型车</option>
<option value="3" <%if pktype="3" then%>selected<%end if%>>紧凑型车</option>
<option value="4" <%if pktype="4"
then%>selected<%end if%>>中型车</option>
<option value="5" <%if pktype="5" then%>selected<%end if%>>大型车</option>
<option value="6" <%if pktype="6"
then%>selected<%end if%>>豪华车</option>
<option value="7" <%if pktype="7" then%>selected<%end
if%>>MPV</option>
<option value="8" <%if pktype="8"
then%>selected<%end if%>>SUV</option>
<option value="9" <%if pktype="9"
then%>selected<%end if%>>跑车</option>
<option value="10" <%if pktype="10"
then%>selected<%end if%>>VIP炫车</option>
<%else%>
<option value="1">微型车</option>
<option value="2">小型车</option>
<option value="3">紧凑型车</option>
<option value="4">中型车</option>
<option value="5">大型车</option>
<option value="6">豪华车</option>
<option value="7">MPV</option>
<option value="8">SUV</option>
<option value="9">跑车</option>
<option value="10">VIP炫车</option>
<%end if%>
</select>
</td>
<td width="25%">*必须填写</td>
<td width="15%">*</td>
</tr>
<tr>
<td bgcolor="#FFFFCC">汽车名</td>
<td><input name="pkname" type="text" class="input1"
id="pkname" size="15" value="<%=pkname%>"></td>
<td>*必须填写</td>
<td>*</td>
</tr>
<tr>
<td bgcolor="#F4EFCC">汽车图标</td>
<td><input name="pkgif" type="text" class="input1" id="pkgif" size="15" value="<%=pkgif%>">.gif</td>
<td>*必须填写</td>
<td>*</td>
</tr>
<tr>
<td bgcolor="#F4EFCC">汽车价格</td>
<td><input name="pkmoney" type="text" class="input1"
id="pkmoney" size="15" value="<%=pkmoney%>">元</td>
<td>*必须填写</td>
<td>*</td>
</tr>
<tr>
<td bgcolor="#FFFFCC">汽车油耗</td>
<td><input name="pktt" type="text" class="input1" id="pktt" size="15" value="<%=pktt%>">L(升)</td>
<td>*必须填写</td>
<td>*</td>
</tr>
<tr>
<td bgcolor="#FFFFCC">每分钟赚</td>
<td><input name="pktimemoney" type="text" class="input1"
id="pktimemoney" size="15" value="<%=pktimemoney%>">元</td>
<td>*必须填写</td>
<td>*</td>
</tr>
<tr>
<td bgcolor="#F4EFCC">SWFID</td>
<td><input name="pkswf" type="text" class="input1" id="pkswf" size="15" value="<%=pkswf%>">.swf</td>
<td>*必须填写</td>
<td>*</td>
</tr> </table>
<table width="400px" border="0" align="center" cellpadding="2" cellspacing="1">
<tr><td> <div align="center"><input name="page" type="hidden" id="page" value="<%=page%>">
<input type="submit" name="Submit" value="<%if
Request("edit")<>"" then %>修改<%else%>提交<%end if%>">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</form></td>
</tr>
<tr><td><form action="?Adminclass=9&action=addmoney" method="post" name="form" >UserId:<input name="userid" type="text" class="input1"
id="userid" size="6" value=""><input name="cmemoney" type="text" class="input1" id="cmemoney" size="8" value="5000"><input type="submit" name="Submit" value="加钱"></form></td></tr>
</table><br /><br />
<table width="700px" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="5%" bgcolor="#CCFFCC">序号</td>
<td width="12%" bgcolor="#CCFFCC">类型</td>
<td width="12%" bgcolor="#CCFFCC">车名</td>
<td width="10%" bgcolor="#CCFFCC">标志</td>
<td width="12%" bgcolor="#CCFFCC">价格</td>
<td width="12%" bgcolor="#CCFFCC">油耗</td>
<td width="12%" bgcolor="#CCFFCC">SWFID</td>
<td width="14%" bgcolor="#CCFFCC">1分钟赚</td>
<td width="11%" bgcolor="#CCFFCC">操作</td>
</tr>
<%
set rsadd=server.CreateObject("ADODB.RecordSet")
sqladd="select * from pk_auto order by autoworth desc"
rsadd.open sqladd,u_conn,1,1
if rsadd.eof and rsadd.bof then
response.write "<div align=center><font size=2>还没有车子
</font></div>"
else
rscount=rsadd.recordcount
rsadd.pagesize=50
Page_Size=rsadd.pagesize
pagea=rsadd.pagecount
page=request.QueryString("page")
if page="" then
page=1
else
page=cint(page)
if page<=0 then
page=1
end if
if page>rsadd.pagecount then
page=rsadd.pagecount
end if
end if
rsadd.absolutepage=page
i = 0
do while not rsadd.eof
%>
<tr>
<td align=center><%=rsadd("autoid")%><a
name="<%=rsadd("autoid")%>"></a></td>
<td align=center>
<%if rsadd("autotype") = "1" then %>微型车<%end if%>
<%if rsadd("autotype") = "2" then %>小型车<%end if%>
<%if rsadd("autotype") = "3" then %>紧凑型车<%end if%>
<%if rsadd("autotype") = "4" then %>中型车<%end if%> <%if rsadd("autotype") = "5" then %>大型车<%end if%>
<%if rsadd("autotype") = "6" then %>豪华车<%end if%> <%if rsadd("autotype") = "7" then %>MPV<%end if%>
<%if rsadd("autotype") = "8" then %>SUV<%end if%> <%if rsadd("autotype") = "9" then %>跑车<%end if%> <%if rsadd("autotype") = "10" then %>VIP炫车<%end if%>
</td>
<td align=center><%=rsadd("autoname")%></td>
<td align=center><img
src="/apps/car7m8/parking/image/<%=rsadd("autobrand")%>.gif"><br><%=r sadd("autobrand")%></td>
<td align=center><%=rsadd("autoworth")%>元</td>
<td align=center><%=rsadd("autott")%>L</td>
<td align=center><div align="center">
<object
classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="/pub/shockwave/cabs/flash/swf lash.cab#version=9,0,28,0" width="182" height="87">
<param name="movie"
value="/apps/car7m8/parking/cars/<%=rsadd("swfid")%>.swf">
<param name="quality" value="high">
<embed
src="/apps/car7m8/parking/cars/<%=rsadd("swfid")%>.swf"
quality="high"
pluginspage="/shockwave/download/download.cgi?P1_ Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="182" height="87"></embed>
</object>
</div></td>
<td align=center><%=rsadd("autotimemoney")%>元/分钟赚</td> <td><a
href="?Adminclass=9&edit=<%=rsadd("autoid")%>&page=<%=page%>">修改
</a> <a href="?Adminclass=9&del=<%=rsadd("autoid")%>"
onclick='javascript: return confirm("你确定要删除吗? ");'>删除
</a></div></td>
</tr>
<%
i=i+1
if i>=Page_Size then exit do
rsadd.movenext
loop
rsadd.close
set rsadd=nothing
%>
</table>
<table width="400px" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td>页次 <%
for i=1 to pagea
Response.Write("[<a href=?Adminclass=9&page="&i&">"&i&"</a>] ")
Next
Response.Write("[共有<font color=red>"&rscount&"</font>辆车][每页"&Page_Size&"辆]")
end if
%></td> </r>
<tr>
</tr>
</table>
</body>。