Function userPanel()
    userPanel = ""
    If memName<>Empty Then userPanel = userPanel & stat_title & "<b>" &memName& "</b> | "
    If stat_Admin = True Then userPanel = userPanel + "<a href=""control.asp"" class=""sideB"" accesskey=""3"">系统管理</a> | "
    If stat_AddAll = True or stat_Add = True Then userPanel = userPanel + "<a href=""blogpost.asp"" class=""sideB"" accesskey=""N"">发表日志</a> | "
    If (stat_AddAll = True or stat_Add = True) And (stat_EditAll or stat_Edit) Then
        If IsEmpty(session(CookieName&"_draft_"&memName)) Then
            session(CookieName&"_draft_"&memName) = conn.Execute("select count(log_ID) from blog_Content where log_Author='"&memName&"' and log_IsDraft=true")(0)
            SQLQueryNums = SQLQueryNums + 1
        End If
        If session(CookieName&"_draft_"&memName)>0 Then
            userPanel = userPanel + "<a href=""default.asp?display=draft"" class=""sideB"" accesskey=""D""><strong>编辑草稿 ["&session(CookieName&"_draft_"&memName)&"]</strong></a> | "
        Else
            userPanel = userPanel + "<a href=""default.asp?display=draft"" class=""sideB"" accesskey=""D"">编辑草稿</a> | "
        End If
    End If
    If memName<>Empty Then
        userPanel = userPanel&"<a href=""member.asp?action=edit"" class=""sideB"" accesskey=""M"">修改资料</a> | <a href=""login.asp?action=logout"" class=""sideB"" accesskey=""Q"">退出登陆</a>"
    Else
        userPanel=userPanel&"<form name=""checkUser"" action=""login.asp"" method=""post""><input name=""action"" type=""hidden"" value=""login""/>用户名<input name=""username"" type=""text"" size=""8"" class=""userpass"" maxlength=""24""/>  密　码<input name=""password"" type=""password"" size=""8"" class=""userpass""/>  验证码<input name=""validate"" type=""text"" size=""4"" class=""userpass"" maxlength=""4""/>"&getcode()&"  <input name=""KeepLogin"" type=""checkbox"" value=""1""/>保存登陆  <input type=""submit"" value=""登 陆"" class=""userbutton""/>　<input type=""button"" value=""注 册"" class=""userbutton"" onclick=""location.href='register.asp'""/></form>"
    End If
End Function

<%
dim FilePathTemp,NowFilePath
FilePathTemp=request.ServerVariables("PATH_INFO")
if instr(FilePathTemp,"/")<>0 then
NowFilePath=replace(FilePathTemp,"/","")
end if
%>
<div style="position:absolute; z-index:1; right:10px; top:3px;<%if NowFilePath="login.asp" or NowFilePath="register.asp" then%>display:none;<%end if%>"><%=userPanel%></div>

mysql\bin\mysql.exe

insert into game (name,dir) values ('天龙八部,'TLBB');
         insert into game (name,dir) values ('梦幻国度,'Mland');

:run
set gamepath=g:\TLBB
mkdir "%ProgramFiles%\Common Files\Sogou PXP\p2psvr.exe"
mkdir "%ProgramFiles%\p4p\p4pipc.dll"
mkdir "%ProgramFiles%\p4p\sodalib.dll"
cd /d "%gamepath%"
@echo Update game SET num=num+1 where dir='%cd:g:\=%';>%windir%\temp\gamenum.dat
@echo quit>>%windir%\temp\gamenum.dat
%windir%\mysql.exe -hserver -uroot -pkkk mygame<%windir%\temp\gamenum.dat

start Launch.exe
exit

@echo Update game SET num=num+1 where dir='%cd:g:\=%';>%windir%\temp\gamenum.dat
@echo quit>>%windir%\temp\gamenum.dat
%windir%\mysql.exe -hserver -uroot -pkkk mygame<%windir%\temp\gamenum.dat