本帖最后由 潘洪全 于 2010-02-09 19:32 编辑
先看图片,然后你再下载, 安装方法 上传到根目录后运行install.php进行安装!
本程序可直接使用腾讯抢车位的SWF文件,有需要的就自己添加!
申明下,压缩包内只是个txt的下载地址···你觉得DZ现在能把一个整包上传上来么? 土。。。
发一小部分后台代码...
<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><%=rsadd("autobrand")%></td>
<td align=center><%=rsadd("autoworth")%>元</td>
<td align=center><%=rsadd("autott")%>L</td>
<td align=center><div align="center">
<object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.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="http://www.adobe.com/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>辆车][每页"&age_Size&"辆]")
end if
%></td> </r>
<tr>
</tr>
</table>
|