大家来看看这个asp代码用的神马框架还是其他？

lingxiao2008 2012-02-19 07:29:39
最近接手维护一项目，是用asp写的（非.net），本人以前未接触过asp，只用过php，粗略的看下教程，然后看了项目代码，完全不知所云，代码中好多用法我看的asp教程中都未接触过，我怀疑是不是该代码是用的什么框架或是什么专用写法，求
asp高手指点，下面是项目中blog.asp的源代码（该项目是一个仿qq空间的blog程序，这个文件应该是主要框架文件吧），看的各种晕。。。:(


<!-- #include file="inc/conn.asp"-->

<%

pic=request("pic")

T=LCase(request("T"))

Id=request("id")

if Id<>"" then

Call GetCid(id,0)

if T="" then T="blog"

end if



if pic<>"" then

	Response.ExpiresAbsolute = Now() - 1

	Response.Expires = 0

	Response.CacheControl = "no-cache"

	WhereUrl=Request.ServerVariables("HTTP_REFERER")

	if WhereUrl="" then

	Response.Write "<img src='?pic="&pic&"' onerror=""this.src='images/noerror.gif'"">"

	else

	Response.Redirect QJ_UserUpload&pic

	end if

Response.End

end if

%><!-- #include file="inc/function.asp"--><!-- #include file="inc/ShowInc.asp"--><%

dim Uid

if QJ_WebUserType="" then

	dim WebUrl

	Uid=request("Uid")

	if Uid="" then

	Uid=split(Request.ServerVariables("Server_Name"),".")(0)

	end if

	if IsokUid(Uid)=false then

	Call EWrite("<script>alert('未找到该博客,请检查输入的网址是否有误!');location.href='http://"&QJ_WebUrl&"'</script>",0)

	end if

else

	Uid=QJ_WebUserType

	QJ_MyBlogUrl="http://"&QJ_WebUrl

end if

Uid=LCase(Uid)

Call ConnStart()

rs.open "select * from QJ_User where QJ_LoginName='"&Uid&"'",conn,1,3



if rs.eof then

rs.close

	if QJ_WebUserType="" then

	Call EWrite("<script>alert('未找到该博客,请检查输入的网址是否有误!');location.href='http://"&QJ_WebUrl&"'</script>",0)

	else

	Call EWrite("未找到博客用户数据，请检查后台设置的单用户博客帐号！",0)

	end if

end if



Dim QJlock

QJlock=0

QJlock=rs("lock")

If QJlock=1 then

   Response.Write "<p align='center'><font size=3>该用户尚未完成注册验证或已被管理员锁定！暂时不能查看其博客。</font><p>"

   Call EWrite("<script>alert('该用户尚未完成注册验证或已被管理员锁定！暂时不能查看其博客。');window.close();</script>",0)

End if



Dim QJUip,QJ_ViewIP,QJViewName,QJViewUser,QJViewIPlist

QJUip=ReUip()

QJ_ViewIP=rs("QJ_ViewIP")

if isNull(QJ_ViewIP) then QJ_ViewIP=""

if GetLogin() then

	QJViewName=Cook_LoginName

	QJViewUser=Cook_UserName

else

	QJViewName="无"

	QJViewUser="无"

end if

QJViewIPlist="$"&QJUip&"'"&QJViewName&"'"&QJViewUser&"'"&now()

if instr(QJ_ViewIP,"$"&QJUip&"'"&QJViewName&"'")=0 or datediff("d",rs("QJ_ViewDay"),date())<>0 then

	if datediff("d",rs("QJ_ViewDay"),date())=0 then

		rs("QJ_ViewToday")=rs("QJ_ViewToday")+1

	else

		QJ_ViewIP=""

		rs("QJ_ViewToday")=1

	end if

	rs("QJ_ViewIP")=QJViewIPlist&QJ_ViewIP

	rs("QJ_ViewAll")=rs("QJ_ViewAll")+1

	rs("QJ_ViewDay")=now

	rs.update

end if

QJ_UserName=rs("QJ_UserName")

QJ_BlogName=rs("QJ_BlogName")

QJ_BlogSkin=rs("QJ_BlogSkin")

QJ_BlogDesc=rs("QJ_BlogDesc")

'QJ_OnMusicList=rs("QJ_OnMusicList")

QJ_OnMusicType=rs("QJ_OnMusicType")

QJ_OnSkinList=rs("QJ_OnSkinList")

QJ_GuaJian=rs("QJ_GuaJian")

rs.close







dim QJ_SLUbo

if Ubound(split(QJ_OnSkinList,"|"))<5 then QJ_OnSkinList=QJ_OnSkinList&"|"

QJ_SLUbo=split(QJ_OnSkinList,"|")

QJ_OnCur=QJ_SLUbo(0)&"."&QJ_ShopMouse

QJ_OnMusicList=""

rs.open "select top 20 * from QJ_Music where QJ_Uid='"&Uid&"' and QJ_BgSong>0 order by QJ_BgSong desc,id desc",conn,1,1

do while not rs.eof

QJ_OnMusicList=QJ_OnMusicList&"#"&rs("QJ_Title")&"-"&rs("QJ_Author")&"|"&rs("QJ_Url")

rs.movenext

loop

rs.close



dim QJ_BlogTitle,TestSkinCss

if T="blog" and id<>"" then

Call ShowBlog()

QJ_BlogTitle=ShowBlogTitle&"-"&QJ_BlogName

QJ_WebWords=ShowBlogTitle&","&ShowBlogTag&","&QJ_WebWords

QJ_UserDescription=ShowBlogContent

else

QJ_BlogTitle=QJ_BlogName&"-"&QJ_UserName&"-"&QJ_WebName

QJ_WebWords=QJ_BlogDesc&","&QJ_BlogName&","&QJ_UserName&","&QJ_WebWords

QJ_UserDescription=QJ_BlogDesc

end if

TestSkinCss=Request.form("TestSkinCss")

CssSkinImg=Request.form("CssSkinImg")

if CssSkinImg<>"" then QJ_OnSkinList=CssSkinImg

if QJ_MyBlogUrl="" then QJ_MyBlogUrl=GetBlogUrl(Uid,"")

%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<title><%=QJ_BlogTitle%></title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<meta http-equiv="X-UA-Compatible" content="IE=7" />

<meta name="description" content="<%=QJ_UserDescription%>" />

<Meta name="Author" Content="<%=Uid&","&QJ_UserName%>">

<meta name="keywords" content="<%=QJ_WebWords%>" />

<link href="images/style.css" rel="stylesheet" type="text/css" />

<%if TestSkinCss="" then%><link id="QJ_SkinCss" href="skin/<%=QJ_BlogSkin%>/skin.css" rel="stylesheet" type="text/css" /><%else%>

<style>

<%=TestSkinCss%>

</style>

<%end if%><%if len(QJ_OnCur)>4 then%><style>*,a{cursor:url("images/shop/4/<%=QJ_OnCur%>")}</style><%end if

if T="" then%>

<link rel="alternate" type="application/rss+xml" title="<%=QJ_BlogTitle%>" href="http://<%=QJ_WebUrl%>/rss.asp?Uid=<%=Uid%>" /><%end if%>

<script language="javascript">

var QJ_Uid="<%=Uid%>";

var QJ_Skin="<%=QJ_BlogSkin%>";

var LoadType="<%=T%>";

var LoadId="<%=Id%>";

var Cook_Uid="<%=Cook_LoginName%>";	//当前登陆的用户名

var Cook_Uname="<%=Cook_UserName%>";	//当前登陆的用户昵称

var Cook_Ublog="<%=GetBlogUrl(Cook_LoginName,"")%>";	//当前登陆的用户博客地址

var OnMusicList="<%=QJ_OnMusicList%>";	//背景音乐列表

var OnMusicType=<%=QJ_OnMusicType%>;	//是否开启背景音乐 0开启，1关闭

var OnSkinList="<%=QJ_OnSkinList%>";		// |顶部背景|底部背景|欢迎动画|

var OnUploadSize=<%=QJ_UserUploadSize%>;

var OnUploadList=<%=QJ_UserUploadNum%>;

var OnUploadExt="<%=QJ_UserUploadExt%>";

var QJ_HomeUrl="http://<%=QJ_WebUrl%>/";

var QJ_ShopMouse="<%=QJ_ShopMouse%>";

var QJ_WebUserType="<%=QJ_WebUserType%>";

var QJ_Exp_ShopDel="<%=QJ_Exp_ShopDel&QJ_BlogExpName%>";

</script>

<script type="text/javascript" src="js/QJ_Display.js"></script>

<script type="text/javascript" src="js/QJ_Ajax.js"></script>

<script type="text/javascript" src="js/QJ_Html.js"></script><%if GetLogin() then%>

<script type="text/javascript" src="js/QJ_User.js"></script><%end if

if len(QJ_SLUbo(5))>0 then%>

<script type="text/javascript" src="js/QJ_Pf.js"></script><%end if%>

</head>

<body onresize="ChangeWin()">

<div id='Loading' style="background:#FFFFFF;position:absolute;width:100%;height:100%;z-index:100;left:0px;top:0px;text-align:center"><noscript><img src="images/noscript.gif" style="margin:150px auto 1000px auto;"><br></noscript><img class='Loading_Img' src='images/loading.gif' style='margin-top:250px'></div>

<script>BlogTopHtml()</script>

<div id='QJ_Scroll'>

<div id='QJ_ScrollBg' class='ScrollBg'></div>

<div id='QJ_ScrollImg' class='ScrollSkin' style='display:none'><%=QJ_GuaJian%></div>

<div id='QJ_Body'>

	<div id='QJ_Body_Banner'>

		<div id='QJ_Banner_Img' style='height:130px'></div>

		<div id='QJ_Body_Title'><%=QJ_BlogName%></div>

		<div id='QJ_Body_Url'><img src='images/ico1.gif' align='absmiddle'> <a href='#' onclick="copyTip('<%=QJ_MyBlogUrl%>');return false">[<%=QJ_MyBlogUrl%>]</a>　<%=QJ_BlogDesc%></div>

		<div id='QJ_Body_Menu'>

			<div id='A1' onmouseover="OnMenu(this.id,'over','')" onmouseout="OnMenu(this.id,'out','')" onmousedown="OnMenu(this.id,'down','')" onmouseup="OnMenu(this.id,'up','Main_Home.asp')"><img src='images/b.gif'></div>

			<div id='A2' onmouseover="OnMenu(this.id,'over','')" onmouseout="OnMenu(this.id,'out','')" onmousedown="OnMenu(this.id,'down','')" onmouseup="OnMenu(this.id,'up','Main_Manage.asp')"><img src='images/b.gif' style='margin-left:-52px'></div>

			<div id='A3' onmouseover="OnMenu(this.id,'over','')" onmouseout="OnMenu(this.id,'out','')" onmousedown="OnMenu(this.id,'down','')" onmouseup="OnMenu(this.id,'up','Main_Blog.asp')"><img src='images/b.gif' style='margin-left:-104px'></div>

			<div id='A4' onmouseover="OnMenu(this.id,'over','')" onmouseout="OnMenu(this.id,'out','')" onmousedown="OnMenu(this.id,'down','')" onmouseup="OnMenu(this.id,'up','Main_Music.asp')"><img src='images/b.gif' style='margin-left:-156px'></div>

			<div id='A5' onmouseover="OnMenu(this.id,'over','')" onmouseout="OnMenu(this.id,'out','')" onmousedown="OnMenu(this.id,'down','')" onmouseup="OnMenu(this.id,'up','Main_Photo.asp')"><img src='images/b.gif' style='margin-left:-208px'></div>

			<div id='A6' onmouseover="OnMenu(this.id,'over','')" onmouseout="OnMenu(this.id,'out','')" onmousedown="OnMenu(this.id,'down','')" onmouseup="OnMenu(this.id,'up','Main_Book.asp')"><img src='images/b.gif' style='margin-left:-260px'></div>

			<div id='A7' onmouseover="OnMenu(this.id,'over','')" onmouseout="OnMenu(this.id,'out','')" onmousedown="OnMenu(this.id,'down','')" onmouseup="OnMenu(this.id,'up','Main_Web.asp')"><img src='images/b.gif' style='margin-left:-312px'></div>

		</div>

		<div id="QJ_Body_AdminMenu"></div>

	</div>

	<div id='QJ_Body_Content'>

	<%

	if T="blog" and id<>"" then

	Response.Write ShowBlogHtml

	Call SendPL("blog",id)

	end if

	%>

	</div>

	<div id='QJ_Body_foot'><%=QJ_BlogFoot()%><object id='QJ_MusicBGM' classid='CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6' style='display:none;width:0px;height:0px'><param NAME='autostart' VALUE='false'><param NAME='url' VALUE=''><param NAME='volume' VALUE='100'></object></div>

</div></div>

<script>BlogFootHtml()</script><%Call ConnClose()%>

</body>

</html>
...全文
90 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hefeng_aspnet 2012-02-22
  • 打赏
  • 举报
 回复
没什么特别的 就是普通的asp代码
hookee 2012-02-20
  • 打赏
  • 举报
 回复
ASP代码部分就是普通的ASP，没什么特别的呀，只是自定义了一些函数而已
ASP.NET开源MVC框架Vici MVC（三）HELLO WORD
ASP.NET开源MVC框架Vici MVC 最大的特点是支持ASP.NET2.0 iis不需要额外的设置 官方实例下载地址http://viciproject.com/wiki/Projects/Mvc/UserGuide/Routing Vici的模板引擎支持主流的jquery等JS插件，相比...
ASP.NET MVC中使用EF框架
在公司中一直在使用oracle数据库，然后天天都是手写T-SQL，用的要么是ado.net封装好的操作数据库的方法，要么用的是oracle原生的一些操作数据库的方法，以前也自己了解过一些微软ORM的东西，更是听说过Entity ...
php怎么自己写框架,PHP学习笔记,自己动手写个MVC的框架
最新在大家自己的博客的过程中,发现各种开源的博客系统都或多或少的用起来别扭.于是想动手自己写个博客系统.既然写,就想好好写.那就先写个MVC框架.一点一点来.写的过程中有很多想法.还希望大家能够多多指正.我在这里...
一个ASP创建动态对象的工厂类（类似PHP的stdClass）
最近整理ASP/VBScript代码，发现过去的一个ASP实现的MVC框架，可惜是个半成品，效率也成问题，不过发现里面有些我写的代码，感觉还稍稍可以拿出来见人，于是今天作此文以记之。效果可以看下具体51搜索展示...
NHibernate3.3.0GA+ExtJS4.1.1+ASP.NET MVC3.0权限管理系统（2）--ExtJS MVC实现系统框架页
本篇主要实现的是系统的框架页，同时会采用ExtJS4.0之后出现的MVC。...1、我们还是先看看下载下来的ExtJS中的文件列表，如下 具体的文件具有什么作用，我在这里就不说了，其实我一不怎么明白，以
ASP

28,404

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章