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

📄 add_info.asp

📁 CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
      end if
    end if
  end if
end if
%>

<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="<%=sitekeywords%>">
<meta name="description" content="<%=sitedescription%>">
<title>添加资讯 - <%=sitename%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<link href="skin/style_<%=trim(request.cookies("skin_color"))%>.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="2">
<noscript><iframe src="*.htm"></iframe></noscript>
<div align="<%=sitealign%>">
<!--#include file="title.asp" -->
<!--#include file="add_menu.asp" -->
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="760" height="90">
  <tr>
    <td class="add" align="center" width="200">添加资讯</td>
    <td class=t1 align="center" width="60"> </td>
    <td align="left" width="500"><%=msg_add_info%></td>
  </tr>
</table>
<table border="0" cellpadding="10" cellspacing="0" style="border-collapse: collapse" width="760">
  <tr>
    <td align="left" style="color: #FF0000; font-size: 10pt"><%=errormax%></td>
  </tr>
</table>  
<table border="1" cellpadding="5" style="border-collapse: collapse;" width="720" bordercolor="#FFFFFF">
  <form method="POST" action="?ok=y" name="add_info">
  <tr>
    <td width="200" align="center" height="6" bgcolor="#3399FF"></td>
    <td width="510" bgcolor="#CCCCCC"></td>
  </tr>
  <tr>
    <td width="200" align="center" height="35" bgcolor="#B3DEE8">所在城市:</td>
    <td bgcolor="#F5F5F5">
      <select name="city" style="width: 300" size="1">
        <option value='0'>请选择城市</option>
        <option value='0'>---------------------------------------</option>
<%
set rspov=server.CreateObject("adodb.recordset")
set rscity=server.CreateObject("adodb.recordset") 
rspov.open "select * from 省份 where 审核=1 order by 排名 asc",conn,1,1
  Do while not rspov.bof and not rspov.eof
    response.write "<option value='0' class='blue'>----- " &rspov("省份全称") & " -----</option>"
    rscity.open "select * from 城市 where 审核=1 and 省份='"& rspov("省份") &"' order by 排名 asc",conn,1,1
    Do while not rscity.bof and not rscity.eof
      if rscity("城市")=city then
        response.write"<option value='" &rscity("城市")& "' selected class='red'>--> "& rscity("城市") &" (" & rscity("区号") &")</option>"
      else
        response.write"<option value='" &rscity("城市")& "'>  "& rscity("城市") &" (" & rscity("区号") &")</option>"
      end if
      rscity.movenext
    loop
    rscity.close
    rspov.movenext
  loop
  rspov.close
