Asp.net常用的三十多个代码(非常实用


 

1.//弹出对话框.点击转向指定页面

Response.Write("<script>window.alert('该会员没有提交申请,请重新提交!')</script>");
Response.Write("<script>window.location ='http://www.51aspx.com/bizpulic/upmeb.aspx'</script>");

2.//弹出对话框

Response.Write("<script language='javascript'>alert('产品添加成功!')</script >");

3.//删除文件

string filename ="20059595157517.jpg";
pub.util.DeleteFile(HttpContext.Current.Server.MapPath("../file/")+filename);

4.//绑定下拉列表框datalist

System.Data.DataView dv=conn.Exec_ex("select -1 as code,'请选择经营模式' as content from dealin union select code,content from dealin");
this.dealincode.DataSource=dv;
this.dealincode.DataTextField="content"; //
this.dealincode.DataValueField="code";    //id 
this.dealincode.DataBind();
this.dealincode.Items.FindByValue(dv[0]["dealincode"].ToString()).Selected=true;

5.//时间去秒显示

<%# System.DateTime.Parse(DataBinder.Eval(Container.DataItem,"begtime").ToString()).ToShortDateString

6.//标题带链接

<%# "<a class=\"12c\" target=\"_blank\" href=\"">"+ DataBinder.Eval(Container.DataItem,"proname")+"</a>"%>

7.//修改转向

<%# "<A href=\"editpushpro.aspx?id="+DataBinder.Eval(Container.DataItem,"code")+"\">"+"修改"+"</A>"%>

8.//弹出确定按钮

<%# "<A id=\"btnDelete\" οnclick=\"return confirm('你是否确定删除这条记录吗?');\" href=\"pushproduct.aspx?dl="+DataBinder.Eval(Container.DataItem,"code")+" \">"+"删除"+"</A>"%>

9.//输出数据格式化 "{0:F2}" 是格式 F2表示小数点后剩两位

<%# DataBinder.Eval(Container, "DataItem.PriceMoney","{0:F2}") %>

10.//提取动态网页内容

Uri uri = new Uri("http://www.51aspx.com/");
WebRequest req = WebRequest.Create(uri);
WebResponse resp = req.GetResponse();
Stream str = resp.GetResponseStream();
StreamReader sr = new StreamReader(str,System.Text.Encoding.Default);
string t = sr.ReadToEnd();
this.Response.Write(t.ToString());

11.//获取" . "后面的字符

i.ToString().Trim().Substring(i.ToString().Trim().LastIndexOf(".")+1).ToLower().Trim()
  打开新的窗口并传送参数: 
  传送参数:
response.write("<script>window.open('*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="+...+"')</script>")
接收参数:
string a = Request.QueryString("id");
string b = Request.QueryString("id1");


 12.为按钮添加对话框

Button1.Attributes.Add("onclick","return confirm('确认?')");
button.attributes.add("onclick","if(confirm('are you sure...?')){return true;}else{return false;}")

13.删除表格选定记录

int intEmpID = (int)MyDataGrid.DataKeys[e.Item.ItemIndex];
string deleteCmd = "Delete from Employee where emp_id = " + intEmpID.ToString()

14.删除表格记录警告

private void DataGrid_ItemCreated(Object sender,DataGridItemEventArgs e)
 {
  switch(e.Item.ItemType)
  {
  case ListItemType.Item :
  case ListItemType.AlternatingItem :
  case ListItemType.EditItem:
  TableCell myTableCell;
  myTableCell = e.Item.Cells[14];
  LinkButton myDeleteButton ;
  myDeleteButton = (LinkButton)myTableCell.Controls[0];
  myDeleteButton.Attributes.Add("onclick","return confirm('您是否确定要删除这条信息');");
  break;
  default:
  break;
  }
 }

15.点击表格行链接另一页

private void grdCustomer_ItemDataBound(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e)
 {
  //点击表格打开
   if (e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)
  e.Item.Attributes.Add("onclick","window.open('Default.aspx?id=" + e.Item.Cells[0].Text + "');");
 }
双击表格连接到另一页
   在itemDataBind事件中
if(e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)
 {
  string orderItemID =e.item.cells[1].Text;
  e.item.Attributes.Add("ondblclick", "location.href='../ShippedGrid.aspx?id=" + orderItemID + "'");
 }
双击表格打开新一页
if(e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)
 {
  string orderItemID =e.item.cells[1].Text;
  e.item.Attributes.Add("ondblclick", "open('../ShippedGrid.aspx?id=" + orderItemID + "')");
 }

16.表格超连接列传递参数

<asp:HyperLinkColumn Target="_blank" headertext="ID号" DataTextField="id" NavigateUrl="aaa.aspx?id='
  <%# DataBinder.Eval(Container.DataItem, "数据字段1")%>' & name='<%# DataBinder.Eval(Container.DataItem, "数据字段2")%>' />

17.表格点击改变颜色

if (e.Item.ItemType == ListItemType.Item ||e.Item.ItemType == ListItemType.AlternatingItem)
 {
  e.Item.Attributes.Add("onclick","this.style.backgroundColor='#99cc00';
    this.style.color='buttontext';this.style.cursor='default';");
 } 
写在DataGrid的_ItemDataBound里
if (e.Item.ItemType == ListItemType.Item ||e.Item.ItemType == ListItemType.AlternatingItem)
 {
 e.Item.Attributes.Add("onmouseover","this.style.backgroundColor='#99cc00';
  this.style.color='buttontext';this.style.cursor='default';");
 e.Item.Attributes.Add("onmouseout","this.style.backgroundColor='';this.style.color='';");
 }

18.关于日期格式

日期格式设定

DataFormatString="{0:yyyy-MM-dd}"

我觉得应该在itembound事件中

e.items.cell["你的列"].text=DateTime.Parse(e.items.cell["你的列"].text.ToString("yyyy-MM-dd"))

19.获取错误信息并到指定页面

//不要使用Response.Redirect,而应该使用Server.Transfer
  e.g
 // in global.asax
 protected void Application_Error(Object sender, EventArgs e) {
 if (Server.GetLastError() is HttpUnhandledException)
 Server.Transfer("MyErrorPage.aspx");
 //其余的非HttpUnhandledException异常交给ASP.NET自己处理就okay了 :)
 }
 //Redirect会导致post-back的产生从而丢失了错误信息,所以页面导向应该直接在服务器端执行,这样就可以在错误处理页面得到出错信息并进行相应的处理

20.清空Cookie

Cookie.Expires=[DateTime];
 Response.Cookies("UserName").Expires = 0

21.自定义异常处理

//自定义异常处理类 
using System;
 using System.Diagnostics;
 namespace MyAppException
 {
  /// <summary>
  /// 从系统异常类ApplicationException继承的应用程序异常处理类。
   /// 自动将异常内容记录到Windows NT/2000的应用程序日志
   /// </summary>
  public class AppException:System.ApplicationException
  {
  public AppException()
  {
  if (ApplicationConfiguration.EventLogEnabled)LogEvent("出现一个未知错误。");
  }
  public AppException(string message)
  {
  LogEvent(message);
  }
  public AppException(string message,Exception innerException)
  {
  LogEvent(message);
  if (innerException != null)
  {
  LogEvent(innerException.Message);
  }
  }
  //日志记录类
   using System;
  using System.Configuration;
  using System.Diagnostics;
  using System.IO;
  using System.Text;
  using System.Threading;
  namespace MyEventLog
  {
  /// <summary>
  /// 事件日志记录类,提供事件日志记录支持 
  /// <remarks>
  /// 定义了4个日志记录方法 (error, warning, info, trace) 
  /// </remarks>
  /// </summary>
  public class ApplicationLog
  {
  /// <summary>
  /// 将错误信息记录到Win2000/NT事件日志中
   /// <param name="message">需要记录的文本信息</param>
  /// </summary>
  public static void WriteError(String message)
  {
  WriteLog(TraceLevel.Error, message);
  }
  /// <summary>
  /// 将警告信息记录到Win2000/NT事件日志中
   /// <param name="message">需要记录的文本信息</param>
  /// </summary>
  public static void WriteWarning(String message)
  {
  WriteLog(TraceLevel.Warning, message);  
   }
  /// <summary>
  /// 将提示信息记录到Win2000/NT事件日志中
   /// <param name="message">需要记录的文本信息</param>
  /// </summary>
  public static void WriteInfo(String message)
  {
  WriteLog(TraceLevel.Info, message);
  }
  /// <summary>
  /// 将跟踪信息记录到Win2000/NT事件日志中
   /// <param name="message">需要记录的文本信息</param>
  /// </summary>
  public static void WriteTrace(String message)
  {
  WriteLog(TraceLevel.Verbose, message);
  }
  /// <summary>
  /// 格式化记录到事件日志的文本信息格式
   /// <param name="ex">需要格式化的异常对象</param>
  /// <param name="catchInfo">异常信息标题字符串.</param>
  /// <retvalue>
  /// <para>格式后的异常信息字符串,包括异常内容和跟踪堆栈.</para>
  /// </retvalue>
  /// </summary>
  public static String FormatException(Exception ex, String catchInfo)
  {
  StringBuilder strBuilder = new StringBuilder();
  if (catchInfo != String.Empty)
  {
  strBuilder.Append(catchInfo).Append("\r\n");
  }
  strBuilder.Append(ex.Message).Append("\r\n").Append(ex.StackTrace);
  return strBuilder.ToString();
  }
  /// <summary>
  /// 实际事件日志写入方法
   /// <param name="level">要记录信息的级别(error,warning,info,trace).</param>
  /// <param name="messageText">要记录的文本.</param>
  /// </summary>
  private static void WriteLog(TraceLevel level, String messageText)
  {
  try
  { 
  EventLogEntryType LogEntryType;
  switch (level)
  {
  case TraceLevel.Error:
  LogEntryType = EventLogEntryType.Error;
  break;
  case TraceLevel.Warning:
  LogEntryType = EventLogEntryType.Warning;
  break;
  case TraceLevel.Info:
  LogEntryType = EventLogEntryType.Information;
  break;
  case TraceLevel.Verbose:
  LogEntryType = EventLogEntryType.SuccessAudit;
  break;
  default:
  LogEntryType = EventLogEntryType.SuccessAudit;
  break;
  }
  EventLog eventLog = new EventLog("Application", ApplicationConfiguration.EventLogMachineName, ApplicationConfiguration.EventLogSourceName );
  //写入事件日志
   eventLog.WriteEntry(messageText, LogEntryType);
  }
  catch {} //忽略任何异常
   } 
  } //class ApplicationLog
 }

22.Panel 横向滚动,纵向自动扩展

<asp:panel style="overflow-x:scroll;overflow-y:auto;"></asp:panel>

23.回车转换成Tab 

(1)

 <script language="javascript" for="document" event="onkeydown">
  if(event.keyCode==13 && event.srcElement.type!='button' && event.srcElement.type!='submit' &&     event.srcElement.type!='reset' && event.srcElement.type!=''&& event.srcElement.type!='textarea'); 
  event.keyCode=9;
 </script>


(2)

 //当在有keydown事件的控件上敲回车时,变为tab
 public void Tab(System.Web .UI.WebControls .WebControl webcontrol) 
 { 
 webcontrol.Attributes .Add ("onkeydown", "if(event.keyCode==13) event.keyCode=9"); 
 }

24.DataGrid超级连接列

DataNavigateUrlField="字段名" DataNavigateUrlFormatString="http://xx/inc/delete.aspx?ID={0}"

25.DataGrid行随鼠标变色

private void DGzf_ItemDataBound(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e)
 {
  if (e.Item.ItemType!=ListItemType.Header)
  {
  e.Item.Attributes.Add( "onmouseout","this.style.backgroundColor=\""+e.Item.Style["BACKGROUND-COLOR"]+"\"");
  e.Item.Attributes.Add( "onmouseover","this.style.backgroundColor=\""+ "#EFF3F7"+"\"");
  }
 }

26.模板列

<ASP:TEMPLATECOLUMN visible="False" sortexpression="demo" headertext="ID">
 <ITEMTEMPLATE>
 <ASP LABEL text='<%# DataBinder.Eval(Container.DataItem, "ArticleID")%>' runat="server" width="80%" id="lblColumn" />
 </ITEMTEMPLATE>
 </ASP:TEMPLATECOLUMN>
 <ASP:TEMPLATECOLUMN headertext="选中">
 <HEADERSTYLE wrap="False" horiz></HEADERSTYLE>
 <ITEMTEMPLATE>
 <ASP:CHECKBOX id="chkExport" runat="server" />
 </ITEMTEMPLATE>
 <EDITITEMTEMPLATE>
 <ASP:CHECKBOX id="chkExportON" runat="server" enabled="true" />
 </EDITITEMTEMPLATE>
 </ASP:TEMPLATECOLUMN>
后台代码
protected void CheckAll_CheckedChanged(object sender, System.EventArgs e)
 {
  //改变列的选定,实现全选或全不选。
   CheckBox chkExport ;
  if( CheckAll.Checked)
  {
  foreach(DataGridItem oDataGridItem in MyDataGrid.Items)
  {
  chkExport = (CheckBox)oDataGridItem.FindControl("chkExport");
  chkExport.Checked = true;
  }
  }
  else
  {
  foreach(DataGridItem oDataGridItem in MyDataGrid.Items)
  {
  chkExport = (CheckBox)oDataGridItem.FindControl("chkExport");
  chkExport.Checked = false;
  }
  }
 }

27.数字格式化

【<%#Container.DataItem("price")%>的结果是500.0000,怎样格式化为500.00?<%#Container.DataItem("price","{0:¥#,##0.00}")%>
 int i=123456;
 string s=i.ToString("###,###.00");

28.日期格式化

 

  【aspx页面内:<%# DataBinder.Eval(Container.DataItem,"Company_Ureg_Date")%>
  显示为: 2004-8-11 19:44:28
  我只想要:2004-8-11<%# DataBinder.Eval(Container.DataItem,"Company_Ureg_Date","{0:yyyy-M-d}")%>
  应该如何改?
   【格式化日期】
   取出来,一般是object((DateTime)objectFromDB).ToString("yyyy-MM-dd");
  【日期的验证表达式】
   A.以下正确的输入格式: [2004-2-29], [2004-02-29 10:29:39 pm], [2004/12/31] 
 ^((\d{2}(([02468][048])|([13579][26]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|([1-2][0-9])))))|(\d{2}(([02468][1235679])|([13579][01345789]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|(1[0-9])|(2[0-8]))))))(\s(((0?[1-9])|(1[0-2]))\:([0-5][0-9])((\s)|(\:([0-5][0-9])\s))([AM|PM|am|pm]{2,2})))?$
  B.以下正确的输入格式:[0001-12-31], [9999 09 30], [2002/03/03] 
 ^\d{4}[\-\/\s]?((((0[13578])|(1[02]))[\-\/\s]?(([0-2][0-9])|(3[01])))|(((0[469])|(11))[\-\/\s]?(([0-2][0-9])|(30)))|(02[\-\/\s]?[0-2][0-9]))$ 
  【大小写转换】
HttpUtility.HtmlEncode(string);
 HttpUtility.HtmlDecode(string)

29.如何设定全局变量

Global.asax中
  Application_Start()事件中
  添加Application[属性名] = xxx;
  就是你的全局变量

30.怎样作到HyperLinkColumn生成的连接后,点击连接,打开新窗口?

HyperLinkColumn有个属性Target,将器值设置成"_blank"即可.(Target="_blank")
  【ASPNETMENU】点击菜单项弹出新窗口
  在你的menuData.xml文件的菜单项中加入URLTarget="_blank",如:

<?xml version="1.0" encoding="GB2312"?>
 <MenuData ImagesBaseURL="images/"> 
 <MenuGroup>
 <MenuItem Label="内参信息" URL="Infomation.aspx" >
 <MenuGroup ID="BBC">
 <MenuItem Label="公告信息" URL="Infomation.aspx" URLTarget="_blank" LeftIcon="file.gif"/>
 <MenuItem Label="编制信息简报" URL="NewInfo.aspx" LeftIcon="file.gif" />

最好将你的aspnetmenu升级到1.2版

31.读取DataGrid控件TextBox值

foreach(DataGrid dgi in yourDataGrid.Items)
 {
  TextBox tb = (TextBox)dgi.FindControl("yourTextBoxId");
  tb.Text....
 }


32. 在DataGrid中有3个模板列包含Textbox分别为 DG_ShuLiang (数量) DG_DanJian(单价) DG_JinE(金额)分别在5.6.7列,要求在录入数量及单价的时候自动算出金额即:数量*单价=金额还要求录入时限制为 数值型.我如何用客户端脚本实现这个功能?

 <asp:TemplateColumn HeaderText="数量"> 
 <ItemTemplate>
 <asp:TextBox id="ShuLiang" runat='server' Text='<%# DataBinder.Eval(Container.DataItem,"DG_ShuLiang")%>' 
 />
 <asp:RegularExpressionValidator id="revS" runat="server" C ErrorMessage="must be integer" Validati />
 </ItemTemplate>
 </asp:TemplateColumn>
 <asp:TemplateColumn HeaderText="单价"> 
 <ItemTemplate>
 <asp:TextBox id="DanJian" runat='server' Text='<%# DataBinder.Eval(Container.DataItem,"DG_DanJian")%>' 
 />
 <asp:RegularExpressionValidator id="revS2" runat="server" C ErrorMessage="must be numeric" Validati />
 </ItemTemplate>
 </asp:TemplateColumn>
 <asp:TemplateColumn HeaderText="金额"> 
 <ItemTemplate>
 <asp:TextBox id="JinE" runat='server' Text='<%# DataBinder.Eval(Container.DataItem,"DG_JinE")%>' />
 </ItemTemplate>
 </asp:TemplateColumn><script language="javascript">
 function DoCal()
 {
  var e = event.srcElement;
  var row = e.parentNode.parentNode;
  var txts = row.all.tags("INPUT");
  if (!txts.length || txts.length < 3)
  return;
  var q = txts[txts.length-3].value;
  var p = txts[txts.length-2].value;
  if (isNaN(q) || isNaN(p))
  return;
  q = parseInt(q);
  p = parseFloat(p);
  txts[txts.length-1].value = (q * p).toFixed(2);
 }
 </script>

34.datagrid选定比较底下的行时,为什么总是刷新一下,然后就滚动到了最上面,刚才选定的行因屏幕的关系就看不到了。

page_load 
page.smartNavigation=true;


在网上碰巧看到的:http://blog.csdn.net/xb12369/article/details/7719026

 

设置快捷键

txtPwd.Attributes.Add("onkeydown", "if(event.which || event.keyCode){if ((event.which == 13) || (event.keyCode == 13)) {document.getElementById('" + loginbtn.ID + "').click();return false;}} else {return true}; ");

 

转载于:https://www.cnblogs.com/zhang271123288/p/3997870.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
订单实时提醒系统[提供ASP源码]系统图解: http://www.public.gov.cn/PublicRtx.jpg http://www.public.gov.cn/PublicRtx1.jpg按装说明: 下载地址:http://www.public.gov.cn/Down.asp 申请地址:http://www.public.gov.cn/reg1.asp http://rtx.tencent.com/cgi-bin/rtx_dl RTX服务端软件 http://218.18.95.202/download/RTXCLT_330_STD_Build_1997.EXE RTX客户端软件 http://www.public.gov.cn/SetupEx.Exe 公众商务通软件 http://www.public.gov.cn/RTX_mail.pps 幻灯演示文件系统说明:1.你网站订单即时提醒2.送货调度功能3.组织结构功能——通过软件快速方便了解企业及同事  通过软件客户端浏览企业组织结构  企业电子通讯录,在软件上直接查看对方电话分机、手机号码等信息4.管理功能——确保企业信息的安全与网络资源的合理利用  允许/禁止某项功能  强制对接收到的文件进行病毒扫描  信息存档  代理和端口设置,指定信息交互通道  *设定用户交流对象  *支持LDAP,例如可以直接导入IBM Lotus、微软Exchange的用户信息,共享用户目录信息5.即时信息交互——全面提升沟通方式与沟通速度  查看联系人状态信息  即时消息发送与接收  多人会话  文件传送  截图功能  直接贴图功能  录制、发送语音片断  语音/视频交流  自定义讨论组  查找企业内外联系人  动画表情符、表情符定制  广播群发消息  查找联系人  在线人员列表统计  投票功能6.企业短信中心——实现企业办公与手机的紧密结合  手机短信发送与接收(中国移动、中国联通手机)  短信群发  可发送短信数目控制、发送情况统计  短信查资料,例如发送短信到企业服务号码查同事联系方式(前提是该手机有权限)  自定义手机联系人分组  手机联系人资料导入导出7.视频语音网络会议——大幅度节省沟通成本  会议预定与定时提醒  文字、语音、视频交流  完整的会议记录与回放8.信息资料管理——实现信息保存与方便日后查询与回顾  客户端数据压缩保存  历史信息记录查询  通讯录  历史信息导入导出9.QQ互连功能——实现企业与7700万QQ活跃用户在可管理前提下的互通  与普通QQ用户的互通  对是否可与QQ互通的权限管理  对与QQ用户互通的信息存档监控10.与office的集成——与主流办公软件的结合  OfficeXP以上版本中出现软件用户名和手机号码的地方可以进行即时通信,如下图所示。11.与邮件的整合——集成现代企业办公的重要沟通方式  *邮件到达提醒  *软件离线消息转邮件  软件客户端进行邮件直接发送操作12.日常办公辅助功能  备忘录功能  待办事项功能,可将交流信息直接存储为待办事项13.应用程序共享——实现远程协作  共享本机的应用程序,可实现远程协作14.企业定制功能——使软件拥有企业特色  定制企业名称  定制企业标志  定制企业信息之窗15.与电话网络集成——实现电脑网络与电话的结合  支持IP电话  *支持SIP电话16.软件 WEB客户端功能——办公出差随时随地通信息  通过浏览器登陆企业软件服务器。提供简体中文、繁体中文(含转换机制,与简体版本交流不乱码)、英文等多语言版本,适合外企或者有跨国业务的企业交流使用。以后Web客户端还可以非常容易地内嵌,并统一到客户基于Web的信息平台上。17.*企业分支互联功能——企业不同分支机构之间交流  对有特殊需求的企业,例如各个分支机构需要自行管理用户,但分支机构之间要全面互通,可以通过软件分支互联功能实现。18.软件企业互联功能——企业之间的沟通更畅通  通过软件与其他软件企业用户互通安装步骤:1.下载好软件2.申请会员(FREE)[http://www.public.gov.cn/reg1.asp]3.安装RTX服务端和公众商务通软件4.进入网站会员后台,在“RTX用户内”获得RTX,如果没有请联系我们(FREE)也可以自己用服务端申请5.登陆系统:RTX服务端用RTX号和密码;公众商务通软件用网站会员用户名密码6.使用RTX服务端开设分机号7.给其它员工电脑安装RTX客户端软件,用开好的分机号和密码登陆8.再到我们网站发布产品,或到网站“RTX权限”内获得代码加到你的网站上9.将你的产品信息绑定指定接收的分机号上或以多号,可以群发10.如果你要离线短信通知,可以在RTX客户端软件上绑定你的手机号,这们就安装完成了 详情请看:http://www.public.gov.cn/rtxabout.aspURL接口:http://www.public.gov.cn/sendsms.asp?user=dailei&pass=548899&rtx=RTX号码(ALL为群发,多号可以逗号分开如:1111,1112)&title=信息标题&sms=信息内容ASP接口:<%user="Admin" ‘用户名pass="Admin" ‘密码rtx="1001,1002" ‘RTX号码(小写的all为群发,多号可以逗号分开如:1111,1112title="订购产品通知" ‘标题sms="信息内容*/信息内容2" ‘信息内容 */ 表示回车符Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False, "", "" .Send GetURL = .ResponseText End With Set Retrieval = Nothing End Function url="http://www.public.gov.cn/sendsms.asp?user="&user&"&pass="&pass&"&rtx="&rtx&"&title="&title&"&sms="&sms&""T=GetURL(url)if T="0" thenResponse.Write "信息发送成功"elseif T="1" thenResponse.Write "信息发送出错"end if%>
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值