📄 srcsubmit.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
action = request.Form("action")
Set Rs = Server.CreateObject("adodb.recordset")
if action = "addSrc" then
if SiteConfig("EnableAntiSpamTextGenerateForPost")=1 then
if Request.Form("VerifyCode")<>Session("VerifyCode") or Session("VerifyCode")="" then call Wodig.MsgBox2("验证码错误！",1,"javascript:history.back();")
end if
if trim(BodyEncode(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 1>2"
Rs.open Sql,conn,1,2
Rs.AddNew
Rs("src_UserID") = CookieUserID
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_HitUpdate") = now()
Rs("src_IP") = Request.ServerVariables("REMOTE_ADDR")
Rs("src_AddDate") = Now()
Rs("src_ModifyDate")= Now()
Rs("Src_RevertNum") = "0"
if Web_DigShenhe = 0 then
Rs("Src_isover") = true
else
Rs("Src_isover") = false
end if
Rs.Update
Rs.Close
Set Rs = Nothing
Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digfabiao")&",Experience=Experience+"&SiteConfig("Digfabiao")&" Where UserID="&CookieUserID)
'取出刚添加的资源
Max_SrcID = Conn.Execute("Select Max(Src_ID) From Wo_Source")(0)
Sql_Hit = "Insert into Wo_SrcHit(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP) Values(" & Max_SrcID & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
Conn.Execute(Sql_Hit) '先顶一下
if err.number = 0 then
'添加系统标签。。。
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_tags1 <> "" then
Call Wodig.Add_NewTags(Max_SrcID,src_tags2)
end if
if src_tags1 <> "" then
Call Wodig.Add_NewTags(Max_SrcID,src_tags3)
end if
Src_ID_2 = Conn.execute("select max(src_id) from wo_source")(0)
Url = "show.asp?Src_ID="&Src_ID_2
Response.Redirect(Url)
Response.End()
end if
Set Rs = nothing
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>
<%Call WoDig.Get_SrcChild2(1,0)%>
</SELECT> </FONT></TD></TR>
<TR><TD height=25>标 题：</TD>
<TD colSpan=2><INPUT class=input maxLength=50 size=30 name=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">
<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 src="images/noimage.gif" height=80 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> <BR>
<SPAN
class=hot>（建议尺寸为160Dpi以内）</SPAN></TD>
</TR>
<TR>
<TD height=25>固定标签：</TD>
<TD colSpan=2><%
Set Rs_SysTag = Conn.Execute("Select * from Wo_Tags Where Tag_TypeID="&Session("_WTypeID")&" and Tag_IsUse=true Order By Tag_OrderBy")
i = 0
while Not Rs_SysTag.Eof
i = i + 1
Response.Write("<input type='checkbox' 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='0' /></TD>
</TR>
<TR>
<TD height=25>自定标签：</TD>
<TD colSpan=2><INPUT class=input maxLength=50 size=10 name=src_tags1>
<INPUT
class=input maxLength=50 size=10 name=src_tags2>
<INPUT class=input maxLength=50
size=10 name=src_tags3>
<SPAN class=hot>(可以自主扩充三个标签) </SPAN></TD>
</TR>
<%if Web_SrcUrlShow=true then%>
<TR>
<TD height=25>网站链接：</TD>
<TD colSpan=2><INPUT class=input maxLength=100 size=30 value=http:// name=src_url></TD>
</TR>
<%end if%>
<%if SiteConfig("EnableAntiSpamTextGenerateForPost")=1 then%>
<tr id=CommonListCell>
<td align="right" height="30">验 证 码：</td>
<td colspan="2">
<input type="text" name="VerifyCode" MaxLength="4" size="10" onBlur="CheckVerifyCode(this.value)" onKeyUp="if (this.value.length == 4)CheckVerifyCode(this.value)"> <img src="VerifyCode.asp" title="验证码,看不清楚?请点击刷新验证码" style="cursor:pointer" onClick="this.src='VerifyCode.asp?'+Math.random()"> <span id="CheckVerifyCode" style="color:red"></span>
</td>
</tr>
<%end if%>
<TR>
<TD height=30> </TD>
<TD colSpan=2><INPUT type=submit value=" 提 交 " name='Submit2'>
<INPUT type=hidden value=addSrc name=action>
</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> <SPAN class="postfonthuo">可以自己定义标签</SPAN><BR></td>
</tr> </table>
</td></tr></table>
<%
HtmlBottom
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -