| 发表于：2007-08-07 22:23:47 楼主 |
现有一个asp做的后台网页,现在想做一个asp.net版本的.用web2.0 vs2005+sql2000 开发.
现在我把源代码帖出来,请大家翻译下!!
<!--#include file= "../conn/conn.asp "-->
<!--#include file= "../inc/safe.asp "-->
<!--#include file= "../inc/function.asp "-->
<%if session（ "globalecmaster ")= " " or session（ "globalecmaster ")= " " then%>
<title> <%=webname%> ·中国 - 后台管理登陆 </title>
<style type=text/css>
.style3 {
font-size: 9pt; color: #dadeed; text-decoration: none
}
.style4 {
font-size: 9pt
}
.ipt {
border-right: #a8b1d2 1px solid; border-top: #a8b1d2 1px solid; font-size: 9pt; border-left: #a8b1d2 1px solid; width: 120px; color: #7b8ac3; border-bottom: #a8b1d2 1px solid; height: 18px
}
.copyright {
padding-right: 1px; border-top: #6595d6 1px dashed; padding-left: 1px; padding-bottom: 1px; font: 11px verdana,arial,helvetica,sans-serif; color: #4455aa; padding-top: 1px; text-decoration: none
}
</style>
<body topmargin=0 leftmargin= "0 " marginheight= "0 " bgcolor=#e9f0fa>
<center> <br> <br>
<br> <br>
<table height=350 cellspacing=0 cellpadding=0 width=755 align=center
background=images/login.jpg border=0>
<tbody>
<tr>
<td height=100> </td> </tr>
<tr>
<td height=200>
<table height=200 cellspacing=0 cellpadding=0 width=500 align=center
border=0>
<tbody>
<tr>
<td valign=center align=right> <img height=2 src= "images/lgline.gif "
width=402> </td> </tr>
<tr>
<td valign=center align=right>
<table cellspacing=0 cellpadding=0 width=460 border=0>
<tbody>
<tr>
<td>
<form name=form action=check.asp method=post>
<table style= "border-collapse: collapse " bordercolor=#111111
height=118 cellspacing=0 cellpadding=0 width=276 align=center
border=0>
<tbody>
<tr>
<td width=113 height=16>
<p class=style4 align=right> <font
color=#7b8ac3> 管理员账号： </font> </p> </td>
<td align=left width=171 height=25>
<p> <font size=2> <input size=18 name=userid> </font> </p> </td> </tr>
<tr valign=center align=middle>
<td width=113 height=17>
<p class=style4 align=right> <font
color=#7b8ac3> 管理员密码： </font> </p> </td>
<td width=171 height=25 align=left>
<p> <font size=2> <input type=password size=19 name=password onfocus= "this.select（); " readonly onkeydown= "calc.password.value=this.value " onchange= "calc.password.value=this.value " onclick= "password1=this;showkeyboard（);this.readonly=1;calc.password.value= ' ' "> </font> </p> </td> </tr>
<tr valign=center align=middle>
<td height=17> <p class=style4 align=right> <font
color=#7b8ac3> 系统验证码： </font> </p> </td>
<td width=171 height=25 align=left> <input name= "verifycode " type=text size=9 maxlength= "4 ">
<%call getsafecode%> </td>
</tr>
<tr valign=center align=middle>
<td width=113 height=13>
<div align=right> <input type=image height=27 width=84
src= "images/loginok.gif " value=提交 name=submit2>
</div> </td>
<td width=171 height=13>
<div align=center> <a href= "# " onclick= "document.location.reload（) "> <img
height=27 src= "images/loginre.gif " width=84
border=0> </a> </div> </td> </tr> </tbody> </table>
</form> </td> </tr> </tbody> </table> </td> </tr> </tbody> </table> </td> </tr>
<tr>
<td valign=top height=50>
<table cellspacing=0 cellpadding=0 width=700 align=center border=0>
<tbody>
<tr>
<td align= "right " width=244 class=style3> 授权使用: <a class=style3
href= " <%=weburl%> "
target=_blank> <%=weburl1%> </a> </td>
<td width=144> <div align= "center "> </div> </td>
<td width= "312 " class=style3> 当前使用版本：global components v1.0.0 </td>
</tr> </tbody> </table> </td> </tr> </tbody> </table>
<script language= "javascript " src= "../js/keyboard.js "> </script>
<!--#include file= "copy.asp "-->
<%
else
set rs=server.createobject（ "adodb.recordset ")
sql= "select * from corporation where uflag=0 order by id desc "
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
%>
<%end if
set rs=server.createobject（ "adodb.recordset ")
'sql= "select * from company where userid= ' "&session（ "userid ")& " ' "
'rs.open sql,conn,1,1
sql1= "select count（id) from corporation where cflag=0 and qyjj is not null "
set totle=conn.ＥＸＥＣute（sql1)
totle=totle（0)
sql1= "select count（id) from corporation where cflag=1 "
set totle1=conn.ＥＸＥＣute（sql1)
totle1=totle1（0)
sql1= "select count（info_id) from info where flag=0 "
set news=conn.ＥＸＥＣute（sql1)
news=news（0)
sql1= "select count（info_id) from info where flag=1 "
set olds=conn.ＥＸＥＣute（sql1)
olds=olds（0)
sql1= "select count（id) from productshow where flag=0 "
set o_news=conn.ＥＸＥＣute（sql1)
o_news=o_news（0)
sql1= "select count（id) from productshow where flag=1 "
set o_olds=conn.ＥＸＥＣute（sql1)
o_olds=o_olds（0)
sql1= "select count（newsid) from news "
set n_totle=conn.ＥＸＥＣute（sql1)
n_totle=n_totle（0)
%>
<%
dim theinstalledobjects（17)
theinstalledobjects（0) = "mswc.adrotator "
theinstalledobjects（1) = "mswc.browsertype "
theinstalledobjects（2) = "mswc.nextlink "
theinstalledobjects（3) = "mswc.tools "
theinstalledobjects（4) = "mswc.status "
theinstalledobjects（5) = "mswc.counters "
theinstalledobjects（6) = "iissample.contentrotator "
theinstalledobjects（7) = "iissample.pagecounter "
theinstalledobjects（8) = "mswc.permissionchecker "
theinstalledobjects（9) = "scripting.filesystemobject "
theinstalledobjects（10) = "adodb.connection "
theinstalledobjects（11) = "softartisans.fileup "
theinstalledobjects（12) = "softartisans.filemanager "
theinstalledobjects（13) = "jmail.smtpmail "
theinstalledobjects（14) = "cdonts.newmail "
theinstalledobjects（15) = "persits.mailsender "
theinstalledobjects（16) = "lyfupload.uploadfile "
theinstalledobjects（17) = "persits.upload.1 "
%>
<link href= "css/style.css " rel=stylesheet type=text/css>
注意这只是一半!!! |
|
|
|
|
