asp点虐 vb源码 aspnet mvc项目源码

请问asp点虐 九九表怎么写啊？vb的。谢谢再分析一下

'vb点虐 代码如下：

成都创新互联专注于赵县企业网站建设,成都响应式网站建设公司,商城网站建设。赵县网站建设公司,为赵县等地区提供建站服务。全流程按需制作网站，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务

for integer i = 1 to 9 '这两句是大的齿轮带着小的齿轮滚动

for integer j = 1 to 9

Response.Write(i * j)

'Response对象可以进行页面输出操作，你也可以在页面中定义一个label控件，用label1.text=CStr(i*j)来代替这句

next j

next i

'取消注释的代码，以便复制粘贴

for integer i = 1 to 9

for integer j = 1 to 9

Response.Write(i * j)

next j

next i

asp点虐 （vb)如何实现邮箱验证激活注册用户

告诉你原理吧，要实现邮箱激活其实就是解决服务器上发邮件的问题，用户注册后，把用户状态默认成未激活，然后生成一个链接到一个页面，在那个页面加载时运行一个SQl语句把用户状态改成激活，然后再跳转到什么成功激活的页面就可以了，当然要传递一些有效的参数了；邮件激活的话就给注册时用户填写的邮箱发信就可以了，内容里面写上那个自动生成链接，怎么发邮件呢，建议你使用第三方控件Jmail不错，当然还有别的，如果用Smtp协议发的话20封左右就挂掉了···

找回密码一样，用户回答对密保问题的话就把密码给他发到邮箱就是了，归根结底还是发邮件···

补一句：源码的没有····

求vb点虐 的源代码，最好说明其解决问题，越多越好，满意加50分。

下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  Dim nianxian As Integer '年限变量

  Dim dingcun As Integer '定存变量

  Dim fuli_big As Long '大复利

  Dim fuli_small As Long '小复利

  Dim i As Integer '循环变量

  Dim DATAstring As String '数据字符串

  nianxian = Val(年限_TextBox.Text)

  dingcun = Val(定存_TextBox.Text)

  DATAstring = ""

  For i = 1 To nianxian

      fuli_small = dingcun * (1 + 0.1875)

      dingcun = fuli_small

      fuli_big = fuli_big + fuli_small

      DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

      'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

  Next

  'fuli_big = fuli_small

  TextBox1.Text = DATAstring

  结果_TextBox.Text = Str(fuli_big) + "元"

End Sub

asp点虐 (vb) 登录代码

protected void lkbtLogin_Click(object sender, System.EventArgs e)

{

if(txtVerifyNum.Text.Trim() != Session["SessionAppendNumber"].ToString())

{

oprtb.AlertMsg("输入的验证码错误",Page);

return;

}

DataSet ds = new DataSet();

string sql = "select UserID,Name,DepartID,CompanyID,";

sql = sql+"(select Name from Depart where ((DepartID=UserList.DepartID) and ( CompanyID=UserList.CompanyID))) as DepartName,";

sql = sql+"(select Name from Company where (CompanyID=UserList.CompanyID)) as CompanyName ";

sql = sql+"from UserList where UserID='" + txtUserID.Text.Trim() +"' and Password='" + Encrypt.EncryptPwd(txtPassword.Text.Trim(),"MD5") + "' and Cancellation = 0";

//string sql = "select * from UserList where UserID='" + txtUserID.Text.Trim() +"' and Password='" + Encrypt.EncryptPwd(txtPassword.Text.Trim(),"MD5") + "' and Cancellation = 0";

ds = oprtb.SelectTable(sql);

if (ds.Tables[0].Rows.Count = 0)

{

oprtb.AlertMsg("输入的用户名或密码错误",Page);

return;

}

else

{

string UHAddress = Request.UserHostAddress;

string currentTime = DateTime.Now.ToString("yyyyMMdd hhmmss");

//登陆成功

Session["UserID"] = ds.Tables[0].Rows[0]["UserID"].ToString();

Session["Name"] = ds.Tables[0].Rows[0]["Name"].ToString();

Session["DepartID"] = ds.Tables[0].Rows[0]["DepartID"].ToString();

Session["DepartName"] = ds.Tables[0].Rows[0]["DepartName"].ToString();

Session["CompanyID"] = ds.Tables[0].Rows[0]["CompanyID"].ToString();

Session["CompanyName"] = ds.Tables[0].Rows[0]["CompanyName"].ToString();

//设置用户的登陆时间

oprtb.SetStartTime(txtUserID.Text.Trim());

//设置用户的登陆标记

string s_mark = txtUserID.Text.Trim() + "_" + UHAddress + "_" + currentTime;

oprtb.SetLoginMark(s_mark,txtUserID.Text.Trim());

//保存登陆标记

Session["LoginMark"] = s_mark;

MCompany.SystemLog slstru = new YesErp.MCompany.SystemLog();

slstru.SystemLog_IP = UHAddress;

slstru.SystemLog_LogIn = System.DateTime.Now;

slstru.SystemLog_Name = ds.Tables[0].Rows[0]["Name"].ToString();//用户姓名

slstru.SystemLog_ID = Int32.Parse(ds.Tables[0].Rows[0]["UserID"].ToString());//用户ID

//写系统日志

oprtb.LoginSystemLog(slstru);

//oprtb.AlertMsg("登录成功",Page);

Session["LoginTime"] = System.DateTime.Now;

//判断并转到新的页面

oprtb.ChangeUrl("../index.aspx",Page);

}

}

当前标题：asp点虐 vb源码 aspnet mvc项目源码
地址分享：https://www.cdcxhl.com/article10/ddchpdo.html

成都网站建设公司_创新互联，为您提供Google、定制开发、静态网站、网站内链、企业建站、营销型网站建设

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联