Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎĵµ£º

asp½«tableÉú³ÉexcelÎļþxls

 <%@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 ......

aspÒ³Ãæ´«ÖµÐ¡½á

°´ÕÕÌø×ªÒ³ÃæµÄ·½Ê½£¬Ò»Ò»À´×ܽá
Ê×ÏÈ˵½ÓÊÜÒ³Ãæ»ñÈ¡²ÎÊýµÄ·½Ê½£º
  1£©request.querystring¡£Ö»ÒªurlÖк¬ÓвÎÊý£¬¼´¿É´«µÝ
      ±ÈÈç µØÖ·£ºindex.aspx?label=da
              ÔòÓÃRequest.QueryString["label"]¼´ ......

[ASP]¶¯Ì¬°ó¶¨Êý¾ÝÔ´µÄGridViewÌí¼ÓÐÐ £¨¼¼Êõ±¸·Ý£©

 GridView Ϊ¶¯Ì¬°ó¶¨ DataSet£¬½á¹û (DataSet)dt = grid1.DataSource Äò»µ½¶«Î÷£¬Ïë͵ÀÁÖ±½ÓÌí¼ÓÐв»ÐÐÁË£¬ Ö»ºÃÓÃ×µÄ°ì·¨£¬°ÑGridViewµÄ¶«Î÷µ¹³ÉDataSet£¬È»ºóÔÚDataSetÀï¼ÓÐУ¬×îºó»Ø°ógridview
tryÀïÃæµÄ
DataTable dtable = new DataTable("tb1");
        
&n ......

asp¶à·ç¸ñ·ÖÒ³Àà

 <%
'asp¶à·ç¸ñ·ÖÒ³Àà
'ʹÓ÷¶Àý
'==========================================================================
'Set test = New Page '´´½¨À²
'test.CurrentPage=1 '×Ô¼ºÈ¥¶ÁÈ¡À­,µ±Ç°µÄÒ³Êý
'test.temp="{N1}{N2}{N3} {N4}"'ÕâÀïÊÇÏÔʾµÄÄ£°æ,×Ô¼º¿ÉÒÔ¶¨Òå,ÖÁÓÚ±êÇ©,¿ÉÒÔ×Ô¼ºÈ¥ÄǸöÀàÀïÕÒ
'test.Exec "S ......

asp ¹ºÎï³µÀà

<%
'¹ºÎï³µÀà ÀàÃû£ºUserCart
'×÷Õß:gameing
'»ù±¾Ô­Àí:´ËÀàÓ÷þÎñÆ÷Session±äÁ¿±£´æÉÌÆ·Êý¾Ý,ÉÌÆ·ÓÃÒ»¸öÊý×é±íʾ.´ËÀàÀïÃæ±£´æÁËÈýÖÐÉÌÆ·¼Û¸ñ.
'1¡¢2008-11-25ÐÞ¸ÄFunction AddItem() by tommy ÉÌÆ·Ôö¼ÓÔÚ×îºó
'2¡¢2008-11-25ÐÞ¸Äby tommy Ôö¼Óɾ³ýÉÌÆ·¹ý³Ì Sub DelItem()
'3¡¢2008-11-25ת»»Ò»Ð©Êý¾ÝÀàÐͲÅÄÜÔ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