2013年1月4日
摘要: 1:先加入命名空间Imports System.Net.SecurityImports System.Security.AuthenticationImports System.Security.Cryptography.X509Certificates2:再重载CheckValidationResult方法,返回true Public Function CheckValidationResult(sender As Object, certificate As X509Certificate, chain As X509Chain, errors As SslPolicyErrors)... 阅读全文
posted @ 2013-01-04 17:00 Konimeter 阅读(3302) 评论(0) 推荐(0) 编辑
  2011年10月14日
摘要: select*,casewhenresultrate>0thencase--<<case嵌套whenOdds>0thenOdds*ResultRate --如果resultrate大于零,且odds大于零,返回结果whenOdds<0thenResultRate --如果resultrate大于零,且odds小于零,返回结果end-->>case嵌套whenresultrate<0thencase--<<case嵌套whenOdds>0thenResultRate --如果resultrate小于零,且odds大于零,返回Res 阅读全文
posted @ 2011-10-14 14:41 Konimeter 阅读(361) 评论(0) 推荐(0) 编辑
  2011年9月20日
摘要: 写DimstrFilePathAsString=SaveFileDialog1.FileNameDimswAsStreamWriter=NewStreamWriter(strFilePath,True)'true是指以追加的方式打开指定文件Fori=0Tojtemp=i.ToStringsw.WriteLine(temp)sw.Flush()Nextsw.Close()sw=Nothing读DimlineAsStringDimsrAsStreamReader=NewStreamReader(strPath,System.Text.Encoding.Default)DoWhilesr.P 阅读全文
posted @ 2011-09-20 14:49 Konimeter 阅读(10295) 评论(0) 推荐(1) 编辑
  2011年9月18日
摘要: PrivateSubGetImage()TryDimrequestAsHttpWebRequest=WebRequest.Create("http://www.junjv.com/GetImage")request.Timeout=20000request.ServicePoint.ConnectionLimit=100request.ReadWriteTimeout=30000request.Method="GET"DimresponseAsHttpWebResponse=request.GetResponse()If(response.StatusC 阅读全文
posted @ 2011-09-18 14:03 Konimeter 阅读(1331) 评论(0) 推荐(0) 编辑
摘要: #region同步通过GET方式发送数据///<summary>///通过GET方式发送数据///</summary>///<paramname="Url">url</param>///<paramname="postDataStr">GET数据</param>///<paramname="cookie">GET容器</param>///<returns></returns>publicstringSendDataB 阅读全文
posted @ 2011-09-18 13:38 Konimeter 阅读(4605) 评论(0) 推荐(0) 编辑
摘要: PrivateFunctiongetSourceHtml()AsStringDimresultAsString=""TryDimiAsInteger=Int(Rnd(Now.Second)*10+1)DimwebAsNewSystem.Net.WebClient()web.Headers.Add("Content-Type","application/x-www-form-urlencoded")DimdAsByte()=System.Text.Encoding.UTF8.GetBytes("method=copy& 阅读全文
posted @ 2011-09-18 01:03 Konimeter 阅读(4014) 评论(0) 推荐(0) 编辑
摘要: 主线程中的代码Dimdelegate1AsB3D4D69AF0E1DB8A7B7EE6FDelegatedelegate1=AddressOfB3D4D69AF0E1DB8A7B7EE6FDimarAsSystem.IAsyncResultDimparam(2)AsObjectparam(0)=Meparam(1)=delegate1ar=delegate1.BeginInvoke(resStr,CallBackB3D4D69AF0E1DB8A7B7EE6FDelegate,param)耗时的操作代码PrivateFunctionB3D4D69AF0E1DB8A7B7EE6F(ByValD7B 阅读全文
posted @ 2011-09-18 00:41 Konimeter 阅读(671) 评论(0) 推荐(0) 编辑
摘要: <connectionStrings><addname="wz"connectionString="server=www.junjv.com,1234;database=redlim;UserId=sa;pwd=www.junjv.com"providerName="System.Data.SqlClient"/></connectionStrings>放在configuration节点下在vb.net中,可以使用如下代码获取:DimconnStrAsString=ConfigurationMana 阅读全文
posted @ 2011-09-18 00:31 Konimeter 阅读(942) 评论(0) 推荐(0) 编辑
摘要: PrivateFunctionvalidateClient(ByValguidAsString)AsIntegerDimresultAsInteger=0Try'读clientDimclientAsSqlDataReaderDimconnStrAsString=ConfigurationManager.ConnectionStrings("wz").ConnectionStringDimconnAsNewSqlConnection(connStr)DimcmdAsNewSqlCommand("redlim_client_getdetailbyguid&qu 阅读全文
posted @ 2011-09-18 00:19 Konimeter 阅读(1189) 评论(0) 推荐(0) 编辑
  2007年9月6日
摘要: 存储过程中输入的参数是@guidInput数据表:table需要返回@guidInput指定记录的value字段的值(赋值给@value)select @value=value from table where guidfield=@guidInput这样的语句,在不确定的情况下,会导致@value获取null值,请教各位知道是什么原因吗?出现这样的问题,会让所有决定使用guid作为主键的朋友都要... 阅读全文
posted @ 2007-09-06 01:56 Konimeter 阅读(1375) 评论(0) 推荐(0) 编辑