set rspov=nothing
set rscity=nothing
%>
      </select><br>单项选择 <a style="color: #FF0000" href="add_city.asp">没有您所在的城市?</a>
    </td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">资讯类别:</td>
    <td bgcolor="#F5F5F5">
      <select size="1" name="leibie" style="width: 300">
        <option value="0">请选择类别</option>
        <option value='0'>---------------------------------------</option>
        <%set rsleibie=server.CreateObject("adodb.recordset")
        rsleibie.open "select * from 资讯类别 where 审核=1 order by 排名 desc",conn,1,1
        do while not (rsleibie.eof or rsleibie.bof)
          if cstr(rsleibie("类别编号"))=leibie then
            response.write"<option value='" &rsleibie("类别编号")& "' selected class='red'>" &rsleibie("类别名")& "</option>"
          else  
            response.write"<option value='" &rsleibie("类别编号")& "'>" &rsleibie("类别名")& "</option>"
          end if
          rsleibie.movenext
        loop
		rsleibie.close
		set rsleibie=nothing%>
      </select></br>单项选择
    </td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">资讯名称:</td>
    <td bgcolor="#F5F5F5">
      <input type="text" name="name" size="63" maxlength="16" value="<%=name%>"><br>最多<%=namemax%>字符</td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">资讯介绍:</td>
    <td bgcolor="#F5F5F5"><textarea rows="6" name="about" cols="61"><%=about%></textarea><br>最多<%=aboutmax%>字符</td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">资讯地址:</td>
    <td bgcolor="#F5F5F5"><textarea rows="5" name="address" cols="61"><%=address%></textarea><br>最多<%=addressmax%>字符</td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">公交线路:</td>
    <td bgcolor="#F5F5F5"><textarea rows="5" name="bus" cols="61"><%=bus%></textarea><br>最多<%=busmax%>字符</td>
  </tr>
    <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">消费情况:</td>
    <td bgcolor="#F5F5F5"><textarea rows="5" name="pay" cols="61"><%=pay%></textarea><br>最多<%=paymax%>字符</td>
  </tr>
    <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">资讯网站:</td>
    <td bgcolor="#F5F5F5">
	<input type="text" name="site" size="63" value="<%=site%>"><br>最多<%=sitemax%>字符,请输入完整的网址,包括前缀 http://,例如:<%=siteurl%></td>
  	</tr>
	<tr>
    <td align="center" height="35" bgcolor="#B3DEE8">联系电话:</td>
    <td bgcolor="#F5F5F5">
	<input type="text" name="tel" size="63" value="<%=tel%>"><br>最多<%=telmax%>字符</td>
  	</tr>
    <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">腾讯QQ:</td>
    <td bgcolor="#F5F5F5">
	<input type="text" name="qq" size="63" value="<%=qq%>"><br>只能填写QQ号码,最多<%=qqmax%>字符</td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">图 片 1:</td>
    <td bgcolor="#F5F5F5">
	<input type="text" name="pic1" size="63" value="<%=pic1%>"><br>图片地址,最多<%=picmax%>字符,包括前缀 http://,建议大小200*150(4:3)</td>
  </tr>
    <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">图 片 2:</td>
    <td bgcolor="#F5F5F5">
	<input type="text" name="pic2" size="63" value="<%=pic2%>"><br>图片地址,最多<%=picmax%>字符,包括前缀 http://,建议大小200*150(4:3)</td>
  </tr>
    <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">图 片 3:</td>
    <td bgcolor="#F5F5F5">
	<input type="text" name="pic3" size="63" value="<%=pic3%>"><br>图片地址,最多<%=picmax%>字符,包括前缀 http://,建议大小200*150(4:3)</td>
  </tr>
    <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">图 片 4:</td>
    <td bgcolor="#F5F5F5">
	<input type="text" name="pic4" size="63" value="<%=pic4%>"><br>图片地址,最多<%=picmax%>字符,包括前缀 http://,建议大小200*150(4:3)</td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">其它信息:</td>
    <td bgcolor="#F5F5F5"><textarea rows="5" name="other" cols="61"><%=other%></textarea><br>字符数不限,初始最多<%=othermax%>字符</td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">老板信息:</td>
    <td bgcolor="#F5F5F5"><textarea rows="5" name="boss" cols="61"><%=boss%></textarea><br>
	<font color="#FF0000">仅站长可见(会严格保密),如您未填写,我们保留随时修改删除该信息时不予通知的权利<br>
	</font>填写该资讯的主要负责人的联系方式等,最多<%=bossmax%>字符</td>
  </tr>
  <tr>
    <td align="center" height="35" bgcolor="#B3DEE8">管理密码:</td>
    <td bgcolor="#F5F5F5">
	<input type="password" name="password" size="63"><br>该资讯管理密码,6~18位</td>
  </tr>
  <tr>
    <td width="200" align="center" height="6" bgcolor="#3399FF"></td>
    <td bgcolor="#CCCCCC"></td>
  </tr>
  <tr>
    <td align="center" height="70" colspan="2">
	<input type="submit" value="   提   交   " name="add">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<input type="reset" value=" 重 置 " name="B2"></td>
  </tr></form>
</table> 
<!--#include file="copyright.asp" --> 
<br><br>
</div>
</body>
</html>

⌨️ 快捷键说明

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