📄 ks.supplyadd.asp
字号:
Case 0
Response.Write "<span class=""font10"">未审</span>"
Case 1
Response.Write "<span class=""font11"">已审</span>"
end select
%></td>
<td height="22" align="center">
<a href="?action=Edit&id=<%=rs("id")%>&page=<%=CurrentPage%>" class="link3">修改</a> <a href="User_MySupply.asp?action=Del&ID=<%=rs("id")%>" onclick = "return (confirm('确定删除信息吗?'))" class="link3">删除</a>
</td>
</tr>
<tr><td colspan=6 background='images/line.gif'></td></tr>
<%
RS.MoveNext
I = I + 1
If I >= MaxPerPage Then Exit Do
Loop
%>
<tr class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
<td valign=top colspan=7>
<INPUT id="chkAll" onClick="CheckAll(this.form)" type="checkbox" value="checkbox" name="chkAll"> 选中本页显示的所有信息
<INPUT class="button" onClick="return(confirm('确定删除选中的信息吗?'));" type=submit value=删除选定的信息 name=submit1>
<%Call KS.ShowPageParamter(totalPut, MaxPerPage, "User_MySupply.asp", True, "条信息", CurrentPage, "Status=" & Verific)
%>
</td>
</FORM>
</tr>
<%
End Sub
'添加供求信息
Sub GetGQInfo()
ChannelID=KS.ChkClng(KS.S("ChannelID"))
If ChannelID=0 Then ChannelID=8
Dim UserLoginTF:UserLoginTF=KSUser.UserLoginChecked
Dim Action
Call KSUser.InnerLocation("发布我的供求信息")
If KS.S("Action")="Edit" Then
IF Cbool(KSUser.UserLoginChecked)=false Then
response.write "<script>alert('对不起，请先登录!');location.href='login.asp';</script>"
response.End()
end if
Call KSUser.InnerLocation("修改我发布的信息")
Action="EditSave"
Dim RSE:Set RSE=Server.CreateObject("ADODB.RECORDSET")
Dim ID:ID=KS.ChkClng(KS.S("ID"))
RSE.Open "Select * From KS_GQ Where ID=" & ID,Conn,1,1
IF RSE.EOF And RSE.Bof Then
Response.Write "<script>alert('非法传递参数!');history.back();</script>"
response.end
End If
BigClassID=RSE("BigClassID")
SmallClassID=RSE("Tid")
Title=RSE("Title")
Price=RSE("Price")
TypeID=RSE("TypeID")
PhotoUrl=RSE("PhotoUrl")
ValidDate=RSE("ValidDate")
GQContent=RSE("GQContent")
ContactMan=RSE("ContactMan")
Tel=RSE("Tel")
CompanyName=RSE("CompanyName")
Address=RSE("Address")
Province=RSE("Province")
City=RSE("City")
Email=RSE("Email")
Zip=RSE("Zip")
Fax=RSE("Fax")
HomePage=RSE("HomePage")
KeyWords=RSE("KeyWords")
'自定义字段
UserDefineFieldArr=KSUser.KS_D_F_Arr(8)
If IsArray(UserDefineFieldArr) Then
For I=0 To Ubound(UserDefineFieldArr,2)
If UserDefineFieldValueStr="" Then
UserDefineFieldValueStr=RSE(UserDefineFieldArr(0,I)) & "||||"
Else
UserDefineFieldValueStr=UserDefineFieldValueStr & RSE(UserDefineFieldArr(0,I)) & "||||"
End If
Next
End If
Else
Price="可面议":Action="AddSave":ValidDate=7
ContactMan=KSUser.Realname:Tel=KSUser.Officetel:HomePage=KSUser.HomePage:Email=KSUser.Email
Fax=KSUser.Fax:Zip=KSUser.Zip:Address=KSUser.Address:Province=KSUser.Province:City=KSUser.City
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 KS.C_S(ChannelID,34)=0 Then%>
if (frames["GQContent"].CurrMode!='EDIT') {alert('其他模式下无法保存，请切换到设计模式');return false;}
document.myform.GQContent.value=frames["GQContent"].KS_EditArea.document.body.innerHTML;
<%end if%>
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 KS.C_S(ChannelID,34)=0 Then%>
if (document.myform.GQContent.value.length<=4)
{
alert("信息内容要大于等于4个字符");
document.myform.GQContent.focus();
document.myform.GQContent.select()
return false;
}
<%else%>
if (FCKeditorAPI.GetInstance('GQContent').GetXHTML(true)=="")
{
alert("信息内容必须输入");
return false;
}
<%end if%>
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();
}
function CheckClassID()
{
if (document.myform.SmallClassID.value=="")
{
alert("请选择<%=KS.C_S(ChannelID,3)%>栏目！");
document.myform.SmallClassID.focus();
return false;
}
return true;
}
</SCRIPT>
<body leftMargin="0" topMargin="0" marginheight="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" bordercolor=#111111 height=403 cellspacing=0 cellpadding=0 width="100%" border=0>
<tr>
<td width="100%" height=12>
<%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>
<table align="center" style="BORDER-COLLAPSE: collapse" bordercolor=#111111 height=36 cellspacing=0 bordercolordark=#ffffff cellpadding=0 width="98%" bordercolorlight=#ffffff border=0>
<tr class="tdbg">
<td align=center width=14% height=26>所属行业：</td>
<td width="86%" colspan="3" height="26">
<% 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 "请先添加栏目。"
else
%>
<select class="face" name="BigClassID" onChange="changelocation(document.myform.BigClassID.options[document.myform.BigClassID.selectedIndex].value)" size="1">
<% Dim N
do while not rsb.eof
N=N+1
If N=1 and KS.S("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>
</table></td>
</tr>
<tr>
<td width="100%" height=127><div align=center>
<center>
<table width="98%" height=223 border=0 align="center" cellpadding=2 cellspacing=1 bordercolor=#111111 bordercolorlight=#ffffff bordercolordark=#ffffff style="BORDER-COLLAPSE: collapse">
<tr class='tdbg'>
<td width="14%" height=25 align="center"><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="center"><p>价格说明：</p></td>
<td width="86%" height=25 align="left"><input class="textbox" size=45 value="<%=Price%>" name="Price">
<font color=#ff6600> *</font></td>
</tr>
<tr class="tdbg">
<td height="25" align="center">图片地址：</td>
<td height="25">
<input name='PhotoUrl' type='text' id='PhotoUrl' value="<%=PhotoUrl%>" size='45' class="textbox"/></td></tr>
<% IF Cbool(KSUser.UserLoginChecked)=true Then%>
<tr class="tdbg">
<td height="25" align="center">上传图片：</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -