[color=#ff8000]void main()
{
  int a=0;
  printf("%d",a);
  return ;

}[/color]

<% option explicit %>
<!--#include file="commonlib.asp" -->
<!--#include file="clsUser1.asp" -->
<!--#include file="md5code.asp"-->
<script language ="vbscript" runat ="server">

if request.ServerVariables ("Request_Method")<>"POST" then
  response.Write "错误的进入方式！！<br/>"
  response.End

end if

dim uName1,uPass1
dim IsNick1,inner1
IsNick1=false

if Session("nUserPass")="" then

  uName1=request.Form("TUser1")

  if trim(uName1)="" then
    uName1=request.Form ("TNick1")
    if CheckUserName1(uName1)=false then OutErr1 "非法的用户名！<br/>",true
    IsNick1=true
  else
    if CheckVID1(uName1)=false and CheckEmailAddress1(uName1)=false  then OutErr1 "非法的编号或邮箱地址!<br/>",true
  end if

  uPass1=request.Form("TPass1")
  inner1=false
else
  uName1=trim(Session("nUserName"))
  if uName1="" then
    uName1=trim(Session("nUserNick"))
    isNick1=true
  end if
  uPass1=Session("nUserPass")
  Session("nUserPass")=""
  inner1=true
end if




dim cUser1
set cUser1=new clsUser1

'cUser1.SetUserTable server.MapPath("DB1\usr1.mdb"),"tblUser1"

'if cUser1.Connect()=-1 then
'  err.Clear
'  response.Write ("Error in DB!")
'  response.End
'end if
ConnectUserDB1 cUser1,true

dim succ

succ=cUser1.ConfirmUser(uName1,MD5(uPass1),isnick1)


if succ then
  if cUser1.OpenUser (uName1,isnick1,true )=-1 then
    response.write "加载用户数据失败！"
  else     
    Session("nUserName")=cUser1.GetValue("Name1")
    Session("nUserNick")=cUser1.GetValue("Nick1")
    Session("nUserPio")=cUser1.GetValue("Pio1")
    Session("nUserID")=cUser1.GetValue("pID1")
    response.Write "登录成功！"
  end if
  cUser1.CloseUsers
  if not inner1 then response.redirect("showinf.asp?target=me")
else
  response.Write "登录失败！<br/>用户名或密码错误！"
end if




</script>

//Test
#include "stdio.h"

void main()
{
  printf("Hello World!");
  getchar();

}

<script></script>