读书人

求:VB登陆 ASPX+C# 的 代码!解决方案

发布时间: 2012-08-17 02:08:34 作者: rapoo

求:VB登陆 ASPX+C# 的 代码!
我下了一个 点卡充值系统 开发语是:.net2.0+c#
地址是: http://www.newasp.net/code/net/22768.html

这里面有个接口文件 api.aspx 代码是:
<%@ Page Language="C#" AutoEventWireup="true" CodeFile="api.aspx.cs" Inherits="api" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>无标题页</title></head>
<body>
<form id="form1" runat="server">
<div>

</div></form></body></html>

api.aspx.cs 文件代码是:

using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;

public partial class api : System.Web.UI.Page
{
public int snid=25;//随机码所乘的倍数,请在此修改

protected void Page_Load(object sender, EventArgs e)
{
if (Request.QueryString["Uname"] != null && Request.QueryString["Upass"] != null && Request.QueryString["Ranid"] != null)
{
DataTable dt = new DataTable();
dt = access.GreatDs("select * from userinfo where username='" + re.replace(Request.QueryString["Uname"]) + "' and userpassword='" + re.replace(Request.QueryString["Upass"]) + "'").Tables[0];

if (dt.Rows.Count < 1 )
{
Response.Write("Error,用户名和密码不正确");
Response.End();
return;
}
DateTime endtime = DateTime.Parse(dt.Rows[0]["end_date"].ToString());
if (DateTime.Compare(DateTime.Now,endtime)>0)
{
Response.Write("Error,帐户已经过期,请充值");
Response.End();
return;
}

int hid=int.Parse(Request.QueryString["Ranid"]) * snid;
string s = "ok,用户名为" + fun.Encrypt(Request.QueryString["Uname"], 1) + ",密码为";
s += fun.Encrypt(Request.QueryString["Upass"], 1) + ",随机数为";
s += fun.Encrypt(hid.ToString(), 1) + ",服务器当前时间为";

s += DateTime.Now + ",";
Response.Write(s);
Response.Write("到期时间为" + dt.Rows[0]["end_date"].ToString());
Response.Write("绑定的游戏帐号为" + dt.Rows[0]["gameno"].ToString());
Response.End();

}
else
{
Response.Write("Error,参数无效");
Response.End();
}
}
}

我想问一下 能不能 用VB 登陆 并且 返回 Response.Write里的信息???
如果能,那代码该怎么写???

我的接口在: http://52guagua.jfwl.net/api.aspx 给大家提供测试用的!
帐号: qpy 密码: 592
我的QQ: 324747460

[解决办法]
能。用inet提交登录信息,然后在inet状态改变并且state=12的时候,可以获取返回的信息。然后对返回的信息进行文本操作。比如查找返回的信息中有没有登录成功,如果有就表示成功了。就相当于一个网页登录器、?
[解决办法]


用XMLHttpRequest

读书人网 >VB

热点推荐