⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 一个有用的东西 希望大家喜欢 谢谢大家对本站的支持
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="mfk_body.asp"-->
<html>
<head>
<title><%=title1%>--预订首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%sub vote
  set voters=conn.execute("select * from vote")	
	all1 = 0
	if not(voters.eof and voters.bof) then
		all1 = all1 + voters("tickets1") + voters("tickets2") + voters("tickets3") + voters("tickets4") + voters("tickets5") + voters("tickets6")
	else
	response.redirect "error.asp?errormsg=<li>严重错误！</li><br><li>无投票项目，或者投票项目在刚刚被删除！</li><br><li>如果你是管理员，看到这条信息，可能是你未设置投票而启用了投票功能！</li><br><li>请立即更改搞票设置，已勉造成暂时性的首页无法访问！</li>"
	end if
%>
<table width='220' border='0' cellpadding='0' cellspacing='0'>
    <tr>
      <td width="27" height=11 align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
      <td width="166" align='center' background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
      <td width="27" align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
    </tr>
</table>
<table width='220' border='0' cellpadding='0' cellspacing='0' class="lefttablebox"><tr><td colspan="2">
  <form action='vote.asp?action=add' method=post>
    <tr>
      <td width="30" height=24>&nbsp;</td>
      <td width="188">站 内 调 查</td>
    </tr>
    <tr><td height=26 colspan="2" class="lefttable1">　<%=voters("topic")%></td></tr><tr><td colspan="2" class="lefttable1">
<%
if voters("option1")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option1")&"' checked>"&voters("option1")&"<br>")
end if
if voters("option2")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option2")&"'>"&voters("option2")&"<br>")
end if
if voters("option3")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option3")&"'>"&voters("option3")&"<br>")
end if
if voters("option4")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option4")&"'>"&voters("option4")&"<br>")
end if
if voters("option5")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option5")&"'>"&voters("option5")&"<br>")
end if
if voters("option6")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option6")&"'>"&voters("option6")&"<br>")
end if
%>
</td></tr><tr><td height=28 colspan="2" align=center class="lefttable1"><input name=submit type='submit' class="mfk_button" value='投  票'>
　　    <input name=button type='button' class="mfk_button" onClick=window.location='vote.asp?action=look' value='结  果'></td></tr>
</form>
  <tr>
    <td height="4" colspan="2" class="lefttable1">  
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width="220" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="8"></td>
  </tr>
</table>
<%end sub
sub lxwc
qq1="select id,fax,address,qq,email,dianhua from master where id=1"
set qqrs=conn.execute(qq1)
%>
<table width='220' border='0' cellpadding='0' cellspacing='0'>
    <tr>
      <td width="27" height=11 align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
      <td width="166" align='center' background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
      <td width="27" align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
    </tr>
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td width="30" height="24">&nbsp;</td>
    <td width="188">联 系 我 们</td>
  </tr>
  <tr>
    <td height="22" colspan="2" class="lefttable1">　电话：<%=mfkiqpl(qqrs("dianhua"))%></td>
  </tr>
  <tr>
    <td height="22" colspan="2" class="lefttable1">　传真：<%=mfkiqpl(qqrs("fax"))%></td>
  </tr>
  <tr>
    <td height="22" colspan="2" class="lefttable1">　地址：<%=mfkiqpl(qqrs("address"))%></td>
  </tr>
  <tr>
    <td height="22" colspan="2" class="lefttable1">　Email：<%=mfkiqpl(qqrs("email"))%></td>
  </tr>
  <tr>
    <td height="22" colspan="2" class="lefttable1">　在线QQ：<%=mfkiqpl(qqrs("qq"))%></td>
  </tr>
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width="220" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="8"></td>
  </tr>
</table>
<%
closers(qqrs)
end sub
sub hotxl
hot="select top 5 id,x_name,x_n from xianlu order by x_n desc"
set hotrs=conn.execute (hot)
%>
<table width='220' border='0' cellpadding='0' cellspacing='0'>
    <tr>
      <td width="27" height=11 align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
      <td width="166" align='center' background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
      <td width="27" align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
    </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td width="30" height="24">&nbsp;</td>
    <td width="188">最 热 线 路 </td>
  </tr>
  <tr>
    <td height="24" colspan="2" class="lefttable1">
	<table border="0" cellpadding="0" cellspacing="0">
 <%
 while not hotrs.eof
dim x_name
x_name=hotrs("x_name")
if len(x_name)>16 then
x_name=left(x_name,14)&"..."
end if
 %>
  <tr>
    <td width="15" height="24" align="center"><img src=images/dot3.gif width="5" height="5"></td>
    <td><a href=listxianlu.asp?id=<%=hotrs("id")%> title='共有： <%=hotrs("x_n")%> 人查看'><%=mfkiqpl(x_name)%></a></td>
  </tr>
<%
hotrs.movenext
wend
%>
</table>
	</td>
  </tr>
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width="220" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="8"></td>
  </tr>
</table>
<%
closers(hotrs)
end sub
sub newxl
%>
<table width='220' border='0' cellpadding='0' cellspacing='0'>
    <tr>
      <td width="27" height=11 align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
      <td width="166" align='center' background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
      <td width="27" align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
    </tr>
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td width="30" height="24">&nbsp;</td>
    <td width="188">最 新 线 路</td>
  </tr>
  <tr>
    <td colspan="2" class="lefttable1">
<table border="0" cellspacing="0" cellpadding="0">
<%
new1="select top "&rsize&" id,x_name from xianlu order by id desc"
set newrs=conn.execute (new1)
while not newrs.eof
dim x_name1
x_name1=newrs("x_name")
if len(x_name1)>16 then
x_name1=left(x_name1,14)&"..."
end if
%>
  <tr>
    <td width="15" height="24" align="center"><img src=images/dot5.gif width="5" height="5"></td>
    <td><a href=listxianlu.asp?id=<%=newrs("id")%>><%=mfkiqpl(x_name1)%></a></td>
  </tr>
<%
newrs.movenext
wend
closers(newrs)
%>
</table>
	</td>
  </tr>
</table>

<table width="220" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width="220" border="0" cellspacing="0" cellpadding="0">
  <tr>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -