我是一个asp爱好者 也是一只菜鸟 我有一个黄页程序 但它的后台有问题 我不知道该怎么搞 求助各位老大们帮我看一下 我把源码帖在了下面 知道的请帮忙告诉我一下 怎么搞
========================================= …………………… dim username dim password dim ip stats=tatty_name(0)&"--控制面板" select case request("action") case "admin_left" call admin_left() case "admin_login" call admin_login() case "admin_main" call admin_main() case "admin_head" call admin_head() case else call main() end select sub main() if session("flag")="" then call admin_login() else %> <html> <head> <title><%=tatty_name(2)%>--<%=tatty_name(0)%>--控制面板</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <frameset framespacing="0" border="0" frameborder="0" cols="180,*"> <frame name="leftFrame" scrolling="auto" noresize target="rtop" src="admin_index.asp?action=admin_left"> <frameset rows="4%,*"> <frame name="rtop" target="rbottom" scrolling="no" src="admin_index.asp?action=admin_head"> <frame name="main" src="admin_index.asp?action=admin_main"> </frameset> <noframes> </noframes> </frameset> </html> <% end if end sub
Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function
sub admin_head() %> <title><%=tatty_name(0)%>--管理页面</title> <link rel="stylesheet" href="pic/admin.css" type="text/css"> <BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#D6DFF7"> <table width="100%" align=center cellpadding=0 cellspacing=0 border=0> <tr> <td height="23" class="forumHeaderBackgroundAlternate" valign=middle id=TableTitleLink>?→ 欢迎<b><%=session("member")%></b>进入<b><%=tatty_name(0)%></b>控制面板</td> <td class="forumHeaderBackgroundAlternate" valign=middle id=TableTitleLink><a href="http://www.new-point.net.cn/bbs" target=_blank>到企业论坛去和其他朋友交流</a></td> <td class="forumHeaderBackgroundAlternate" align=right valign=middle id=TableTitleLink><a href="index.asp" target=_top>返回系统首页</a>??</td> </tr> </table> <% end sub sub admin_login if request("reaction")="chklogin" then call chklogin() else dim num1 dim rndnum Randomize Do While Len(rndnum)<4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 loop session("verifycode")=rndnum call admin_login_main() end if end sub sub admin_login_main() call topmain() %> <form action="admin_index.asp?action=admin_login&reaction=chklogin" method=post> <table style="width:65%" border=0 cellspacing=1 cellpadding=3 align=center class=tableBorder> ………………
[此贴子已经被作者于2005-4-16 9:30:00编辑过]
