我知道我很烦人,也知道我很菜.
经常要麻烦,烦到各位高手,各位斑竹.
但是每天学一点,认真的学点,
1年后 2 年后 或则10年后
我一定也会变成各位高手一样,
到时候也在会这里帮助各位想我这样想学
网站的朋友门..
呵呵-------------------这是废话啦..

---

在很多下载好的后台程序看多许多网站都有这些资料,.
但是我看他们写的源码,很复杂,
全部都是包含来包含去,
请问这些怎么写,简单点
照片——-》

照搬...


把你不想要的全部删掉就行..

晕4,.

<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
<td height=25 colspan=2 class="topbg"><strong>服 务 器 信 息</strong><tr>
<tr>
<td width="50%" class="tdbg" height=23>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td width="50%" class="tdbg">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td width="50%" class="tdbg" height=23>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td width="50%" class="tdbg">数据库地址：</td>
</tr>
<tr>
<td width="50%" class="tdbg" height=23>FSO文本读写：
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
<td width="50%" class="tdbg">数据库使用：
<%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr>
<td width="50%" class="tdbg" height=23>Jmail组件支持：
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
<td width="50%" class="tdbg">CDONTS组件支持：
<%If Not IsObjInstalled(theInstalledObjects(14)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<table>

他是这样写,.
我觉得
他也是包含的！！

[CODE]<table width="98%" border="0" cellspacing="1" cellpadding="1"><tr><td height=20><span class="STYLE3">当前位置：<a href="main.asp">管理首页</a></span> </td>
</tr>
</table>
<%
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"
%>
<div align="center">
<table width="98%" cellspacing="1" background=img/bg1.gif>
<tr><td colspan="2" height=20 bgcolor="#FFFFFF">
<p align="center"><span class="STYLE3">欢迎使用本文章系统，有关系统的安装与使用请看<font color=blue><a href=admin_help.asp>操作帮助</a></font>；如有疑问请到<font color=blue><a href=http://hi.baidu.com/aa00 target=_blank>听雨轩</a></font>留言。</span><br>
</td></tr>
<tr><td colspan="2" height=20><font color="#FFFFFF" class="STYLE3"><b>服务器有关的变量</b></font></td>
</tr>
<tr ><td valign=top bgcolor="#FFFFFF">显示客户发出的所有HTTP标题</td><td bgcolor="#FFFFFF"><%=request.ServerVariables("All_Http")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">检取ISAPIDLL的metabase路径</td>
<td bgcolor="#FFFFFF"><%=request.ServerVariables("APPL_MD_PATH")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">显示站点物理路径</td><td bgcolor="#FFFFFF"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">路径信息</td><td bgcolor="#FFFFFF"><%=request.ServerVariables("PATH_INFO")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">显示请求机器IP地址</td><td bgcolor="#FFFFFF"><%=request.ServerVariables("REMOTE_ADDR")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">服务器IP地址</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("LOCAL_ADDR")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">显示执行SCRIPT的虚拟路径</td><td bgcolor="#FFFFFF"><%=request.ServerVariables("SCRIPT_NAME")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">返回服务器的主机名，DNS别名，或IP地址</td>
<td bgcolor="#FFFFFF"><%=request.ServerVariables("SERVER_NAME")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">返回服务器处理请求的端口</td><td bgcolor="#FFFFFF"><%=request.ServerVariables("SERVER_PORT")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">协议的名称和版本</td><td bgcolor="#FFFFFF"><%=request.ServerVariables("SERVER_PROTOCOL")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">服务器的名称和版本</td><td bgcolor="#FFFFFF"><%=request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">服务器操作系统</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("OS")%></td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">脚本超时时间</td><td bgcolor="#FFFFFF"><%=Server.ScriptTimeout%> 秒</td></tr>
<tr ><td valign=top bgcolor="#FFFFFF">服务器CPU数量</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
<tr ><td valign=top width=30% bgcolor="#FFFFFF">服务器解译引擎</td>
<td bgcolor="#FFFFFF"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
</table>
</div>
<br>
<div align="center">
<table width="98%" cellspacing="1" background=img/bg1.gif>
<tr><td colspan="3" height=20 ><font color="#FFFFFF"><b>组件支持情况</b></font></td></tr>
<tr><td colspan="3" height=20 bgcolor=#FFFFFF ><b><font color="#000000">－－IIS自带组件</font></td></tr>
<tr height=22 align=center><td width="80%" bgcolor="#FFFFFF">组 件 名 称</td>
<td width="20%" bgcolor="#FFFFFF">是 否 支 持</td></tr>
<%dim i
For i=0 to 10
Response.Write "<TR bgcolor=#FFFFFF align=center height=20><TD align=left>&nbsp;" & theInstalledObjects(i) & "<font color=#888888>&nbsp;"
select case i
case 9
Response.Write "(FSO 文本文件读写)"
case 10
Response.Write "(ACCESS 数据库)"
end select
Response.Write "</font></td><td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b>"
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
<tr><td colspan="3" height=20 bgcolor="#FFFFFF"><b><font color="#000000">－－其他常见组件</font></td></tr>
<tr height=22 align=center><td width="80%" bgcolor="#FFFFFF">组 件 名 称</td>
<td width="20%" bgcolor="#FFFFFF">是 否 支 持</td></tr>
<% For i=11 to UBound(theInstalledObjects)
Response.Write "<TR bgcolor=#FFFFFF align=center height=20 ><TD align=left>&nbsp;" & theInstalledObjects(i) & "<font color=#888888>&nbsp;"
select case i
case 11
Response.Write "(SA-FileUp 文件上传)"
case 12
Response.Write "(SA-FM 文件管理)"
case 13
Response.Write "(JMail 邮件发送)"
case 14
Response.Write "(CDONTS 邮件发送 SMTP Service)"
case 15
Response.Write "(ASPEmail 邮件发送)"
case 16
Response.Write "(LyfUpload 文件上传)"
case 17
Response.Write "(ASPUpload 文件上传)"
end select
Response.Write "</font></td><td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "√"
End If
Response.Write "</td></TR>" & vbCrLf
Next
'=======================================
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
%>
</table>[/CODE]

收藏！！！！！！！！！棒的东西

http://www.dearjc.cn/html/wangluobiancheng/asp_net/20070610/1021.html
这篇教程或许对楼主有用。