Jmail发送邮件实例
今天帮阿文做了个发送邮件的页面.就是在网页中填写表单后发送到指定邮箱.看下面代码.
表单页面我就不贴出来了.下面代码是处理表单数据与发送邮件.

  1. email.asp-处理数据部分
  2. sex = Request.Form("sex") '没有用到任何安全过滤函数.因为是发送到邮箱.
  3. Contact = Request.Form("contact")
  4. Email = Request.Form("email")
  5. Message = Request.Form("message")
  6. Str =  "<div style=""height:22px; font-size:12px;"">Sex:" & sex & "</div>"
  7. Str = Str & "<div style=""height:22px; font-size:12px;"">Contact Number:" & contact & "</div>"
  8. Str = Str & "<div style=""height:22px; font-size:12px;"">Email:" & email & "</div>"
  9. Str = Str & "<div style=""height:22px; font-size:12px; padding:5px 0;"">Message:" & message & "</div>"

Read the rest of this entry »

, , , , ,

今天写一篇关于后台新闻列表全选删除的文章。

对于歌特中国中的日志在发表带符号的日志时页面上的符合有些错误会变成全角。

稍稍懂的代码的朋友都应该知道怎么解决。下面开工。

JS代码部分:(加到页面中)

Read the rest of this entry »

数组项目的统计方法(Array Statistics)如下:

查询 日期(2007-12-2)

找到三条记录如下:

记录1服务项目字段值:|花门|鲜花|水晶灯|花车|地毯
记录1服务项目数量值:|2|10|2|1|5 // ( 2 , 10 , 2 , 1 , 5)
记录2服务项目字段值:|礼炮|鲜花|拱门|花车
记录2服务项目数量值:|4|10|2|1 //( 4 , 10 , 2 , 1)
记录3服务项目字段值:|花门|衣服|花车|地毯
记录3服务项目数量值:|1|2|1|5 //( 1 , 2 , 1 , 5)

现我统计上面记录服务项目名与数量

Read the rest of this entry »

,

如何才能在Swf上的输入文本元件里填写数据,后点击Button,传递到Asp页面尼?
下面是Cngothic今天查阅资料整理以下几行代码!

FLASH 部分:

按钮元件名称:cngothic_button
文本框元件名称:cngothic_username

As 代码:
_root.cngothic_button.onRelease = function() {
 if (_root.cngothic_username.text != “”) {
  names = _root.cngothic_username.text;
  loadVariablesNum(”write.asp”, 0, “POST”);
 }
}
Read the rest of this entry »

,

‘ ============================================
‘ 身份验证
‘ ============================================
Sub Sfyz()
 If Session(”UserName”) = “” Or Session(”PassWord”) = “” Then
 Session.Abandon()
 Call Window(”index.html”,”_parent”)
 Response.End()
 End If
 Sql = “select Username,Psw from users where Username=”"” & Session(”UserName”) & “”" and Psw=”"” & Session(”PassWord”) & “”"”
 SET Rs = Server.CreateObject(”ADODB.recordset”)
 Rs.Open Sql,Conn,1,1
 If Rs.eof And Rs.bof Then
 Session.Abandon()
 Call Window(”index.html”,”_parent”)
 Response.End()
 Else
 Closers()
 End If
End Sub
Read the rest of this entry »

, ,