hs_news_gather.asp

65353音乐网 v1.1

<!-- #include file="include/admin_onlogin.asp" -->
<!-- #include file="include/db_mclass.asp" -->
<!-- #include file="include/db_isform.asp" -->
<%
Server.ScriptTimeout =600
del_user_true=true
del_upload_true=true
index_url="news"
dim mm_topic
mm_topic="topic"
dim RsTemp_name
RsTemp_name=Split("c_id,s_id,istop,hidden,username,tim,counter,cod,pic,MaxCharPerPage,PaginationType",",")
%>
<!-- #include file="include/db_con_gather.asp" -->
<%
function other_set()
%>
<TR>
<td>分类：</td>
<TD><%call chk_csid(nsort,cid,sid)%></TD>
</TR>
<TR>
<td>发布人：</td>
<TD><input type=text name=username value='<%response.write login_username%>' size=20 maxlength=20>&nbsp;&nbsp;推荐：<input type=checkbox name=istop value='yes'>&nbsp;&nbsp;隐藏/审核：<input type=checkbox name=hidden value='yes'></TD>
</TR>
<TR>
<td>发布时间：</td>
<TD><input type=text name=tim value='<%response.write joekoe_cms.now_time%>' size=20></TD>
</TR>
<TR>
	<TD><%call chk_emoney(0)%></TD>
	<TD>支持模式：<input  type=radio name=cod value='1'>&nbsp;支持UBB&nbsp;<input  type=radio name=cod value='2' checked>&nbsp;支持HTML</TD>
</TR>
<tr>
<td valign=top>分页方式：</td>
<td><select name="PaginationType" >
<option value="0">不分页</option>
<option value="1">自动分页</option>
</select></td>
</tr>
<tr>
<td valign=top>自动分页字符数：</td>
<td> <input name="MaxCharPerPage" type="text" value='3000' size="8" maxlength="8">  自动分页时的每页大约字符数（包含HTML标记）</td>
</tr>
<%
end function
sub RsTemp_mm()
    
    call chk_cid_sid()
	RsTemp_v(0)=cid
	RsTemp_v(1)=sid

    RsTemp_v(2)=0
    if trim(request.form("istop"))="yes" then RsTemp_v(2)=1
    
    RsTemp_v(3)=true
    if trim(request.form("hidden"))="yes" then RsTemp_v(3)=false
    
    RsTemp_v(4)=code_admin("username",1,20)
    if symbol_name(RsTemp_v(4))=false then RsTemp_v(4)=login_username
    
    RsTemp_v(5)=code_admin("tim",1,20)
    if RsTemp_v(5)="" then RsTemp_v(5)=joekoe_cms.now_time
    RsTemp_v(5)=joekoe_cms.time_type(RsTemp_v(5),1)
    
    RsTemp_v(6)=trim(request.form("counter"))
    if not isnumeric(RsTemp_v(6)) then RsTemp_v(6)=0
    RsTemp_v(6)=int(RsTemp_v(6))
	
	RsTemp_v(7)=trim(request.form("cod"))
    if not isnumeric(RsTemp_v(7)) then	RsTemp_v(7)=1
    RsTemp_v(7)=int(RsTemp_v(7))
    
    RsTemp_v(8)=""
end sub
%>