📄 modify1.asp
字号:
<%Option Explicit%>
<!--#include file="adoconn.asp"-->
<%
dim objRS,sql
dim staid
dim thispath,referer,siteabout,sitearea,sitename,infotime,infoname
staid = Request.QueryString("staid")
thispath = Request.QueryString("p")
referer = Request.ServerVariables("HTTP_REFERER")
sql = "select * from stationinfo where id = " & staid
Set objRS = objConn.Execute(sql)
if objRS.EOF then
objConn.Close
Set objRS = nothing
Set objConn = nothing
Response.Write("<font color=red>参数错误</font>")
Response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>2008分类信息发布系统</title>
<style>
<!--
td { font-size: 10.5pt }
-->
</style>
</head>
<body topmargin="0" bgcolor="#FFFFFF">
<!--#include file="top.htm"-->
<table border="1" width="750" bordercolorlight="#C0C0C0" cellspacing="0" bordercolordark="#FFFFFF" align="center">
<form action="modify2.asp" method="post" name=form1>
<input type="hidden" name="sortid" value="<%=objRS("parentid")%>">
<input type="hidden" name="staid" value="<%=staid%>">
<input type="hidden" name="referer" value="<%=referer%>">
<tr>
<td width="100%" height="30">
<p align="center"><b>编辑信息</b> </td>
</tr>
<tr>
<td width="100%" height="68"> <br>
<center><b><%=thispath%></b></center>
<blockquote style="margin-left: 70">
<table width="680" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="98">信息标题：</td>
<td width="526"><input maxLength="60" name="title" size="30" value="<%=objRS("stationname")%>"></td>
</tr>
<tr>
<td>信息内容：</td>
<td><textarea name="comments" cols="60" rows="5"><%=objRS("description")%></textarea></td>
</tr>
<tr>
<td>有效期：</td>
<td><select name="infotime" size="1">
<option value="7" <%if objRS("infotime") = "7" then Response.Write("selected")%>>一星期</option>
<option value="30" <%if objRS("infotime") = "30" then Response.Write("selected")%>>一个月</option>
<option value="90" <%if objRS("infotime") = "90" then Response.Write("selected")%>>三个月</option>
<option value="365" <%if objRS("infotime") = "365" then Response.Write("selected")%>>一年</option>
</select>
信息类型:
<select name="lang" size="1">
<option value="供应信息" <%if objRS("stationlang") = "供应信息" then Response.Write("selected")%>>供应信息</option>
<option value="求购信息" <%if objRS("stationlang") = "求购信息" then Response.Write("selected")%>>求购信息</option>
<option value="代理合作" <%if objRS("stationlang") = "代理合作" then Response.Write("selected")%>>代理合作</option>
<option value="其它信息" <%if objRS("stationlang") = "其它信息" then Response.Write("selected")%>>其它信息</option>
</select> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td>公司名称:</td>
<td><input name="aboutname" size="30" value="<%=objRS("sitename")%>"></td>
</tr>
<tr>
<td>公司简介:</td>
<td><textarea name="aboutserver" cols="60" rows="5"><%=objRS("siteabout")%></textarea></td>
</tr>
</table>
<p> </p>
<p><br>
<font size="2"><strong>联系方式：</strong></font></p>
<table width="680" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="108">网站地址(URL):</td>
<td width="552"><input name="url" size="30" value="<%=objRS("stationurl")%>"></td>
</tr>
<tr>
<td width="108">地区：</td>
<td><select name="infoqy" id="infoqy" >
<option value="天河区" <%if objRS("infoqy") = "天河区" then Response.Write("selected")%>>天河区</option>
<option value="海珠区" <%if objRS("infoqy") = "海珠区" then Response.Write("selected")%>>海珠区</option>
<option value="白云区" <%if objRS("infoqy") = "白云区" then Response.Write("selected")%>>白云区</option>
<option value="越秀区" <%if objRS("infoqy") = "越秀区" then Response.Write("selected")%>>越秀区</option>
<option value="黄埔区" <%if objRS("infoqy") = "黄埔区" then Response.Write("selected")%>>黄埔区</option>
<option value="荔湾区" <%if objRS("infoqy") = "荔湾区" then Response.Write("selected")%>>荔湾区</option>
<option value="东山区" <%if objRS("infoqy") = "东山区" then Response.Write("selected")%>>东山区</option>
<option value="芳村区" <%if objRS("infoqy") = "芳村区" then Response.Write("selected")%>>芳村区</option>
<option value="番禺" <%if objRS("infoqy") = "番禺" then Response.Write("selected")%>>番禺</option>
<option value="花都" <%if objRS("infoqy") = "花都" then Response.Write("selected")%>>花都</option>
<option value="高青县" <%if objRS("infoqy") = "高青县" then Response.Write("selected")%>>从化</option>
<option value="增城" <%if objRS("infoqy") = "增城" then Response.Write("selected")%>>增城</option>
<option value="其它地区" <%if objRS("infoqy") = "其它地区" then Response.Write("selected")%>>其它地区</option>
</select></td>
</tr>
<tr>
<td>联系地址：</td>
<td><input type="text" name="name" maxlength="10" value="<%=objRS("whopost")%>"></td>
</tr>
<tr>
<td>联系人:</td>
<td><input name="infoname" value="<%=objRS("infoname")%>"></td>
</tr>
<tr>
<td>Email:</td>
<td><input name="email" value="<%=objRS("email")%>"></td>
</tr>
<tr>
<td>联系电话:</td>
<td><input name="aboutarea" size="30" value="<%=objRS("sitearea")%>"></td>
</tr>
</table>
<p> </p>
<dl>
<strong>网站图片：</strong><br>
<input name="logo" size="60" maxlength="200" value="<%=objRS("logo")%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="18%">图片更换：</td>
<td width="82%"><iframe name="ad" frameborder=0 width=100% height=40 scrolling=no src="picture.asp"></iframe></td>
</tr>
</table>
</dl>
<center>
<input name=".submit" type="submit" value=" 送 出 ">
<input name=".reset" type="reset" value=" 重 填 ">
<input name=".goback" type="reset" value=" 返 回 " onclick="history.go(-1)">
</center></p>
</blockquote>
</td>
</tr>
</table>
<center></form>
</body>
</html>
<%
objConn.Close()
Set objRS = nothing
Set objConn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -