📄 add.asp
字号:
tian=changechr(trim(Request.Form("InfoDate")))
tj=changechr(Request.Form("tj"))
if tj<>"" then
pdsf=session("point")-(tian*addinfopoint)
if pdsf < 0 then
response.write"<SCRIPT language=JavaScript>alert('对不起，您的点数不足，发布一天需要"&addinfopoint&"点，请返回自觉选择信息有效期！');"
response.write"javascript:history.back();</SCRIPT>"
response.end
end if
end if
Dim rdsInfo
set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "Dat_Information",Conn,3,3
rdsInfo.AddNew
rdsInfo("MemberKey") = intMemberKey
rdsInfo("Topic") = changechr(Request.Form("Topic"))
rdsInfo("InfoClass") = changechr(Request.Form("InfoClass"))
rdsInfo("Content") = dvHTMLEncode(Request.Form("Content"))
rdsInfo("ContactMan") = changechr(Request.Form("ContactMan"))
rdsInfo("CompanyName") = changechr(Request.Form("CompanyName"))
rdsInfo("Add") = changechr(Request.Form("Add"))
rdsInfo("Postalcode") = changechr(Request.Form("Postalcode"))
rdsInfo("Tel") = changechr(Request.Form("Tel"))
rdsInfo("Fax") = changechr(Request.Form("Fax"))
rdsInfo("qq") = changechr(Request.Form("qq"))
rdsInfo("Homepage") = changechr(Request.Form("Homepage"))
rdsInfo("Email") = changechr(Request.Form("Email"))
rdsInfo("InfoAdd") = changechr(Request.Form("sheng"))
rdsInfo("smalldq") = changechr(Request.Form("shi"))
rdsInfo("InfoDate") = changechr(Request.Form("InfoDate"))
rdsInfo("dl") = changechr(Request.Form("BigClassName"))
rdsInfo("xl") = changechr(Request.Form("SmallClassName"))
rdsInfo("jg") = changechr(Request.Form("jg"))
rdsInfo("pic") = changechr(Request.Form("pic"))
rdsInfo("color") = changechr(Request.Form("infocolor"))
if changechr(Request.Form("tj"))<>"" then
rdsInfo("tj") =1
set rdsMember2 = Server.CreateObject("ADODB.Recordset")
sqlMember2 = "Select * From Dat_Member Where MemberKey = "& intMemberKey
rdsMember2.Open sqlMember2,Conn,1,3
rdsMember2("Point") =session("point")-(tian*addinfopoint)
rdsMember2.Update
rdsMember2.Close
set rdsMember2 = nothing
end if
if changechr(Request.Form("strjb"))="1" then
sh=0
end if
if sh=1 then
rdsInfo("State") = 0
else
rdsInfo("State") = 1
end if
rdsInfo("Ip") =GetIp()
rdsInfo("CreateTime") = now()
rdsInfo.Update
rdsInfo.Close
set rdsInfo = nothing
session("point")=""
if sh=1 then
Response.write("<script>alert(""信息发布成功，请等待管理员的审核！"");location.href=""index.asp"";</script>")
Response.end
else
Application("index_update")="true"
Application.unLock
Response.write("<script>alert(""信息发布成功，祝您交易成功！"");location.href=""index.asp"";</script>")
Response.end
end if
end if
%>
<div align="center">
<table width="460" border="0">
<form method="post" action="Add.asp" name="myform" OnSubmit="return addinfock()">
<input type="hidden" name="Oper" value="myform">
<tr>
<td width="16%" height="25">选择分类：</td>
<td width="84%" height="25">
<%
set rsb=server.createobject("adodb.recordset")
sqlb = "select * from BigClass order by sj desc"
rsb.open sqlb,conn,1,1
if rsb.eof and rsb.bof then
response.write "请先添加栏目。"
else
%><select class="face" name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
<option selected value="<%=trim(rsb("id"))%>"><%=trim(rsb("BigClassName"))%></option>
<%
dim selclass
selclass=cstr(rsb("id"))
rsb.movenext
do while not rsb.eof
%>
<option value="<%=trim(rsb("id"))%>"><%=trim(rsb("BigClassName"))%></option>
<%
rsb.movenext
loop
end if
rsb.close
%>
</select> <select class="face" name="SmallClassName">
<option value="" selected>不指定小类</option>
<%
set rsss=server.createobject("adodb.recordset")
sqlss="select * from SmallClass where dl='"&selclass&"'"
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">
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from fysmallmxdq order by sj desc"
rs.open sql,conn,1,1
%>
<SCRIPT language = "JavaScript">
var onenumdq;
onenumdq=0;
subcat1dq = new Array();
<%
numdq = 0
do while not rs.eof
%>
subcat1dq[<%=numdq%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("dl"))%>","<%= trim(rs("SmallClassName"))%>");
<%
numdq = numdq + 1
rs.movenext
loop
rs.close
%>
onenumdq=<%=numdq%>;
function changelocation1dq(shengid)
{
document.myform.shi.length = 0;
var shengid=shengid;
var n;
for (n=0;n < onenumdq; n++)
{
if (subcat1dq[n][1] == shengid)
{
document.myform.shi.options[document.myform.shi.length] = new Option(subcat1dq[n][0], subcat1dq[n][2]);
}
}
}
</SCRIPT>
<%
dim num
sql = "select * from mxdq order by sj desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
<SELECT name="sheng" onChange="changelocation1dq(document.myform.sheng.options[document.myform.sheng.selectedIndex].value)" size="1">
<OPTION selected value="0">==省份==</OPTION>
<%do while not rs.eof
%>
<OPTION value="<%=trim(rs("Name"))%>"><%=trim(rs("Name"))%></OPTION>
<%
rs.movenext
loop
end if
rs.close
%>
</SELECT>
<SELECT name="shi">
<OPTION selected value="0">==市地==</OPTION>
</SELECT></td>
</tr>
<tr>
<td height="25">选择类型：</td>
<td height="25"><select class="face" size="1" name="InfoClass">
<%call gqlx(1,1)%>
</select></td>
</tr>
<tr>
<td height="25">相关价格：</td>
<td height="25">
<input class="face" type="text" name="jg" size="12" value="0" ONKEYPRESS="event.returnValue=IsDigit();">元(注：0表示面议)</td>
</tr><%if not IsTimeOut(Session("boobuser"),Session("boobpass")) and intMemberKey <> "" then
userlogin="yes"
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
strjb=rdsMembers("jb")
usery="yes"
end if
end if%>
<tr>
<td height="25">主 题：</td>
<td height="25">
<input class="face" type="text" name="Topic" size="38" maxlength="200"><%if strjb="1" then%>
<select name="infocolor" class="face">
<option style="COLOR: black" value="" selected>标题颜色</option>
<option style="background: #000088" value="000088"> </option>
<option style="background: #0000ff" value="0000ff"> </option>
<option style="background: #008800" value="008800"> </option>
<option style="background: #008888" value="008888"> </option>
<option style="background: #0088ff" value="0088ff"> </option>
<option style="background: #00a010" value="00a010"> </option>
<option style="background: #1100ff" value="1100ff"> </option>
<option style="background: #111111" value="111111"> </option>
<option style="background: #333333" value="333333"> </option>
<option style="background: #50b000" value="50b000"> </option>
<option style="background: #880000" value="880000"> </option>
<option style="background: #8800ff" value="8800ff"> </option>
<option style="background: #888800" value="888800"> </option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -