asp常用操作集锦

asp个人常用的超链接特效

这段是去掉下划线的

<style type="text/css">
　　 a:link{text-decoration:none}
　　 a:hover{text-decoration:none}
　　 a:visited{text-decoration:none}
</style>

这段是JS，一般可以存在一个 .js 的文件里，然后直接include即可，功能是让鼠标移上超链接时，超链接会变色，觉得颜色还是挺好看的

<SCRIPT language=javascript>
var rate = 20;
var obj;
var act = 0;
var elmH = 0;
var elmS = 128;
var elmV = 255;
var clrOrg;
var TimerID;
if (navigator.appName.indexOf("Microsoft",0) != -1 && parseInt(navigator.appVersion) >= 4) {
Browser = true;
} else {
Browser = false;
}
if (Browser) {
document.onmouseover = doRainbowAnchor;
document.onmouseout = stopRainbowAnchor;
}
function doRainbow()
{
if (Browser && act != 1) {
act = 1;
obj = event.srcElement;
clrOrg = obj.style.color;
TimerID = setInterval("ChangeColor()",100);
}
}
function stopRainbow()
{
if (Browser && act != 0) {
obj.style.color = clrOrg;
clearInterval(TimerID);
act = 0;
}
}
function doRainbowAnchor()
{
if (Browser && act != 1) {
obj = event.srcElement;
while (obj.tagName != 'A' && obj.tagName != 'BODY') {
obj = obj.parentElement;
if (obj.tagName == 'A' || obj.tagName == 'BODY')
break;
}
if (obj.tagName == 'A' && obj.href != '') {
act = 1;
clrOrg = obj.style.color;
TimerID = setInterval("ChangeColor()",100);
}
}
}
function stopRainbowAnchor()
{
if (Browser && act != 0) {
if (obj.tagName == 'A') {
obj.style.color = clrOrg;
clearInterval(TimerID);
act = 0;
}
}
}
function ChangeColor()
{
obj.style.color = makeColor();
}
function makeColor()
{
if (elmS == 0) {
elmR = elmV; elmG = elmV; elmB = elmV;
}
else {
t1 = elmV;
t2 = (255 - elmS) * elmV / 255;
t3 = elmH % 60;
t3 = (t1 - t2) * t3 / 60;
if (elmH < 60) {
elmR = t1; elmB = t2; elmG = t2 + t3;
}
else if (elmH < 120) {
elmG = t1; elmB = t2; elmR = t1 - t3;
}
else if (elmH < 180) {
elmG = t1; elmR = t2; elmB = t2 + t3;
}
else if (elmH < 240) {
elmB = t1; elmR = t2; elmG = t1 - t3;
}
else if (elmH < 300) {
elmB = t1; elmG = t2; elmR = t2 + t3;
}
else if (elmH < 360) {
elmR = t1; elmG = t2; elmB = t1 - t3;
}
else {
elmR = 0; elmG = 0; elmB = 0;
}
}
elmR = Math.floor(elmR);
elmG = Math.floor(elmG);
elmB = Math.floor(elmB);
clrRGB = '#' + elmR.toString(16) + elmG.toString(16) + elmB.toString(16);
elmH = elmH + rate;
if (elmH >= 360)
elmH = 0;
return clrRGB;
}
</SCRIPT>

asp取得真实IP

（注意，本文不是忠哥原创，但是已经忘记在哪里找到的了，所以只能稍微感谢下作者了，这段程序据说是可以取得浏览者的真实IP地址，即使使用的代理服务器也是没用的，不过正确性没有证实过，用了如果出了什么问题，千万不能怪我）

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<html>

<head>

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

<title>无标题文档</title>

<%

Private Function getIP()

 

    Dim strIPAddr

    If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then

        strIPAddr = Request.ServerVariables("REMOTE_ADDR")

    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then

        strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)

    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then

        strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)

    Else

        strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

    End If

    getIP = Trim(Mid(strIPAddr, 1, 30))

End Function

%>

</head>

 

<body>

<%

response.Write(getip())

%>

</body>

</html>

取得真实IP

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<html>

<head>

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

<title>无标题文档</title>

<%

Private Function getIP()

 

    Dim strIPAddr

    If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then

        strIPAddr = Request.ServerVariables("REMOTE_ADDR")

    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then

        strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)

    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then

        strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)

    Else

        strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

    End If

    getIP = Trim(Mid(strIPAddr, 1, 30))

End Function

%>

</head>

 

<body>

<%

response.Write(getip())

%>

</body>

</html>

 

去掉作为链接的图片周围的蓝框

图片作为链接我原来是这样写的

 

<a href="index.html"><img src="pic.gif" /></a>

 

结果发现在图片的周围有一个难看的蓝框

 

上百度后不负我之所望的找到了解决办法

 

只要改为

 

<a href="index.html"><img src="pic.gif" border="0" /></a>

 

即可