📄 add.asp
字号:
rsss.open sqlss,conn,1,1
if not(rsss.eof and rsss.bof) then
%>
<option value="<%=rsss("id")%>"><%=rsss("SmallClassName")%></option>
<% rsss.movenext
do while not rsss.eof%>
<option value="<%=rsss("id")%>"><%=rsss("SmallClassName")%></option>
<%
rsss.movenext
loop
end if
rsss.close
%>
</td>
</tr>
<tr>
<td height="25">面向地区：</td>
<td height="25">
<select name="InfoAdd" size="1">
<option value="0" selected>地区</option>
<%
set mxdq=server.CreateObject("adodb.recordset")
sqlmxdq = "Select * From mxdq order by sj desc"
mxdq.Open sqlmxdq,Conn,1,1
if not( mxdq.bof and mxdq.eof) then
do while not mxdq.eof
%>
<option value="<%=mxdq("name")%>"><%=mxdq("name")%></option>
<%
mxdq.movenext
loop
end if
mxdq.close
set mxdq=nothing
%>
</select>
</td>
</tr>
<tr>
<td height="25">选择类型：</td>
<td height="25"><select size="1" name="InfoClass">
<option value="1" selected>销售</option>
<option value="2">求购</option>
<option value="3">要闻</option>
<option value="4">动态</option>
<option value="5">招聘</option>
<option value="6">求职</option>
<option value="7">展会</option>
<option value="8">其它</option>
</select></td>
</tr>
<tr>
<td height="25">相关价格：</td>
<td height="25">
<input type="text" name="jg" size="12" value="0" ONKEYPRESS="event.returnValue=IsDigit();">元(注：0表示面议)</td>
</tr>
<tr>
<td height="25">主 题：</td>
<td height="25"><input type="text" name="Topic" size="50" maxlength="200"> <font color="#FF0000">**</font></td>
</tr>
<tr>
<td height="25">产品图片：</td>
<td height="25" valign="middle">
<input type="text" name="pic" size="33" value="http://"><input name="button22" type="button" onClick="OpenResourceExplore(1,600,350,180,'选择图片','bbimg')" value="选择图片" class="button"></td>
</tr>
<tr>
<td height="25">内 容：</td>
<td height="25" valign="middle"><textarea rows="8" name="Content" cols="55"></textarea>
</td>
</tr> <tr>
<td height="25" colspan="2">
<p align="center">[注意]注册为本站会员，发布信息时<font color="#FF0000">无需</font>填写以下繁琐的联系方式
，并可参与<a target="_blank" href="point.asp"><font color="#FF0000"><span style="text-decoration: none">积分</span></font></a>！</td>
</tr>
<%
if not IsTimeOut(Session("boobuser"),Session("boobpass")) and intMemberKey <> "" then
Dim rdsMembers
Dim sqlMembers
Dim userpoint
Dim userpoint1
set rdsMembers = Server.CreateObject("ADODB.Recordset")
sqlMembers = "Select * From Dat_Member Where MemberKey = "& intMemberKey
rdsMembers.Open sqlMembers,Conn,1,1
if not rdsMembers.EOF then
session("point")=rdsMembers("point")
userpoint1=session("point")
if rdsMembers("MemberType") = "1" then%>
<tr>
<td height="25">联 系 人：</td>
<td height="25"><input name="ContactMan" type="text" size="20" maxlength="20" value="<% = rdsMembers("RealName")%>"> <font color="#FF0000">**</font></td>
</tr>
<%else%>
<tr>
<td height="25">企业名称：</td>
<td height="25"><input name="CompanyName" type="text" size="40" maxlength="200" value="<% = rdsMembers("CompanyName")%>"></td>
</tr>
<tr>
<td height="25">联 系 人：</td>
<td height="25"><input name="ContactMan" type="text" size="20" maxlength="20" value="<% = rdsMembers("ContactMan")%>"> <font color="#FF0000">**</font></td>
</tr>
<%end if%>
<tr>
<td height="25">联系地址：</td>
<td height="25"><input type="text" name="Add" size="40" maxlength="200" value="<% = rdsMembers("Add")%>"></td>
</tr>
<tr>
<td height="25">邮 编：</td>
<td height="25"><input type="text" name="Postalcode" size="20" maxlength="6" value="<% = rdsMembers("Postalcode")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
</tr>
<tr>
<td height="25">电 话：</td>
<td height="25"><input type="text" name="Tel" size="20" maxlength="20" value="<%=rdsMembers("Tel")%>" ONKEYPRESS="event.returnValue=IsDigit();"> <font color="#FF0000">**</font></td>
</tr>
<tr>
<td height="25">传 真：</td>
<td height="25"><input type="text" name="Fax" size="20" maxlength="20" value="<% = rdsMembers("Fax")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
</tr>
<tr>
<td height="25">腾 讯Q Q：</td>
<td height="25">
<input type="text" name="qq" size="20" maxlength="20" value="<% = rdsMembers("qq")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
</tr>
<tr>
<td height="25">网站网址：</td>
<td height="25"><input type="text" name="Homepage" size="20" maxlength="50" value="<% = rdsMembers("Homepage")%>"></td>
</tr>
<tr>
<td height="25">电子信箱：</td>
<td height="25"><input type="text" name="Email" size="20" maxlength="50" value="<% = rdsMembers("Email")%>"><font color="#FF0000">**</font></td>
</tr>
<tr>
<td height="25">有 效 期：</td>
<td height="25">
<select size="1" name="InfoDate">
<option value="0" selected>--选择信息有效期--</option>
<option value="1">一天</option>
<option value="3">三天</option>
<option value="7">一星期</option>
<option value="15">半个月</option>
<option value="30">一个月</option>
<option value="60">两个月</option>
<option value="90">一个季度</option>
<option value="182">半年</option>
<option value="365">一年</option>
</select>
</td>
</tr>
<%if session("point")>0 then%>
<tr>
<td height="25">是否推荐：</td>
<td height="25">
<input type="checkbox" name="tj" value="true"> <font color="#0000FF">[注]</font>如发为推荐信息，请打钩。您的点数为<font color="#FF0000"> <%=session("point")%></font>
点，如选择推荐，发一天系统会扣除<font color="#FF0000"> 1 </font>点，请自觉选择有效期！</td>
</tr><%else%> <tr>
<td height="25">是否推荐：</td>
<td height="25"> 对不起您的点数不足，不能使用此功能。<a target="_blank" href="point.asp"><font color="#FF0000">如何获取点数!</font></a></td>
</tr><%end if%>
<%
rdsMembers.Close
set rdsMembers = nothing
end if
else
%>
<tr>
<td height="25">联 系 人：</td>
<td height="25"><input name="ContactMan" type="text" size="20" maxlength="20"> <font color="#FF0000">**</font></td>
</tr>
<tr>
<td height="25">企业名称：</td>
<td height="25"><input type="text" name="CompanyName" size="40" maxlength="200"></td>
</tr>
<tr>
<td height="25">联系地址：</td>
<td height="25"><input type="text" name="Add" size="40" maxlength="200"></td>
</tr>
<tr>
<td height="25">邮 编：</td>
<td height="25"><input type="text" name="Postalcode" size="20" maxlength="6" ONKEYPRESS="event.returnValue=IsDigit();"></td>
</tr>
<tr>
<td height="25">电 话：</td>
<td height="25"><input type="text" name="Tel" size="20" maxlength="20" ONKEYPRESS="event.returnValue=IsDigit();"> <font color="#FF0000">**</font></td>
</tr>
<tr>
<td height="25">传 真：</td>
<td height="25"><input type="text" name="Fax" size="20" maxlength="20" ONKEYPRESS="event.returnValue=IsDigit();"></td>
</tr>
<tr>
<td height="25">腾 讯Q Q：</td>
<td height="25">
<input type="text" name="qq" size="20" maxlength="20" ONKEYPRESS="event.returnValue=IsDigit();"></td>
</tr>
<tr>
<td height="25">网站地址：</td>
<td height="25"><input type="text" name="Homepage" size="20" maxlength="50"></td>
</tr>
<tr>
<td height="25">电子信箱：</td>
<td height="25"><input type="text" name="Email" size="20" maxlength="50"><font color="#FF0000">**</font></td>
</tr>
<tr>
<td height="13">有 效 期：</td>
<td height="13">
<select size="1" name="InfoDate">
<option value="0" selected>--选择信息有效期--</option>
<option value="1">一天</option>
<option value="3">三天</option>
<option value="7">一星期</option>
<option value="15">半个月</option>
<option value="30">一个月</option>
<option value="60">两个月</option>
<option value="90">一个季度</option>
<option value="182">半年</option>
<option value="365">一年</option>
</select>
</td>
</tr>
<tr>
<td height="25">是否推荐：</td>
<td height="25"> 对不起您没有登录，不能使用此功能。<a target="_blank" href="point.asp"><font color="#FF0000">如何获取更多的点数!</font></a></td>
</tr>
<%
end if
%>
<tr>
<td colspan="2" height="40" align="center"><input type="submit" value="马上发布" name="Submit" class="button"> <input type="reset" value="重新填写" name="Reset" class="Button"></td>
</tr>
<tr>
<td height="10"></td>
<td height="10"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</div>
</td>
<td vAlign="top" width="10"><img height="1" src="images/space.gif" width="10" border="0"></td>
<td vAlign="top" width="1" background="images/space_01.gif"><img height="1" src="images/space_01.gif" width="1" border="0"></td>
<td class="bg01" vAlign="top" width="157">
<div align="center">
<center>
<table id="AutoNumber11" style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="176" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="top" height="35"><img height="35" src="images/pic_520_passport_01.gif" width="157" border="0"></td></tr>
<tr>
<td vAlign="top" background="images/pic_520_passport_02.gif" bgColor="#ffffff" height="120" align="center"><!--#include file="Common/Inc_Login.asp"--></td>
</tr>
<tr>
<td vAlign="top" height="21"><img height="21" src="images/pic_520_passport_03.gif" width="157" border="0"></td></tr></tbody></table></center></div>
<div align="center">
<center>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25" width="155"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF">信息分类</font></b></td></tr>
<tr>
<td height="8" width="155"></td></tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Catalog.asp"--></td>
</tr>
<tr>
<td height="8" width="155" colspan="2"></td></tr></tbody></table></center></div>
<div align="center">
<center>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF">合作伙伴</font></b></td></tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Cooperate.asp"--></td>
</tr>
<tr>
<td height="8"></td>
</tr>
</tbody>
</table>
</center>
</div>
<div align="center">
<center>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF">友情链接</font></b></td></tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Link.asp"--></td>
</tr>
<tr>
<td height="8"></td>
</tr>
</tbody>
</table>
</center>
</div>
</td>
<td vAlign="top" width="1" background="images/space_01.gif"><img height="1" src="images/space_01.gif" width="1" border="0"></td></tr>
<tr>
<td vAlign="top" width="760" colSpan="7" height="14"><img height="14" src="images/pic_bottom_01.gif" width="760" border="0"></td></tr></tbody></table></div>
<!--#include file="End.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -