📄 resubmits.asp
字号:
<!-- #include file="Setup.asp" -->
<!--#include file="WoLib/Cls_Class2.asp"-->
<!--#include file="WoLib/Function.asp"-->
<%
HtmlTop
%>
<%
if CookieUserID = "" then
Response.Redirect("login.asp")
end if
Src_ID = Request("Src_ID")
if Src_ID = "" or IsNumerIc(Src_ID)=false then
Response.Redirect("jiuoo.asp")
Response.End()
end if
action = request.Form("action")
if action = "editSrc" then
Set Rs = Server.CreateObject("adodb.recordset")
if trim(Request.Form("Body"))="" then
response.write"<script>alert('内容不能为空!');history.go(-1);</script>"
response.end
end if
SelSysTags = Request("SelSysTags")
Sql = "Select * from Wo_Source Where Src_ID="&Src_ID
Rs.open Sql,conn,1,2
if Not Rs.eof then
Rs("src_TypeID") = "1"
Rs("src_ChildID") = Request.Form("src_ChildID")
Rs("src_Title") = Request.Form("src_Title")
Rs("src_Desc") = BodyEncode(Request.Form("Body"))
Rs("src_Desc") = YBBEncode(Request.Form("Body"))
if Web_IsUploadShowImg = 1 then
src_Img = Request.Form("src_Img")
if isNull(src_Img) or src_Img = "" then src_Img = Web_Noimage
Rs("src_Img") = src_Img
end if
if Web_SrcUrlShow=true then
rs("src_Url")=trim(request.form("src_Url"))
end if
Rs("src_IP") = Request.ServerVariables("REMOTE_ADDR")
Rs("src_AddDate") = Now()
Rs("src_ModifyDate")= Now()
Rs.Update
Rs.Close
Set Rs = Nothing
if err.number = 0 then
Max_SrcID = Src_ID
conn.execute("Delete from wo_srcTags where srctag_srcID="&src_ID) '删除原有的标签
SelSysTags_Arr = split(SelSysTags,",")
for i = lbound(SelSysTags_Arr) to ubound(SelSysTags_Arr)
Sql = "Insert Into Wo_SrcTags(SrcTag_SrcID,SrcTag_TagID,SrcTag_TType,SrcTag_IP) " & _
"Values("&Max_SrcID&","&SelSysTags_Arr(i)&",true,'"&Request.ServerVariables("REMOTE_ADDR")&"')"
Conn.Execute(Sql)
next
src_tags1 = Request("src_tags1")
src_tags2 = Request("src_tags2")
src_tags3 = Request("src_tags3")
if src_tags1 <> "" then '添加新的标签
Call WoDig.Add_NewTags(Max_SrcID,src_tags1)
end if
if src_tags2 <> "" then
Call WoDig.Add_NewTags(Max_SrcID,src_tags2)
end if
if src_tags3 <> "" then
Call WoDig.Add_NewTags(Max_SrcID,src_tags3)
end if
Response.Redirect("show.asp?Src_ID="&Src_ID)
end if
else
Call Msgbox2("不存在您编辑此资料的发布！",1,"javascript:history.back();")
Response.End()
end if
Rs.close
Response.End()
end if
Sql = "Select * from Wo_Source Where Src_ID="&Src_ID
Rs.open Sql,conn,1,2
if Rs.eof then
Response.End()
end if
if rs("Src_UserID") <> CookieUserID and UserRoleID<>1 then
response.Write("<script>alert('您没有权利编辑别人的资料！');history.go(-1);</script>")
Response.End()
end if
%>
<script language="javascript">
<!--
function frm_onsubmit(frm){
var frm = eval(frm);
if(sCurrMode=="CODE"){alert("编辑器处于代码状态下不能发送内容！");return false;}
document.form.Body.value = getHTML();
if(frm.src_title.value==0){
alert("请输入标题");
frm.src_title.focus();
return false;
}
if(confirm("您正要修改这一信息的发布，请确认此信息的真实性和内容的完整性！\n您确认发布此信息吗？")){
return true;
}
return false;
}
function chk_null(obj){
var obj = eval("document.all." + obj);
if(obj.value!=""){
window.open("ChkIsExists.asp?type2=url&objvalue="+obj.value);
}
}
function isAddSysTags(obj){
systagnum = document.all.SysTagNum;
if(obj.checked==true){
systagnum.value = systagnum.value * 1 + 1
}else{
systagnum.value = systagnum.value * 1 - 1
}
if(systagnum.value > 3){
alert("为了使标签更加规范化，系统标签选择不能超过三个哦！");
systagnum.value = systagnum.value = 3;
obj.checked = false;
}
}
-->
</script>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="690" valign="top"><table width="99%" border="0" cellspacing="1" cellpadding="0" id=CommonListArea>
<tr id=CommonListTitle3>
<td> </td>
</tr>
<tr id=CommonListCell>
<td>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="postbg1"><span class="postfont20">修改我的资源：</span></td>
</tr>
</table><form name="form" method="post" onSubmit="return frm_onsubmit(this);">
<TABLE cellSpacing=3 cellPadding=0 width="98%" align=center border=0>
<TBODY>
<TR>
<TD class=mn vAlign=top bgColor=#f5f5f3 height=25><DIV align=right></DIV></TD>
</TR>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=67 height=25>类 别：</TD>
<TD colSpan=2><FONT color=#000099>
<SELECT class=input size=1 name=src_childid>
<%
response.Write(Rs("Src_ChildID"))
Call WoDig.Get_SrcChild2(1,Rs("Src_ChildID"))%>
</SELECT>
</FONT></TD>
</TR>
<TR>
<TD height=25>标 题：</TD>
<TD colSpan=2><INPUT class=input maxLength=50 size=30 name=src_title value='<%=Rs("Src_Title")%>'>
</TD>
</TR>
<TR id=CommonListCell>
<TD vAlign=top>内 容：
<br>
<%if SiteConfig("UpFileOption")<>empty then%>
<BR>
<BR>
<span id=UpFile></span><a href="javascript:Wo_Modal.Open('UploadAttachment.asp',500,150);" class="CommonTextButton">上传附件</a>
<%end if%><input name="UpFileID" type="hidden"></TD><input name="Body" type="hidden" value='<%=server.htmlencode(Rs("src_Desc"))%>'>
<TD height="250" colSpan=2><script type="text/javascript" src="Editor/Post.js"></script></TD>
</TR>
<TR>
<TD vAlign=top height=90>图片上传：</TD>
<TD width=90><IMG height=80 src="<%=Rs("src_img")%>" align=left name='src_img_2'></TD>
<TD width=372><A
onclick="window.open('Upload/upload_image.asp?formname=form&ImgSrc=src_img_2&editname=src_img','','status=no,scrollbars=no,top=200,left=310,width=420,height=165')"
href="#">>>上传形象图片......</A>
<INPUT type=hidden name=src_img value='<%=rs("src_img")%>'>
<BR>
<SPAN
class=hot>（建议尺寸为160Dpi以内）</SPAN></TD>
</TR>
<TR>
<TD height=25>固定标签：</TD>
<TD colSpan=2><%
Set Rs_Tag3 = Server.CreateObject("adodb.recordset")
Rs_Tag3.cursorlocation = 3
Sql_Tag3 = "Select * from Wo_SrcTags Where SrcTag_SrcID="&src_id&" and srctag_ttype=true"
Rs_Tag3.open Sql_Tag3,conn
while not Rs_Tag3.eof
G_Tags = G_Tags & Rs_Tag3("SrcTag_TagID") & ","
Rs_Tag3.MoveNext
wend
SysTagNum = Rs_tag3.RecordCount
G_TagsArr = split(G_Tags,",")
Rs_Tag3.Close
Set Rs_Tag3 = Nothing
Set Rs_SysTag = Conn.Execute("Select * from Wo_Tags Where Tag_IsUse=true Order By Tag_OrderBy")
i = 0
while Not Rs_SysTag.Eof
i = i + 1
Checked = ""
for i_4 = lbound(G_TagsArr) to ubound(G_TagsArr) - 1
if cint(trim(G_TagsArr(i_4))) = cint(Rs_SysTag("tag_ID")) then
Checked = " Checked"
end if
next
Response.Write("<input type='checkbox' "&Checked&" name='SelSysTags' value='"&Rs_SysTag("tag_ID")&"' OnClick='javascript:isAddSysTags(this);' /> "&Rs_SysTag("Tag_Name"))
if i mod 4 = 0 then Response.Write("<br>")
Rs_SysTag.MoveNext
Wend
Rs_SysTag.Close
Set Rs_SysTag = Nothing
%>
<SPAN class=hot>(系统标签可选定三个) </SPAN><input type='hidden' name='SysTagNum' value="<%=SysTagNum%>" /></TD>
</TR>
<TR>
<TD height=25>自定标签：</TD>
<TD colSpan=2><%
Set Rs_Tag2 = Server.CreateObject("adodb.recordset")
Rs_Tag2.Cursorlocation = 3
Sql_Tag2 = "Select * from Wo_SrcTags Where SrcTag_SrcID="&src_id&" and srctag_ttype=false"
Rs_Tag2.open Sql_Tag2,conn
r_count = Rs_Tag2.RecordCount
if Rs_Tag2.eof then
Response.Write("<input name='src_tags1' type='text' size='10'> ")
Response.Write("<input name='src_tags2' type='text' size='10'> ")
Response.Write("<input name='src_tags3' type='text' size='10'>")
else
if r_count >=1 then
Response.Write("<input name='src_tags1' type='text' size='10' value='"&Rs_Tag2("SrcTag_Name")&"'> ")
end if
if r_count >=2 then
Rs_Tag2.MoveNext
Response.Write("<input name='src_tags2' type='text' size='10' value='"&Rs_Tag2("SrcTag_Name")&"'> ")
elseif r_count <2 and r_count >=1 then
Response.Write("<input name='src_tags2' type='text' size='10'> ")
Response.Write("<input name='src_tags3' type='text' size='10'>")
end if
if r_count >=3 then
Rs_Tag2.MoveNext
Response.Write("<input name='src_tags3' type='text' size='10' value='"&Rs_Tag2("SrcTag_Name")&"'>")
elseif r_count <3 and r_count >=2 then
Response.Write("<input name='src_tags3' type='text' size='10'>")
end if
end if
%>
<SPAN class=hot>(可以自主扩充三个标签) </SPAN></TD>
</TR>
<TR>
<TD height=25>网站链接：</TD>
<TD colSpan=2><INPUT class=input maxLength=100 size=30 name=src_url <%if Rs("Src_Url")<>"http://" and Rs("Src_Url")<>"" then Response.Write(" value='"&Rs("Src_Url")&"'")else Response.Write(" value='http://'") end if%>></TD>
</TR>
<TR>
<TD height=30> </TD>
<TD colSpan=2><INPUT type=submit value=" 提 交 " name='Submit2'>
<INPUT type=hidden value=editSrc name=action>
<input type='hidden' name='Src_ID' value='<%=Src_ID%>' />
</TD>
</TR>
</TBODY>
</TABLE>
</FORM></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
<td valign="top"><table width="99%" border="0" cellspacing="1" cellpadding="0" id=CommonListArea>
<tr id=CommonListTitle3>
<td> 提示：</td>
</tr>
<tr id=CommonListCell>
<td> 修改时一般不修改你的自定义标签 </td>
</tr>
</table><br>
</td>
</tr>
</table>
<%
HtmlBottom
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -