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

[午夜恋曲]

不太会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);

}

?>



就三个文件

[wanghao3616]

<%@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 %>

[wanghao3616]

<%@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 %>

[云天河V]

还是继续学php吧