<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.MemberCls.asp"-->
<!--#include file="../KS_Editor/FCKeditor/fckeditor.asp"-->
<%
'****************************************************
' Software name:Kesion CMS 5.0
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New User_SoftWare
KSCls.Kesion()
Set KSCls = Nothing
Class User_SoftWare
Private KS,KSUser,ChannelID,F_B_Arr,F_V_Arr
Private CurrentPage,totalPut
Private RS,MaxPerPage,SelButton
Private SizeUnit,ClassID,Title,KeyWords,Author,DownLB,DownYY,DownSQ,DownSize,DownPT,YSDZ,ZCDZ,JYMM,Origin,Content,Verific,PhotoUrl,DownUrls,RSObj,ID,DownID,AddDate,ComeUrl,CurrentOpStr,Action,I,UserDefineFieldArr,UserDefineFieldValueStr
Private Sub Class_Initialize()
MaxPerPage =15
Set KS=New PublicCls
Set KSUser = New UserCls
End Sub
Private Sub Class_Terminate()
Set KS=Nothing
Set KSUser=Nothing
End Sub
Public Sub Kesion()
IF KS.S("ComeUrl")="" Then
ComeUrl=Request.ServerVariables("HTTP_REFERER")
Else
ComeUrl=KS.S("ComeUrl")
End If
IF Cbool(KSUser.UserLoginChecked)=false Then
Response.Write "<script>top.location.href='Login.asp';</script>"
Exit Sub
End If
ChannelID=KS.ChkClng(KS.S("ChannelID"))
If ChannelID=0 Then ChannelID=3
If KS.C_S(ChannelID,6)<>3 Then Response.End()
if conn.execute("select usertf from ks_channel where channelid=" & channelid)(0)=0 then
Response.Write "<script>alert('本频道关闭投稿!');window.close();</script>"
Exit Sub
end if
F_B_Arr=Split(Split(KS.C_S(ChannelID,5),"@@@")(0),"|")
F_V_Arr=Split(Split(KS.C_S(ChannelID,5),"@@@")(1),"|")
Call KSUser.Head()
%>
<table width="98%" height=20 border=0 align="center" cellPadding=0 cellSpacing=0 borderColor=#111111 id=AutoNumber3 style="BORDER-COLLAPSE: collapse">
<tr>
<td width=23 height=20><img src="Images/z3.gif" border=0></td>
<td width=160 bgColor=#5298d1 height=20><B> <font color=#ffffff><SPAN style="FONT-SIZE: 10.5pt">我发布的<%=KS.C_S(ChannelID,3)%></SPAN></font></B></td>
<td width=12 height=20><img src="Images/z4.gif" border=0></td>
<td width=583 height=20 align=right><a href="user_MySoftWare.asp?ChannelID=<%=ChannelID%>&Action=Add"><font color=red>·发布<%=KS.C_S(ChannelID,3)%></font></a> ·<a href="User_MySoftWare.asp?ChannelID=<%=ChannelID%>&Status=2">草 稿[<%=conn.execute("select count(id) from " & KS.C_S(ChannelID,2) & " where Verific=2 and DownInput='"& KSUser.UserName &"'")(0)%>]</a> ·<a href="User_MySoftWare.asp?ChannelID=<%=ChannelID%>&Status=0">待审核[<%=conn.execute("select count(id) from " & KS.C_S(ChannelID,2) & " where Verific=0 and DownInput='"& KSUser.UserName &"'")(0)%>]</a> ·<a href="User_MySoftWare.asp?ChannelID=<%=ChannelID%>&Status=1"> 已审核[<%=conn.execute("select count(id) from " & KS.C_S(ChannelID,2) & " where Verific=1 and DownInput='"& KSUser.UserName &"'")(0)%>]</a> ·<a href="User_MySoftWare.asp?ChannelID=<%=ChannelID%>&Status=3">被退稿[<%=conn.execute("select count(id) from " & KS.C_S(ChannelID,2) & " where Verific=3 and DownInput='"& KSUser.UserName &"'")(0)%>]</a></td>
</tr>
</table>
<%
Action=KS.S("Action")
Select Case Action
Case "Del"
Call SoftWareDel()
Case "Add","Edit"
Call DoAdd()
Case "AddSave","EditSave"
Call DoSave()
Case Else
Call SoftWareList
End Select
End Sub
Sub SoftWareList()
%>
<SCRIPT language=javascript src="../KS_Inc/showtitle.js"></script>
<SCRIPT language=javascript>
function unselectall()
{
if(document.myform.chkAll.checked)
{
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != 'chkAll'&&e.disabled==false)
e.checked = form.chkAll.checked;
}
}
</SCRIPT>
<%
If KS.S("page") <> "" Then
CurrentPage = KS.ChkClng(KS.S("page"))
Else
CurrentPage = 1
End If
Dim Param:Param=" Where DownInput='"& KSUser.UserName &"'"
Verific=KS.S("Status")
If Verific="" or not isnumeric(Verific) Then Verific=4
IF Verific<>4 Then
Param= Param & " and Verific=" & Verific
End If
IF KS.S("Flag")<>"" Then
IF KS.S("Flag")=0 Then Param=Param & " And Title like '%" & KS.S("KeyWord") & "%'"
IF KS.S("Flag")=1 Then Param=Param & " And KeyWords like '%" & KS.S("KeyWord") & "%'"
End if
If KS.S("ClassID")<>"" And KS.S("ClassID")<>"0" Then Param=Param & " And TID='" & KS.S("ClassID") & "'"
Dim Sql:sql = "select a.*,foldername from " & KS.C_S(ChannelID,2) & " a inner join KS_Class b on a.tid=b.id "& Param &" order by AddDate DESC"
Select Case Verific
Case 0
Call KSUser.InnerLocation("待审" & KS.C_S(ChannelID,3) & "列表")
Case 1
Call KSUser.InnerLocation("已审" & KS.C_S(ChannelID,3) & "列表")
Case 2
Call KSUser.InnerLocation("草稿" & KS.C_S(ChannelID,3) & "列表")
Case 3
Call KSUser.InnerLocation("退稿" & KS.C_S(ChannelID,3) & "列表")
Case Else
Call KSUser.InnerLocation("所有" & KS.C_S(ChannelID,3) & "列表")
End Select
%>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="border">
<tr class="Title">
<td width="6%" align="center">选中</td>
<td width="34%" align="center"><%=KS.C_S(ChannelID,3)%>名称</td>
<td width="10%" align="center"><%=KS.C_S(ChannelID,3)%>录入</td>
<td width="18%" align="center">添加时间</td>
<td width="10%" align="center">状态</td>
<td width="22%" align="center">管理操作</td>
</tr>
<%
Set RS=Server.CreateObject("AdodB.Recordset")
RS.open sql,conn,1,1
If RS.EOF And RS.BOF Then
Response.Write "<tr><td class='tdbg' height=30 colspan=6 valign=top>没有你要的" & KS.C_S(ChannelID,3) & "!</td></tr>"
Else
totalPut = RS.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage = 1 Then
Call showContent
Else
If (CurrentPage - 1) * MaxPerPage < totalPut Then
RS.Move (CurrentPage - 1) * MaxPerPage
Call showContent
Else
CurrentPage = 1
Call showContent
End If
End If
End If
%> <tr class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
<form action="User_MySoftWare.asp?ChannelID=<%=ChannelID%>" method="post" name="searchform">
<td height="45" align="center" colspan="6">
<%=KS.C_S(ChannelID,3)%>搜索：
<select name="Flag">
<option value="0">标题</option>
<option value="1">关键字</option>
</select>
关键字
<input type="text" name="KeyWord" class="textbox" value="关键字" size=20> <input class="button" type="submit" name="submit1" value=" 搜 索 ">
</td>
</form>
</tr>
</table>
<%
End Sub
Sub ShowContent()
Dim I
Response.Write "<FORM Action=""User_MySoftWare.asp?ChannelID=" & ChannelID & "&Action=Del"" name=""myform"" method=""post"">"
Do While Not RS.Eof
%>
<tr class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
<td height="20" align="center">
<INPUT id="ID" onClick="unselectall()" type="checkbox" value="<%=RS("ID")%>" name="ID">
</td>
<td height="22" align="left">[<%=RS("FolderName")%>]
<%Dim PhotoStr:PhotoStr=RS("PhotoUrl")
if PhotoStr="" Or IsNull(PhotoStr) Then PhotoStr=KS.GetDomain & "images/Nopic.gif"%>
<a title="<table width=80 border=0 align=center><tr><td><img src='<%=PhotoStr%>' border=0 width='130' height='80'></td></tr></table>" href="../<%=KS.C_S(ChannelID,10)%>/ShowInfo.asp?id=<%=rs("id")%>" target="_blank" class="link3"><%=KS.GotTopic(trim(RS("title")),25)%></a></td>
<td align="center"><%=rs("DownInput")%></td>
<td align="center"><%=formatdatetime(rs("AddDate"),2)%></td>
<td width="10%" align="center" class="font6">
<%Select Case rs("Verific")
Case 0
Response.Write "<span class=""font10"">待审</span>"
Case 1
Response.Write "<span class=""font11"">已审</span>"
Case 2
Response.Write "<span class=""font13"">草稿</span>"
Case 3
Response.Write "<span class=""font14"">退稿</span>"
end select
%></td>
<td align="center">
<%if rs("Verific")<>1 then%>
<a href="User_MySoftWare.asp?ChannelID=<%=ChannelID%>&Action=Edit&id=<%=rs("id")%>&page=<%=CurrentPage%>" class="link3">修改</a> <a href="User_MySoftWare.asp?ChannelID=<%=ChannelID%>&action=Del&ID=<%=rs("id")%>" onclick = "return (confirm('确定删除<%=KS.C_S(ChannelID,3)%>吗?'))" class="link3">删除</a>
<%else
If KS.C_S(ChannelID,42)=0 Then
Response.write "---"
Else
Response.Write "<a href='?channelid=" & channelid & "&id=" & rs("id") &"&Action=Edit&&page=" & CurrentPage &"' class='link3'>修改</a>"
End If
end if%>
</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="2">
<INPUT id="chkAll" onClick="CheckAll(this.form)" type="checkbox" value="checkbox" name="chkAll"> 选中所有<%=KS.C_S(ChannelID,3)%><INPUT class="button" onClick="return(confirm('确定删除选中的<%=KS.C_S(ChannelID,3)%>吗?'));" type=submit value="删除选定的<%=KS.C_S(ChannelID,3)%>" name=submit1> </FORM>
</td>
<td align="right" colspan="4">
<Êll KS.ShowPageParamter(totalPut, MaxPerPage, "User_MySoftWare.asp", True, KS.C_S(ChannelID,4) & KS.C_S(ChannelID,3), CurrentPage, "ChannelID=" & ChannelID & "&Status=" & Verific)%>
</td>
</tr>
<%
End Sub
'删除软件
Sub SoftWareDel()
Dim ID:ID=KS.S("ID")
ID=KS.FilterIDs(ID)
If ID="" Then Call KS.Alert("你没有选中要删除的" & KS.C_S(ChannelID,3) & "!",ComeUrl):Response.End
Conn.Execute("Delete From " & KS.C_S(ChannelID,2) & " Where DownInput='" & KSUser.UserName &"' and verific<>1 and ID In(" & ID & ")")
if ComeUrl="" then
Response.Redirect("../index.asp")
else
Response.Redirect ComeUrl
end if
End Sub
'添加
Sub DoAdd()
Call KSUser.InnerLocation("发布" & KS.C_S(ChannelID,3) & "")
ID=KS.ChkClng(KS.S("ID"))
IF Action="Edit" Then
CurrentOpStr=" OK,修改 "
Action="EditSave"
Dim DownRS:Set DownRS=Server.CreateObject("ADODB.RECORDSET")
DownRS.Open "Select * From " & KS.C_S(ChannelID,2) & " Where DownInput='" & KSUser.UserName &"' and ID=" & KS.S("ID"),Conn,1,1
IF DownRS.Eof And DownRS.Bof Then
call KS.Alert("参数传递出错!",ComeUrl)
Exit Sub
Else
If KS.C_S(ChannelID,42) =0 And DownRS("Verific")=1 Then
DownRS.Close():Set DownRS=Nothing
Response.Redirect "../plus/error.asp?action=error&message=" & server.urlencode("本频道设置已审核" & KS.C_S(ChannelID,3) & "不允许修改!")
End If
DownID=DownRS("DownID")
Title=DownRS("Title")
PhotoUrl=DownRS("PhotoUrl")
ClassID=DownRS("TID")
KeyWordS=DownRS("KeyWordS")
DownLB=DownRS("DownLB")
DownYY=DownRS("DownYY")
DownSQ=DownRS("DownSQ")
DownPT=DownRS("DownPT")
YSDZ=DownRS("YSDZ")
ZCDZ=DownRS("ZCDZ")
JYMM=DownRS("JYMM")
Author=DownRS("Author")
Origin=DownRS("Origin")
Content=DownRS("DownContent")
AddDate=DownRS("AddDate")
Verific=DownRS("Verific")
DownSize=DownRS("DownSize")
SizeUnit = Right(DownSize, 2)
DownSize = Replace(DownSize, SizeUnit, "")
If DownSize = "0" Then DownSize = ""
UserDefineFieldArr=KSUser.KS_D_F_Arr(ChannelID)
If IsArray(UserDefineFieldArr) Then
For I=0 To Ubound(UserDefineFieldArr,2)
If UserDefineFieldValueStr="" Then
UserDefineFieldValueStr=DownRS(UserDefineFieldArr(0,I)) & "||||"
Else
UserDefineFieldValueStr=UserDefineFieldValueStr & DownRS(UserDefineFieldArr(0,I)) & "||||"
End If
Next
End If
End If
SelButton=KS.C_C(ClassID,1)
DownRS.Close:Set DownRS=Nothing
Else
CurrentOpStr=" OK,添加 ":Action="AddSave":Verific=0:YSDZ="http://":ZCDZ="http://"
Author=KSUser.RealName
ClassID=KS.S("ClassID")
If ClassID="" Then ClassID="0"
SelButton="选择栏目..."
End IF
'取得下载参数
Dim I,DownLBList, DownYYList, DownSQList, DownPTList, RSP, DownLBStr, LBArr, YYArr, SQArr, PTArr, DownYYStr, DownSQStr, DownPTStr
Set RSP = Server.CreateObject("Adodb.RecordSet")
RSP.Open "Select * From KS_DownParam", conn, 1, 1
DownLBStr = RSP("DownLB")
DownYYStr = RSP("DownYY")
DownSQStr = RSP("DownSQ")
DownPTStr = RSP("DownPT")
RSP.Close
Set RSP = Nothing
'下载类别
' DownLBList="<option value="""" selected> </option>"
LBArr = Split(DownLBStr, vbCrLf)
For I = 0 To UBound(LBArr)
If LBArr(I) = DownLb Then
DownLBList = DownLBList & "<option value='" & LBArr(I) & "' Selected>" & LBArr(I) & "</option>"
Else
DownLBList = DownLBList & "<option value='" & LBArr(I) & "'>" & LBArr(I) & "</option>"
End If
Next
'下载语言
' DownYYList="<option value="""" selected> </option>"
YYArr = Split(DownYYStr, vbCrLf)
For I = 0 To UBound(YYArr)
If YYArr(I) = DownYY Then
DownYYList = DownYYList & "<option value='" & YYArr(I) & "' Selected>" & YYArr(I) & "</option>"
Else
DownYYList = DownYYList & "<option value='" & YYArr(I) & "'>" & YYArr(I) & "</option>"
End If
Next
'下载授权
' DownSQList="<option value="""" selected> </option>"
SQArr = Split(DownSQStr, vbCrLf)
For I = 0 To UBound(SQArr)
If SQArr(I) = DownSQ Then
DownSQList = DownSQList & "<option value='" & SQArr(I) & "' Selected>" & SQArr(I) & "</option>"
Else
DownSQList = DownSQList & "<option value='" & SQArr(I) & "'>" & SQArr(I) & "</option>"
End If
Next
'下载平台
'DownPTList="<option value="""" selected> </option>"
PTArr = Split(DownPTStr, vbCrLf)
For I = 0 To UBound(PTArr)
DownPTList = DownPTList & "<a href='javascript:SetDownPT(""" & PTArr(I) & """)'>" & PTArr(I) & "</a>/"
Next
%>
<script language="javascript">
function SetDownPT(addTitle){
var str=document.myform.DownPT.value;
if (document.myform.DownPT.value=="") {
document.myform.DownPT.value=document.myform.DownPT.value+addTitle;
}else{
if (str.substr(str.length-1,1)=="/"){
document.myform.DownPT.value=document.myform.DownPT.value+addTitle;
}else{
document.myform.DownPT.value=document.myform.DownPT.value+"/"+addTitle;
}
}
document.myform.DownPT.focus();
}
function SetPhotoUrl()
{
if (document.myform.DownUrl.value!='')
document.myform.PhotoUrl.value=document.myform.DownUrl.value.split('|')[1];
}
function SetDownUrlByUpLoad(DownUrlStr)
{ var UrlStrArr;
UrlStrArr=DownUrlStr.split('|');
for (var i=0;i<UrlStrArr.length-1;i++)
{
var url=UrlStrArr[i];
if(url!=null&&url!=''){document.myform.DownUrlS.value=url;}
}
}
function CheckClassID()
{
if (document.myform.ClassID.value=="0")
{
alert("请选择<%=KS.C_S(ChannelID,3)%>栏目！");
//document.myform.ClassID.focus();
return false;
}
return true;
}
function CheckForm()
{
<%if F_B_Arr(14)=1 and KS.C_S(ChannelID,34)=0 Then%>
if (frames["DownContent"].CurrMode!='EDIT') {alert('其他模式下无法保存，请切换到设计模式');return false;}
document.myform.Content.value=frames["DownContent"].KS_EditArea.document.body.innerHTML;
<%end if%>
if (document.myform.ClassID.value=="0")
{
alert("请选择<%=KS.C_S(ChannelID,3)%>栏目！");
//document.myform.ClassID.focus();
return false;
}
if (document.myform.Title.value=="")
{
alert("请输入<%=KS.C_S(ChannelID,3)%>名称！");
document.myform.Title.focus();
return false;
}
if (document.myform.DownUrlS.value=='')
{
alert("请添加<%=KS.C_S(ChannelID,3)%>！");
document.myform.DownUrlS.focus();
return false;
}
document.myform.submit();
return true;
}
function OpenThenSetValue(Url,Width,Height,WindowObj,SetObj)
{
var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:no;help:no;scroll:no;status:0;help:0;scroll:0;');
if (ReturnStr!='') SetObj.value=ReturnStr;
}
</script>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="border">
<form action="User_mySoftWare.asp?ChannelID=<%=ChannelID%>&Action=<%=Action%>" method="post" name="myform" id="myform">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="hidden" name="comeurl" value="<%=ComeUrl%>">
<tr class="title">
<td colspan=2 align=center>
<%IF KS.S("Action")="Edit" Then
response.write "修改" & KS.C_S(ChannelID,3)
Else
response.write "发布" & KS.C_S(ChannelID,3)
End iF
%>
</td>
</tr>
<tr class="tdbg">
<td width="12%" height="25" align="center"><%=F_V_Arr(1)%>：</td>
<td width="88%">
<% Call KSUser.GetClassByGroupID(ChannelID,ClassID,Selbutton) %>
</td>
</tr>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(0)%>：</td>
<td>
<input class="textbox" name="Title" type="text" id="Title" value="<%=Title%>" style="width:250px; " maxlength="100" />
<span style="color: #FF0000">*</span></td>
</tr>
<%if F_B_Arr(10)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><span><%=F_V_Arr(10)%>：</span></td>
<td>
<input class="textbox" name="KeyWords" value="<%=KeyWords%>" type="text" id="KeyWords" style="width:250px; " />
多个关键字请用"<span style="color: #FF0000">|</span>"隔开</td>
</tr>
<%end if%>
<%if F_B_Arr(11)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(11)%>：</td>
<td height="25">
<input class="textbox" name="Author" type="text" id="Author" style="width:250px; " value="<%=Author%>" maxlength="30" /></td>
</tr>
<%End If%>
<%if F_B_Arr(12)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(12)%>：</td>
<td>
<input class="textbox" name="Origin" value="<%=Origin%>" type="text" id="Origin" style="width:250px; " maxlength="100" /></td>
</tr>
<%end if%>
<%if F_B_Arr(6)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(6)%>：</td>
<td>
类别:<select name='DownLB'>
<%=DownLBList%>
</select> 语言:<select name='DownYY' size='1'>
<%=DownYYList%>
</select>授权:<select name='DownSQ' size='1'>
<%=DownSQList%></select><%
Response.Write "大小:<input type='text' size=4 name='DownSize' value='" & DownSize & "'> "
If SizeUnit = "KB" Then
Response.Write " <input name=""SizeUnit"" type=""radio"" value=""KB"" checked id=""kb""><label for=""kb"">KB</label> " & vbCrLf
Response.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"" id=""mb""><label for=""mb"">MB</label> " & vbCrLf
Else
Response.Write " <input name=""SizeUnit"" type=""radio"" value=""KB"" id=""kb""><label for=""kb"">KB</label> " & vbCrLf
Response.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"" checked id=""mb""><label for=""mb"">MB</label> " & vbCrLf
End If%>
</td>
</tr>
<%end if%>
<%if F_B_Arr(7)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(7)%>：</td>
<td>
<input class='textbox' type='text' size=70 name='DownPT' value="<%=DownPT%>"><br>
<font color='#808080'>平台选择
<%=DownPTList%></font></td>
</tr>
<%end iF%>
<%if F_B_Arr(15)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(15)%>：</td>
<td>
<input class="textbox" name="YSDZ" type="text" value="<%=YSDZ%>" id="YSDZ" style="width:250px; " maxlength="100" /></td>
</tr>
<%end if%>
<%if F_B_Arr(16)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(16)%>：</td>
<td>
<input class="textbox" name="ZCDZ" type="text" value="<%=ZCDZ%>" id="ZCDZ" style="width:250px; " maxlength="100" /></td>
</tr>
<%end if%>
<%if F_B_Arr(17)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(17)%>：</td>
<td>
<input class="textbox" name="JYMM" type="text" value="<%=JYMM%>" id="JYMM" style="width:250px; " maxlength="100" /></td>
</tr>
<%end if%>
<%
Response.Write KSUser.KS_D_F(ChannelID,UserDefineFieldValueStr)
%>
<%if F_B_Arr(8)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(8)%>：</td>
<td>
<input class="textbox" name="PhotoUrl" value="<%=PhotoUrl%>" type="text" id="PhotoUrl" style="width:250px; " maxlength="100" />
<input class="button" type='button' name='Submit3' value='选择图片地址...' onClick="OpenThenSetValue('Frame.asp?url=SelectPhoto.asp&pagetitle=选择图片&ChannelID=3',500,360,window,document.myform.PhotoUrl);" /></td>
</tr>
<%end if%>
<%if F_B_Arr(9)=1 Then%>
<tr class="tdbg">
<td height="25" align="center"><%=F_V_Arr(9)%>：</td>
<td>
<iframe id='UpPhotoFrame' name='UpPhotoFrame' src='User_upfile.asp?channelid=<%=ChannelID%>&Type=Pic' frameborder=0 scrolling=no width='95%' height='25'> </iframe></td>
</tr>
<%end if%>
<tr class="tdbg">
<td height="25" align="center"><%=KS.C_S(ChannelID,3)%>地址：</td>
<td valign="top">
<input type="text" class="textbox" name='DownUrlS' value='<%=DownUrls%>' size="50"> <span style="color: #FF0000">*</span>（带*为必填，上同） </td>
</tr>
<%if F_B_Arr(13)=1 Then%>
<tr class="tdbg">
<td height="70" align="center"><span><%=F_V_Arr(13)%>：</span></td>
<td align="center" valign="top"><iframe id='UpPhotoFrame' name='UpPhotoFrame' src='User_upfile.asp?channelid=<%=ChannelID%>' frameborder="0" scrolling="no" width='100%' height='90%'></iframe></td>
</tr>
<%end if%>
<%if F_B_Arr(14)=1 Then%>
<tr class="tdbg">
<td align="center"><%=F_V_Arr(14)%>：<br />
</td>
<td align="center">
<%If KS.C_S(ChannelID,34)=0 Then%>
<textarea name="Content" style="display:none"><%=KS.HTMLCode(Content)%></textarea>
<iframe id='DownContent' name='DownContent' src='Editor.asp?ID=Content&style=0&ChannelID=9999' frameborder=0 scrolling=no width='94%' height='170'></iframe>
<%Else
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "../KS_Editor/FCKeditor/"
oFCKeditor.ToolbarSet = "Basic"
oFCKeditor.Width = "98%"
oFCKeditor.Height = "150"
oFCKeditor.Value = KS.HTMLCode(Content)
oFCKeditor.Create "content"
End If
%>
</td>
</tr>
<%end if%>
<tr class="tdbg" <%if KS.S("Action")="Edit" And Verific=1 Then response.write " style='display:none'"%>>
<td height="25" align="center"><%=KS.C_S(ChannelID,3)%>状态：</td>
<td> <input name="Status" type="radio" value="0" <%If Verific=0 Then Response.Write " checked"%> />
发布
<input name="Status" type="radio" value="2" <%If Verific=2 Then Response.Write " checked"%>/>
草稿（注意：如果无法发布，请注意检查带*的选项是否为空！！！如＂茶友地址＂一栏是否有填）</td>
</tr>
<tr class="tdbg">
<td align="center" colspan=2><input class="button" type="button" name="Submit" onClick="return CheckForm();" value=" <%=CurrentOpStr%> " />
<input type="reset" class="button" name="Submit2" value=" 重来 " /></td>
</tr>
</form>
</table>
<%
End Sub
Sub DoSave()
ID=KS.ChkClng(KS.S("ID"))
ClassID=KS.S("ClassID")
Title=KS.LoseHtml(KS.S("Title"))
KeyWords=KS.LoseHtml(KS.S("KeyWords"))
Author=KS.LoseHtml(KS.S("Author"))
DownLB=KS.LoseHtml(KS.S("DownLB"))
DownYY=KS.LoseHtml(KS.S("DownYY"))
DownSQ=KS.LoseHtml(KS.S("DownSQ"))
DownSize=KS.S("DownSize")
If DownSize = "" Or Not IsNumeric(DownSize) Then DownSize = 0
DownSize = DownSize & KS.S("SizeUnit")
DownPT=KS.LoseHtml(KS.S("DownPT"))
YSDZ=KS.LoseHtml(KS.S("YSDZ"))
ZCDZ=KS.LoseHtml(KS.S("ZCDZ"))
JYMM=KS.LoseHtml(KS.S("JYMM"))
Origin=KS.LoseHtml(KS.S("Origin"))
Content=KS.HtmlEncode(Request.Form("Content"))
Verific=KS.ChkClng(KS.S("Status"))
If KS.C_S(ChannelID,17)<>0 And Verific=0 Then Verific=1
If KS.ChkClng(KS.S("ID"))<>0 Then
If KS.C_S(ChannelID,42)=2 Then Verific=1 Else Verific=0
End If
PhotoUrl=KS.LoseHtml(KS.S("PhotoUrl"))
DownUrls=KS.S("DownUrls")
UserDefineFieldArr=KSUser.KS_D_F_Arr(ChannelID)
If IsArray(UserDefineFieldArr) Then
For I=0 To Ubound(UserDefineFieldArr,2)
If UserDefineFieldArr(6,I)=1 And KS.S(UserDefineFieldArr(0,I))="" Then Response.Write "<script>alert('" & UserDefineFieldArr(1,I) & "必须填写!');history.back();</script>":Exit Sub
If UserDefineFieldArr(3,I)=4 And Not Isnumeric(KS.S(UserDefineFieldArr(0,I))) Then Response.Write "<script>alert('" & UserDefineFieldArr(1,I) & "必须填写数字!');history.back();</script>":Exit Sub
If UserDefineFieldArr(3,I)=5 And Not IsDate(KS.S(UserDefineFieldArr(0,I))) and UserDefineFieldArr(6,I)=1 Then Response.Write "<script>alert('" & UserDefineFieldArr(1,I) & "必须填写正确的日期!');history.back();</script>":Exit Sub
If UserDefineFieldArr(3,I)=8 And Not KS.IsValidEmail(KS.S(UserDefineFieldArr(0,I))) and UserDefineFieldArr(6,I)=1 Then Response.Write "<script>alert('" & UserDefineFieldArr(1,I) & "必须填写正确的Email!');history.back();</script>":Exit Sub
Next
End If
if ClassID="" Then ClassID=0
If ClassID=0 Then Response.Write "<script>alert('你没有选择" & KS.C_S(ChannelID,3) & "栏目!');history.back();</script>":Exit Sub
If Title="" Then Response.Write "<script>alert('你没有输入" & KS.C_S(ChannelID,3) & "名称!');history.back();</script>":Exit Sub
If DownUrls="" Then Response.Write "<script>alert('你没有输入" & KS.C_S(ChannelID,3) & "!');history.back();</script>": Exit Sub
Set RSObj=Server.CreateObject("Adodb.Recordset")
Dim Fname,FnameType,TemplateID
If ID=0 Then
Dim RSC:Set RSC=Server.CreateObject("ADODB.RECORDSET")
RSC.Open "select * from KS_Class Where ID='" & ClassID & "'",conn,1,1
if RSC.Eof Then
Response.end
Else
FnameType=RSC("FnameType")
Fname=KS.GetFileName(RSC("FsoType"), Now, FnameType)
TemplateID=RSC("TemplateID")
End If
RSC.Close:Set RSC=Nothing
End If
RSObj.Open "Select * From " & KS.C_S(ChannelID,2) & " Where downinput='" & ksuser.username & "' and ID=" & ID,Conn,1,3
If RSObj.Eof Then
RSObj.AddNew
RSObj("DownID")=KS.GetInfoID(ChannelID) '取软件的唯一ID
RSObj("DownInput")=KSUser.UserName
RSObj("Hits")=0
RSObj("TemplateID")=TemplateID
RSObj("Fname")=FName
RSObj("AddDate")=Now
RSObj("Rank")="★★★"
End If
RSObj("Title")=Title
RSObj("TID")=ClassID
RSObj("KeyWords")=KeyWords
RSObj("Author")=Author
RSObj("DownLB")=DownLB
RSObj("DownYY")=DownYY
RSObj("DownSQ")=DownSQ
RSObj("DownSize")=DownSize
RSObj("DownPT")=DownPT
RSObj("YSDZ")=YSDZ
RSObj("ZCDZ")=ZCDZ
RSObj("JYMM")=JYMM
RSObj("Origin")=Origin
RSObj("DownContent")=Content
RSObj("PhotoUrl")=PhotoUrl
RSObj("DownUrls")="0|下载地址|" & DownUrls
RSObj("Verific")=Verific
If IsArray(UserDefineFieldArr) Then
For I=0 To Ubound(UserDefineFieldArr,2)
If UserDefineFieldArr(3,I)=10 Then '支持HTML时
RSObj("" & UserDefineFieldArr(0,I) & "")=Request.Form(UserDefineFieldArr(0,I))
else
RSObj("" & UserDefineFieldArr(0,I) & "")=KS.S(UserDefineFieldArr(0,I))
end if
Next
End If
RSObj.Update
If Left(Ucase(Fname),2)="ID" And ID=0 Then
RSObj("Fname") = RSObj("ID") & FnameType
RSObj.Update
End If
RSObj.Close:Set RSObj=Nothing
If ID=0 Then
Response.Write "<script>if (confirm('" & KS.C_S(ChannelID,3) & "添加成功，继续添加吗?')){location.href='User_MySoftWare.asp?ChannelID=" & ChannelID & "&Action=Add&ClassID=" & ClassID &"';}else{location.href='User_MySoftWare.asp?ChannelID=" & ChannelID & "';}</script>"
Else
Response.Write "<script>alert('" & KS.C_S(ChannelID,3) & "修改成功!');location.href='" & ComeUrl & "';</script>"
End If
End Sub
End Class
%>
如何修改User_MySoftWare文件?
当前位置：
支持(0) | 
反对(0)
顶端 
底部
![电子邮件:[ xzmxw@163.com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
