<% if EmailFlag = 0 then Errmsg = "目前系统不支持发送邮件功能。" call Qcdn.Err_List(errmsg,3) Response.end end if If Request("method") = 1 then if Request("Unid") = "" then Errmsg = "
  • 发现异常错误。
  • 错误编号为: error 110。
  • 请和数码在线联系解决问题。" FoundErr = true else Unid = Request("Unid") Unid = qcdn.sqlcheck(Unid) end if if Trim(Request.Form("YouName")) = "" then Errmsg = Errmsg +"
  • 请输入您的姓名。" FoundErr = true else YouName = Trim(Request.Form("YouName")) YouName = qcdn.sqlcheck(YouName) end if if Trim(Request.Form("YouMail")) = "" then Errmsg = Errmsg +"
  • 请输入您的信箱。" FoundErr = true elseif Qcdn.IsValidEmail(Trim(Request.Form("YouMail"))) = false then Errmsg = Errmsg +"
  • 请输入您的正确信箱地址。" FoundErr = true else YouMail = Trim(Request.Form("YouMail")) YouMail = qcdn.sqlcheck(YouMail) end if if Trim(Request.Form("SendEmail")) = "" then Errmsg = Errmsg + "
  • 请输入要发送的信箱。" FoundErr = true elseif Qcdn.IsValidEmail(Trim(Request.Form("SendEmail"))) = false then Errmsg = Errmsg + "
  • 请输入要发送的正确信箱地址。" FoundErr = true else SendEmail = Trim(Request.Form("SendEmail")) SendEmail = qcdn.sqlcheck(SendEmail) end if if FoundErr then call Qcdn.Err_List(errmsg,1) Response.end end if Sql = "Select title,Content from article_info where Unid = " & Unid Set Rs = Conn.Execute(Sql) if Rs.eof and Rs.bof then Errmsg = "
  • 发生异常错误。
  • 错误编码为：error 111。
  • 请和数码在线联系解决问题。" call Qcdn.Err_List(errmsg,1) Response.end else title = YouName & "从数码在线给您发来的“" & Rs(0) & "”信息。" Content = Rs(1) end if rs.close : set rs = nothing Dim MailStr Emailbody=Emailbody &"" Emailbody=Emailbody &"" Emailbody=Emailbody & "


    " Emailbody=Emailbody &"" Emailbody=Emailbody &" " Emailbody=Emailbody &" " Emailbody=Emailbody &" " Emailbody=Emailbody &" " Emailbody=Emailbody &" " Emailbody=Emailbody &" " Emailbody=Emailbody &" " Emailbody=Emailbody &"" Emailbody=Emailbody &" " Emailbody=Emailbody &" " Emailbody=Emailbody &"" Emailbody=Emailbody &" " Emailbody=Emailbody &"
    "& title &"
    "&Qcdn.UBBCode(content)&"
    "& copyright &"
    "& Version &"
    " Select Case EmailFlag Case 0 Response.write "" Response.End Case 1 Call Qcdn.Jmail(YouMail,SendEmail,title,Emailbody) Case 2 Call Qcdn.Cdonts(YouMail,SendEmail,title,Emailbody) Case 3 Call Qcdn.aspemail(YouMail,SendEmail,title,Emailbody) End Select if MailStr <> "OK" then Response.Write "" else Response.Write "" end if Response.End end if if Request("Unid") = "" then Errmsg = "

  • 发现异常错误。
  • 错误编号为: error 110。
  • 请和数码在线联系解决问题。" call Qcdn.Err_List(errmsg,1) Response.end else Unid = Request("Unid") end if %>
    推荐文章给好友
    您的姓名： 

    您的信箱： 

    发送信箱：