asp Jmail·¢ÓʼþÀà
<!--#include file="conn.asp" -->
<!--#include file="Fun.asp" -->
<%
'·¢ËÍÓʼþÀà
class SendEmails
'·¢ËÍ
private flag
private info
public sub Class_Initialize()
flag=false
info=""
end sub
public sub Class_Terminate()
flag=false
info=""
end sub
public property let SetFlag(byval v)
flag=v
end property
public property get GFlag()
GFlag=flag
end property
public property let SetMsg(byval m)
info=m
end property
public property get GMsg()
GMsg=info
end property
'µÃµ½ÓÊÏä·þÎñÆ÷ÉèÖÃ
private function getEmailset()
set f1=new DbConstrol
OpenConn()
f1.DConn=conn
set rs=f1.GetRs("select * from tbSetMail")
getEmailset=rs.getrows
rs.close
set rs=nothing
closeconn
set f1=nothing
end function
public function Sends()
call postFormfrom()
fromname=getFormStr("fromname")
fromaddress=getFormStr("fromaddress")
toname=getFormStr("toname")
toaddress=getFormStr("toaddress")
title=getFormStr("title")
content=getFormStr("content")
isimportance=getFormStr("isimportance")
if len(fromname)=0 then
Msg "ÇëÌîд·¢¼þÈËÐÕÃû!",0,""
response.End()
end if
if len(fromaddress)=0 then
Msg "ÇëÌîд·¢¼þÈ˵ØÖ·!",0,""
response.End()
end if
if len(toname)=0 then
Msg "ÇëÌîдÊÕ¼þÈËÐÕÃû!",0,""
response.End()
end if
if len(toaddress)=0 then
Msg "ÇëÌîдÊÕ¼þÈ˵ØÖ·!",0,""
response.End()
end if
if len(title)=0 then
Msg "ÇëÌîдÓʼþÖ÷Ìâ!",0,""
response.End()
end if
if len(content)=0 then
Msg "ÇëÌîдÓʼþÄÚÈÝ!",0,""
response.End()
end if
if isimportance="1" then
isimportance=1
else
isimportance=3
end if
arr=getEmailset()
MailServerUser=trim(arr(4,0))
M
Ïà¹ØÎĵµ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request("action")=1 then
Response.ContentType="application/ms-excel"
Response.AddHeader "content-disposition","attachment;filename=www.xls"
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//E ......
1.·Å×¢È뺯Êý
sub aspsql()
SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post) ......
sub aspsql()
SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post),Sql_Inj ......
<%
'¹ºÎï³µÀà ÀàÃû£ºUserCart
'×÷Õß:gameing
'»ù±¾ÔÀí:´ËÀàÓ÷þÎñÆ÷Session±äÁ¿±£´æÉÌÆ·Êý¾Ý,ÉÌÆ·ÓÃÒ»¸öÊý×é±íʾ.´ËÀàÀïÃæ±£´æÁËÈýÖÐÉÌÆ·¼Û¸ñ.
'1¡¢2008-11-25ÐÞ¸ÄFunction AddItem() by tommy ÉÌÆ·Ôö¼ÓÔÚ×îºó
'2¡¢2008-11-25ÐÞ¸Äby tommy Ôö¼Óɾ³ýÉÌÆ·¹ý³Ì Sub DelItem()
'3¡¢2008-11-25ת»»Ò»Ð©Êý¾ÝÀàÐͲÅÄÜÔ ......
ÓÉÓÚÏîÄ¿µÄÐèҪȥGoogleËÑÁËһϠ£¬»¹Õæ¶à
¼ÇµÃ“Ïëµ±Äê”ijÌìÉÏÎçÔÚÕâÀï·¹ý£¬¿´µ½Ò»Î»ÅóÓÑÌùµÄ×Ô¼ºÐ´µÄÑéÖ¤Âë³ÌÐò£¬ËäÈ»ËûµÄ³ÌÐòÊǺڰ×ÓÐÔӵ㣬µ«ÆäʵºÜÈÝÒ×±»ÆÆ½âµÄ£¬µ«È´Óв»ÉÙÈËϲ»¶×Å¡£¡£¡£Ã»°ì·¨£¬µ±ÌìÏÂÎçÑо¿ÁËÒ»· BMP ͼƬ£¬È»ºó¾Íд³öÁËÕâЩ´úÂ룬ֻÊǵ±³õûÓй«²¼£¬ÑÛ¿´½ñÌìÕâô¶à»µÈËÂÒÔںܶàÂÛ̳ ......