📄 ks.supply.asp
字号:
'自定义字段
UserDefineFieldArr=KSCls.Get_KS_D_F_Arr(ChannelID)
If IsArray(UserDefineFieldArr) Then
For I=0 To Ubound(UserDefineFieldArr,2)
If I=0 Then
UserDefineFieldValueStr=RSE(UserDefineFieldArr(0,I)) & "||||"
Else
UserDefineFieldValueStr=UserDefineFieldValueStr & RSE(UserDefineFieldArr(0,I)) & "||||"
End If
Next
End If
Else
If Not KS.ReturnPowerResult(ChannelID, "M" & ChannelID & "10004") Then
Call KS.ReturnErr(1, "")
Exit Sub
End If
Price="可面议":Action="AddSave":ValidDate=7:Verific=1:OpStr="添 加 供 求 信 息"
End If
%>
<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="include/admin_style.CSS" rel="stylesheet" type="text/css">
<SCRIPT language=JavaScript>
var partten = "/^\d{8}$/"
function check()
{
if (frames["GQContent"].CurrMode!='EDIT') {alert('其他模式下无法保存，请切换到设计模式');return false;}
document.myform.GQContent.value=frames["GQContent"].KS_EditArea.document.body.innerHTML;
if (document.myform.BigClassID.value=="")
{
alert("行业类别不能为空");
document.myform.BigClassID.focus();
return false;
}
if (document.myform.SmallClassID.value=="")
{
alert("行业子类别不能为空！");
document.myform.SmallClassID.focus();
return false;
}
if (document.myform.title.value.length<=1)
{
alert("信息标题要大于等于4个字符");
document.myform.title.focus();
document.myform.title.select()
return false;
}
if (document.myform.Price.value=="")
{
alert("价格说明不能为空");
document.myform.Price.focus();
document.myform.Price.select();
return false;
}
if (document.myform.TypeID.value =="")
{
alert("请选择交易类别！");
document.myform.TypeID.focus();
return false;
}
if (document.myform.GQContent.value.length<=4)
{
alert("信息内容要大于等于4个字符");
document.myform.GQContent.focus();
document.myform.GQContent.select()
return false;
}
if (document.myform.ContactMan.value=="")
{
alert("联系人不能为空");
document.myform.ContactMan.focus();
document.myform.ContactMan.select()
return false;
}
if (document.myform.Tel.value=="")
{
alert("联系电话不能为空");
document.myform.Tel.focus();
document.myform.Tel.select()
return false;
}
document.myform.submit();
}
</SCRIPT>
<meta content="MSHTML 6.00.2800.1106" name=GENERATOR>
<body leftMargin="0" topMargin="0" marginheight="0" marginwidth="0">
<div align=center>
<CENTER>
<table style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=460 cellSpacing=1 width="100%" bgColor=#ffffff border=0>
<tr>
<td width="100%" height=457>
<FORM name="myform" action="?Action=<%=Action%>&ID=<%=ID%>" method="post">
<input type="hidden" value="<%=Request.Servervariables("http_referer")%>" name="comeurl">
<table style="BORDER-COLLAPSE: collapse" class='border' height=403 cellspacing=0 cellpadding=0 width="100%" border=0>
<%dim rss,sqls,count
set rss=server.createobject("adodb.recordset")
sqls = "select * from KS_Class Where ChannelID=8 And Tn<>'0' order by FolderOrder"
rss.open sqls,conn,1,1
%>
<script language = "JavaScript">
var onecount;
subcat = new Array();
<%
count = 0
do while not rss.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rss("id"))%>","<%=trim(rss("TN"))%>","<%= trim(rss("foldername"))%>");
<%
count = count + 1
rss.movenext
loop
rss.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.SmallClassID.length = 1;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.SmallClassID.options[document.myform.SmallClassID.length] = new Option(subcat[i][2], subcat[i][0]);
}
}
}
</script>
<tr>
<td width="100%"><div align=center>
<center>
<table width="100%" height=273 border=0 align="center" cellpadding=2 cellspacing=1 style="BORDER-COLLAPSE: collapse">
<tr class='title'>
<td height=25 colspan="2" align="center"><%=OpStr%></td>
</tr>
<tr class='tdbg'>
<td height=25 align="right">所属行业 </td>
<td>
<select class="face" name="BigClassID" onChange="changelocation(document.myform.BigClassID.options[document.myform.BigClassID.selectedIndex].value)" size="1"><% dim rsb,sqlb
set rsb=server.createobject("adodb.recordset")
sqlb = "select * from ks_Class where channelid=8 and tj=2 order by folderorder"
rsb.open sqlb,conn,1,1
if rsb.eof and rsb.bof then
response.write "<option>请先添加栏目</OPTION>"
else
%>
<% Dim N
do while not rsb.eof
N=N+1
If N=1 and KS.G("Action")<>"Edit" Then bigclassid=rsb("id")
If BigClassID=rsb("id") then
%>
<option value="<%=trim(rsb("id"))%>" selected><%=trim(rsb("FolderName"))%></option>
<%else%>
<option value="<%=trim(rsb("id"))%>"><%=trim(rsb("FolderName"))%></option>
<%end if
rsb.movenext
loop
end if
rsb.close
%>
</select>
<font color=#ff6600> *</font>
<select class="face" name="SmallClassID">
<option value="" selected>不指定小类</option>
<%dim rsss,sqlss
set rsss=server.createobject("adodb.recordset")
sqlss="select * from ks_class where tn='"&bigclassid&"' and channelid=8 order by FolderOrder"
rsss.open sqlss,conn,1,1
if not(rsss.eof and rsss.bof) then
do while not rsss.eof
if SmallClassID=rsss("id") then%>
<option value="<%=rsss("id")%>" selected><%=rsss("FolderName")%></option>
<%else%>
<option value="<%=rsss("id")%>"><%=rsss("FolderName")%></option>
<%end if
rsss.movenext
loop
end if
rsss.close
%>
</select></td>
</tr>
<tr class='tdbg'>
<td width="14%" height=25 align="right"><p>信息主题 </p></td>
<td width="86%"><input class="textbox" size=45 name="title" value="<%=title%>">
<font color=#ff6600> *</font></td>
</tr>
<tr class="tdbg">
<td width="14%" height=25 align="right"><p>价格说明 </p></td>
<td width="86%" height=25><input class="textbox" size=45 value="<%=Price%>" name="Price">
<font color=#ff6600> *</font></td>
</tr>
<tr class="tdbg">
<td height="25" align="right">图片地址 </td>
<td height="25"><input name='PhotoUrl' type='text' id='PhotoUrl' value="<%=PhotoUrl%>" size='45' class="textbox"/></td></tr>
<tr class="tdbg">
<td height="25" align="right">上传图片 </td>
<td height="25"><iframe id='UpPhotoFrame' name='UpPhotoFrame' src='KS.UpFileForm.asp?ChannelID=8' frameborder="0" scrolling="No" align="center" width='100%' height='25'></iframe></td></tr>
<%
dim I,TypeIDArr,ValidDateArr,ks_rs_t:set ks_rs_t=server.CreateObject("adodb.recordset")
ks_rs_t.open "select TypeID,TypeName,TypeColor From KS_GQType",conn,1,1
if not ks_rs_t.eof then
TypeIDArr=KS_RS_T.GetRows(-1)
end if
ks_rs_t.close:set ks_rs_t=nothing
%>
<tr class="tdbg">
<td width="14%" height=25 align="right">交易类别 </td>
<td width="86%" height=25><%=KS.ReturnGQType(TypeID,0)%>
<font color=#ff6600> *</font> 有 效 期：
<select class="textbox" size=1 name="ValidDate">
<option value="3" <% if ValidDate=3 Then Response.Write " selected"%>>三天</option>
<option value="7"<% if ValidDate=7 Then Response.Write " selected"%>>一周</option>
<option value="15"<% if ValidDate=15 Then Response.Write " selected"%>>半个月</option>
<option value="30"<% if ValidDate=30 Then Response.Write " selected"%>>一个月</option>
<option value="90"<% if ValidDate=90 Then Response.Write " selected"%>>三个月</option>
<option value="180"<% if ValidDate=180 Then Response.Write " selected"%>>半年</option>
<option value="365"<% if ValidDate=365 Then Response.Write " selected"%>>一年</option>
<option value="0"<% if ValidDate=0 Then Response.Write " selected"%>>长期</option>
</select>
<font color=#ff6600> *</font></td>
</tr>
<tr class="tdbg">
<td height=89 align="center">信息内容：<br>
<font color=#800000>（请详细描述您发布的供求信息）</font></td>
<td height=89><textarea class="textbox" name="GQContent" rows=7 style="display:none" cols=65><%=Server.HtmlEncode(GQContent)%></textarea>
<iframe id='GQContent' name='GQContent' src='../user/Editor.asp?ID=GQContent&style=0&ChannelID=9999' frameborder=0 scrolling=no width='94%' height='200'></iframe> </td>
</tr>
</table>
<table width="100%" height=121 border=0 align="center" cellspacing="1" cellpadding=2 bordercolor=#111111 bordercolorlight=#ffffff bordercolordark=#ffffff id=AutoNumber1 style="BORDER-COLLAPSE: collapse">
<tr class="tdbg">
<td valign=top width="15%" height=25><p align=right>联 系 人：</p></td>
<td valign=top width="34%" height=25><input class="textbox" size=21 name="ContactMan" value="<%=ContactMan%>">
<font color=#ff6600> *</font></td>
<td valign=top width="16%" height=25><p align=right>联系电话：</p></td>
<td valign=top width="35%" height=25><input class="textbox" size=21 name="Tel" value="<%=Tel%>">
<font color=#ff6600> *</font></td>
</tr>
<tr class="tdbg">
<td valign=top width="15%" height=25><p align=right>公司名称：</p></td>
<td valign=top width="34%" height=25><input class="textbox" size=21 name="CompanyName" value="<%=CompanyName%>"></td>
<td valign=top width="16%" height=25><p align=right>联系地址：</p></td>
<td valign=top width="35%" height=25><input class="textbox" size=21 name="Address" value="<%=Address%>">
<font color=#ff6600> </font></td>
</tr>
<tr class="tdbg">
<td valign=top width="15%" height=25><p align=right>所在省份：</p></td>
<td height=25 colspan="3" valign=top><select name="prov" onChange="selectcityarea('prov','city','myform');" style="width:140">
<%if Province<>"" then%>
<option value="<%=Province%>" selected="selected"><%=Province%></option>
<%else%>
<option value="" selected="selected">==请选择省份==</option>
<%end if%>
</select>
城市
<select name="city" style="width:140">
<%if city<>"" then%>
<option value="<%=city%>" selected="selected"><%=city%></option>
<%else%>
<option value="" selected="selected">==请选择城市==</option>
<%end if%>
</select>
<!--省份城市的调用开始---->
<script language="JavaScript" src="<%=KS.GetDomain%>KS_Inc/Province.js" type="text/javascript"></script>
<!----省份城市调用结束----> </td>
</tr>
<tr class="tdbg">
<td valign=top width="15%" height=19><p align=right>电子邮件：</p></td>
<td valign=top width="34%" height=19><input class="textbox" size=21 name="email" value="<%=email%>">
<font color=#ff6600> </font></td>
<td valign=top width="16%" height=19><p align=right>邮政编码：</p></td>
<td valign=top width="35%" height=19><input class="textbox" size=21 name="zip" value="<%=zip%>">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -