不太会php，大家帮忙给转下asp的。感谢

Question

不太会php，大家帮忙给转下asp的。下面是php代码config.php<?php
error_reporting(0);
session_start();//网站账号库
$db_type='mysql';
$db_charset='utf8';
$db_host='127.0.0.1:3306';
$db_username='root';
$db_password='123456';
$database='web'$tgurl="";
if(empty($tgurl)) $url_this = 'http://'.$_SERVER['HTTP_HOST'].$_SERVER["REQUEST_URI"];
else $url_this =$tgurl;
$conn = @mysql_connect("$db_host","$db_username","$db_password") or die ("服务器维护中~详情联系 ".$qq."。");
@mysql_select_db("$database",$conn) or die ("数据库表不存在或者未连接。请联系管理员 。");
mysql_query("set names UTF8"); //使用文件编码，防止出错function getIP()
{
if(!empty($_SERVER["HTTP_CLIENT_IP"]))
   $ip = $_SERVER["HTTP_CLIENT_IP"];
else if(!empty($_SERVER["HTTP_X_FORWARDED_FOR"]))
   $ip = $_SERVER["HTTP_X_FORWARDED_FOR"];
else if(!empty($_SERVER["REMOTE_ADDR"]))
   $ip = $_SERVER["REMOTE_ADDR"];
else
   $ip = "无法获取！";
return $ip;
}function str_check( $str ) { 
    if(!get_magic_quotes_gpc()) { 
        $str = addslashes($str); // 进行过滤 
    } 
    $str = str_replace("_", "\_", $str); 
    $str = str_replace("%", "\%", $str);
$str = str_replace("=", "\=", $str); 
$str = str_replace("<", "<_", $str); 
    $str = str_replace(">", "_>", $str);
   return $str; 
} 
?>
reg.php<?php 
include_once "../muapi/config.php";
$username=$_REQUEST['username'];
$pwd=$_REQUEST['pwd'];
$ip=getIP();
$sql="select * from account where name='$username'";  
$result=mysql_query($sql);
$zhnum=mysql_num_rows($result);
if($zhnum>0){
$b='{"ret":900,"msg":"账号已经存在"}';
exit($b);
}else{
$sql="INSERT INTO `account` (`name`,`passwd`, `ip`) VALUES ('$username','$pwd', '$ip')";
$result=mysql_query($sql);
if($result){
$sql="select * from account where name='$username'";  
$result=mysql_query($sql);
$row=mysql_fetch_array($result, MYSQL_ASSOC);
$b='{"ret":0,"msg":0,"data":{"uid":"'.$row["id"].'","token":"'.md5($username).'","username":"'.$row["name"].'"}}';
echo $b;
exit;
}else{
$b='{"ret":900,"msg":"数据插入失败"}';
exit($b);
}
}?>login.php
<?php 
include_once "../muapi/config.php";
$username=$_REQUEST['account'];
$pwd=$_REQUEST['pwd'];
$sql="select * from account where name='$username' and passwd='$pwd'";  
$result=mysql_query($sql);
$zhnum=mysql_num_rows($result);
if($zhnum>0){
$sql="select * from account where name='$username'";  
$result=mysql_query($sql);
$row=mysql_fetch_array($result, MYSQL_ASSOC);
$b='{"ret":0,"msg":0,"data":{"uid":"'.$row["id"].'","token":"'.md5($username).'","username":"'.$row["name"].'"}}';
echo $b;
exit;
}else{
//$b='{"ret":903,"msg":"账号或者密码错误"}';
$a=array("ret" => 903,"msg" => "账号或者密码错误" );
$a2=json_encode($a);
exit($a2);}?>就三个文件

Answer 1

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
    '/网站账号库
    Const db_type= "mysql"
    Const db_host="127.0.0.1"
    Const db_port="3306"
    Const db_username="root"
    Const db_password="123456"
    Const database="web"    Dim conn,connstr
    connstr = "Driver={mySQL};Server="&dbServer&";Port="&db_port&";Option=131072;Stmt=; Database="&database&";Uid="&db_username&";Pwd="&db_password&";"
    Set objConn = Server.CreateObject("Adodb.Connection")
    objConn.Open connstr
    If Err.number <> 0 Then
        objConn.Close
        Set objConn = Nothing
    End If
    conn = objConn    Dim tgurl,url_this
    If tgurl = "" Then
            url_this = "http://" & Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")
        Else
            url_this = tgurl
    End If    '/获取IP
    Private Sub getIP()
        userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
            If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") 
        getIP=userip
    End Sub    '/过滤输入
    Function str_check(ByVal str)
        If str > "" Then
            str = Replace(str, CHR(0), "")
            str = Replace(str, "'", "''")
            str = Replace(str, "[", "[[]")
            str = Replace(str, "%", "[%]")
            str = Replace(str, "<", "[<]")
            str = Replace(str, ">", "[>]")
            str = Replace(str, "=", "[=]")
            str_check = Replace(str, "_", "[_]")
        Else
            str_check = ""
        End If
    End Function
%>

Answer 2

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../muapi/config.asp"-->
<%
username = Trim(Request.Form("username"))
pwd = Trim(Request.Form("pwd"))
Sql = "select * from account where name=? and pwd=?"
Set AdminCmd = Server.CreateObject("Adodb.Command")
AdminCmd.ActiveConnection = conn
AdminCmd.CommandType = 1
AdminCmd.CommandText = Sql
AdminCmd.Parameters.Append(AdminCmd.CreateParameter("@name",200,1,50,username))
AdminCmd.Parameters.Append(AdminCmd.CreateParameter("@pwd",200,1,50,pwd))
Set AdminRs = Server.CreateObject("Adodb.RecordSet")
Set AdminRs = AdminCmd.Execute
Set AdminCmd = Nothing
If AdminRs.Eof And AdminRs.Bof Then
    Response.Write("{\"ret\":900,\"msg\":\"账号已经存在\"}")
    Else
    Call NewAdmin(username,pwd)
End If
AdminRs.Close
Set AdminRs = Nothing'新增用户
Public Sub NewAdmin(username,password)
    Set adminRs = Server.CreateObject("Adodb.RecordSet")
    Sql = "select * from account where 1=2"
    adminRs.Open Sql,conn,1,3
    adminRs.AddNew
    adminRs("name") = username
    adminRs("pwd") = password
    adminRs.Update
    adminRs.Close
    Set adminRs = Nothing
End Sub
%>

Answer 3

还是继续学php吧